String - counting the number of line breaks CHR(13)

[James-Kiwi]

I have a string with some text and a few line breaks.

How can I count the number of line breaks chr(13) in this string? Any example code?

[CliffPhilip]

Private Function countCR()
dim n  as integer
     val1 = 0
     for n = 1 to len("string")
          if asc(mid("string", n, 1)) = 13 then
               countCR = countCR + 1
          end if
     next n
End Function

Now your problem is going to be you won't have a true "string" with with chr(13). Are you working with a memo field or a text file that you are getting the data from?

[Spajeoly]

This is experimental, fresh out of my brain....

Dim TmpStr$()
 
    TmpStr = Split(ThatOneString, Chr(13))
    msgbox "There are " & TmpStr().Count - 1 & " Breaks in that thar text!", VBInformation, "Weeee"

[Spajeoly]

Hmmm, tested it, maybe not lol....

Has more errors than one could want.. I will see what I can do.

[Spajeoly]

Ok, this works too...

Private Sub Command2_Click()
Dim TmpStr$()
    TmpStr = Split(Text1.Text, Chr(13))
            MsgBox "There are " & UBound(TmpStr()) & " Breaks in that thar text!", vbInformation, "Weeee"
End Sub

[James-Kiwi]

Thanks very much for that guys - much appreciated

[Spajeoly]

Very Welcome.