Læse en linie ad gangen i et tekstfelt

Hmmm. Interessant.
Vender lige tilbage hvis jeg finder noget :-)

Skal bruger selv skrive i tekstfeltet, ellers kan du da bruge listboks.

Brugeren skal kunne redigere i teksten altså skal det være et tekstfelt, men på et tidspunkt skal jeg så ha alle linierne over i programmet, og redigere dem, og så skrive linierne tilbage, og nogen linier bliber slettet osv. så jeg har altså brug for at kunne læse ind i liner ok?

Bruger du tvungne linieskift for at være sikker på tekstens placering i forhold til linienummer?

Du skal bruge en form med følgende:
1. MultiLineTextBox - text1
2. CommandButton - Command1
3. Label - label1

Private Sub Command1_Click()

    Dim A%, B$, c$
    A% = 1
    B$ = Text1.Text


    Do While InStr(B$, Chr$(13))
        A% = A% + 1
        B$ = Mid$(B$, InStr(B$, Chr$(13)) + 1)
    Loop

    countLines = CStr(A%)
Label1.Caption = countLines
End Sub

Hvis du skriver nogle linier i testboxen og derefter trykker på din commandbutoon vises i din label hvor mange linier der er i textboxen.

Koden er fundet på nettet og er _ikke_ min opfindelse.

Det kikker jeg på!

Ovenstående kode forudsætter også tvungne linieskift. Hvis det holder stik, og du har VB6 eller har Microsoft Scripting Runtime (scrrun.dll) installeret, er den enkleste måde at bruge funktionerne Split og Join:

Private Sub cmdOK_Click()

    Dim arrLinier() As String
    arrLinier = Split(txtTekst, vbNewLine)
    lblLabel = UBound(arrLinier) + 1
   
'  Når der skal redigeres i linierne:
    For i = 0 To UBound(arrLinier)
        ' gør en masse ved arrLinier(i)
    Next i
   
'  Når de redigerede linier skal
'  tilbage i tekstfeltet
    txtTekst = Join(arrLinier, vbNewLine)
   
End Sub

PS.
Hvis du skal have vist linie 15, skriver du

lblLabel = arrLinier(14)