Hej jag har problem med att dela en textsträng tackvare att jag inte vet längden på strängen.
Min Form består av två textrutor multiline T1 och T2. I T1 står redan Förnamn på första raden och efternamn på den andra. Texten i T1 ska sedan visas i T2 men jag vill inte att Förnamn och efternamn syns. I och med att jag inte vet antalet tecken i Förnamn så kan jag inte använda mid(sträng, start, längd).

Finns det något sätt så att jag kan klippa bort Förnamn och efternamn. Koden ser ut så här:

Private Sub Command1_Click()
strA = T1.Text
lang1 = Mid(strA, 5, 7)
T2.Text = lang1
End Sub

Än så länge.

Med vänlig hälsning
Kjell

Hej
Använd Split

Dim tboxArray() As String,i As Long
tboxArray = Split(T1.Text)

Nu har du T1 :s Text i Array tboxArray() :s olika fack
det är bara att plocka de ord du är intresserad av.

Alla ord som är separerade med mellanslag(Space)
kommer att hamna i olika fack.

For i = 0 To Ubound(tboxArray)
List1.Additem tboxArray(i)
Next 'i

ListBoxen är bara ett exempel du kan ju lägga orden
var du vill

mvh
Sven