Tæl linjer ?

Tæl antallet af vbCrLf\'s så har du ca. +/- 1 linie.

strTekst = \"din tekst..\"
lngLines = 1
Do
  Index = InStr(Index, strTekst, vbCrLf)
  If Index = 0 Then Exit Do

  lngLines = lngLines + 1
  Index = Index + 1
Loop

så skulle du gerne have

lngLines = antal linier

Man kan ikke gør det 100% præcis ?

Det gør den der ... jeg var bare lige i tvivl da jeg skrev den første linie, men den tæller 100%...

men huske at hvis der er en der laver flg.

------------
hejsa



dette er en test




---------------

så tæller de blanke linier også (også dem efter den sidste reelle linie)

Det er bare endnu bedre.

Du kan ikke så lige hurtigt fortælle hvordan man så får vb til at lave en label af sig selv ?

Du skal have een label på formen først, sæt dens Index til 0. Så kan du bruge:

Load Label1(1)

Label1(1).Left = 1024
Label1(1).Top = 0
Label1(1).Caption = \"Weee\"

hvis ikke jeg husker forkert....

tak nu virker det.
Det med index = 1 for Do.

Til andre .. som fico og jeg lige snakke om over ICQ så manglede jeg lige en Index = 1..

strTekst = \"din tekst..\"
lngLines = 1
Index = 1
Do
  Index = InStr(Index, strTekst, vbCrLf)
  If Index = 0 Then Exit Do

  lngLines = lngLines + 1
  Index = Index + 1
Loop