Public Class Form1
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
 
      Dim S As String = _
      "Hallo," & vbNewLine & _
      "das ist ein:" & vbNewLine & _
      "Test" & vbNewLine & _
      "Hoffentlich klappt es!"
 
      ' Snoopy
      Dim Gesamt As Integer = 0
      Dim sw1 As New Stopwatch
      sw1.Start()
      For x As Integer = 1 To 1000000
         Gesamt += LineCount1(S, vbNewLine)
      Next
      sw1.Stop()
      MsgBox("Snoopy: " & sw1.ElapsedMilliseconds.ToString("#,### Sekunden"))
 
 
      ' Melkor
      Gesamt = 0
      Dim sw2 As New Stopwatch
      sw2.Start()
      For x As Integer = 1 To 1000000
         Gesamt += LineCount2(S, vbNewLine)
      Next
      sw2.Stop()
      MsgBox("Melkor: " & sw2.ElapsedMilliseconds.ToString("#,### Sekunden"))
 
   End Sub
 
   ' Snoopy
   Public Function LineCount1(ByVal sText As String, ByVal Delimiter As String) _
     As Integer
      Return sText.Split(Delimiter).Length
   End Function
 
   ' Melkor
   Public Function LineCount2(ByVal sText As String, ByVal Delimiter As String) _
     As Integer
      Dim i As Integer = 1
      Dim idx As Integer = -1
      Do
         idx = sText.IndexOf(Delimiter, idx + 1)
         i += IIf(idx > -1, 1, 0)
      Loop While idx <> -1
 
      Return i
   End Function
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control