Zeilen einer RTFBox ermitteln (Split-Funktion) VB-Version:  VB5, VB6
	Views:  8.112

Die Gesamtanzahl der Zeilen einer RTFBox oder auch einer MultiLine-TextBox können Sie mit der Split-Funktion ermitteln. Hier ein Beispiel anhand einer RTFBox:

Dim sLines() As String
 
sLines = Split(RichTextBox1.Text, vbCrLf)
 
MsgBox "Zeile1: " & sLines(0)
MsgBox "Zeile2: " & sLines(1)
...
MsgBox "Letzte Zeile: " & sLines(UBound(sLines))

Die Split-Funktion zerlegt einen String an einem vorgegebenen Trennzeichen (hier: Zeilenschaltung = vbCrLf) in Teilstrings. Diese Funktion gibt es allerdings erst ab Visual Basic 6. Für alle, die mit einer früheren Version von Visual Basic arbeiten, hier der Link zu unserem Tipp  Split-Funktion für VB4/5.