vb.net / RegEx: Zeilen zwischen Werten zählen

[threadinger (Gast)]

Hi, habe ein kleines Anliegen...

ich hab eine .txt-Datei die in eine RichTextBox eingelesen wird.
Die sieht so aus

--DOC--
0
1
2
3
--DOC--

Nun möchte zählen, wie viele Zeilen es zwischen den beiden "--DOC--" 
gibt und komme nicht so recht voran, ich habs mit RegEx versucht aber 
das klappt nicht wie ichs mir vorstelle. Gibt es eine einfache Lösung? 
Lines "counten" an sich ist kein Problem, aber zwischen dem --DOC-- ... 
da komme ich nicht weiter.

Danke

[Heinz B. (Firma: Privat) (hbrill)]

Wenn --DOC--  immer am Anfang und Ende steht, könnte man
doch auch die Windows-API SendMessage verwenden.

$00BA  : em_GetLineCount oder 0x00BA je nach Sprache

count = SendMessage(HandledesRichedit, $00BA, 0, 0)

Jetzt ziehst du nur noch 2 von count ab (wegen 1. und letzter Zeile,
also den 2 --DOC--). Da braucht es noch nicht mal eine Schleife.

[imonbln (Gast)]

Ich kann leider kein Vb.net, aber ein generischer Ansatz, lese die 
Richbox Zeile für Zeile ein. Das Internet empfiehlt hierfür das Split 
Kommando. Wenn dann die aktuelle Zeile "--DOC--" ist fang an zu zählen 
und wenn sie es wieder ist, höre auf.

Mal kurz aus dem Internet zusammen geklaut, ungefähr so:

    Dim arr() As String
    Dim i As Integer
    Dim counter As Integer
    Dim countDoc As Boolean

    counter = 0
    countDoc = False  
    arr = Split(RichTextBox1.Text, vbCrLf)
    For i = 0 To UBound(arr)
        If arr(i).Contains("--DOC--") Then
           countDoc = not countDoc
        ElseIf countDoc = True Then
           counter = counter + 1
        End If 
    Next