Separating the lines in a multiline textbox

[mel_flynn]

My textbox contains 4 lines. What I want to do is separate these lines into strings i.e.
str1 = Line1
str2 = Line2
etc.

Simple enough I know

[plenderj]

This will produce an array of lines for you called strArr()

Dim strArr() As String
strArr = Split(Text1.Text, vbCrLf)

[IROY55]

If your textbox Multiline property is set to True and Text1.Text doesn't have an explicit entry such vbNewLine/vbCrLf or similar then strArr = Split(Text1.Text, vbCrLf) will result only 1(one) entry in your array: Text1.Text as a single string value.

[mel_flynn]

Thanks, but how do I find out how many elements are in strArr after I've done the split?

[seoptimizer2001]

If you know how many characters are in each line then how about...

Dim strText as String
Dim strArr() as String
Dim i,j as Integer
 
''j is the number of characters per line
j = 5
 
strText = Text1.Text
 
While strText <> ""
   Redim Preserver strArr(i)
   strArr(i) = Mid$(1, strText, j)
   strText = Mid$(j + 1, strText, Len(strText) - j)
   i = i + 1
Wend

[seoptimizer2001]

Originally posted by mel_flynn
Thanks, but how do I find out how many elements are in strArr after I've done the split?

Use the UBound function...

Dim elements as Integer
 
elements = UBound(strArr)
 
'a looping example
For i = LBound(strArr) to UBound(strArr)
 
''do something
Next

[plenderj]

Originally posted by mel_flynn
Thanks, but how do I find out how many elements are in strArr after I've done the split?

As seoptimizer2001 said, you would use the UBound() function on the strArr array :

UBound(strArr) '' zero based count of elements

[mel_flynn]

Cheers