Springe tomme linier over ved læsning fra tekstfil

Hej

Jeg går ud fra at hver linie afsluttes med 'linieskift', altså CR + LF
og af ingen linier med brugbart indhold, indledes med blanktegn


Så kan du læse med 'Line Input'

Dim linie(100) as String    'eller hvor mange der nu er nødvendige
Dim a as integer

  Open dinfil for Input as #1
    Do while EOF(1) = False
      Line Input #1, linie(a)
      If Asc(linie)> 32 then a = 1 + 1
    loop
  close #1

  Så ved jeg ikke hvad du har brug for, indholdet i array'et kan vises i en tekstboks, i en liste eller samles til én string.

m.v.h. Jørn

Hej Joern. Mener du ikke a = a + 1?

Hej.

Et bib fra fortiden... jo, a = a +1

I øvrigt undrer det mig at jeg foreslår Asc(linie).

Nu ved jeg ikke om en tom linie kunne være fuld af blanktegn, ellers kan man tage længden af den.  Kan der være blanktegn, kan du 'trimme' den først.

Open dinfil for Input as #1
    Do while EOF(1) = False
      Line Input #1, linie(a)
      If len(trim(linie))> 0 then a = a + 1
    loop
  close #1

  en evt. tom linie bliver skrevet til array'et, men overskrevet med den næste linie, der har et indhold.

Jeg takker joern. Benyttede noget fra din kode, så nu spiller det.