Text reader funktion

Hej.

Jeg går ud fra at det er en ascii-fil og at der efter 'dk' og 'vn' o.s.v. er et hårdt linieskift.

Collections kender jeg ikke til, men her er et eksempel med array.
Dim a as integer, tekst(50) as string

a =0
Open mailfil.txt for input as #1
  Do while EOF(1) = false
    Line Input #1, linie
    tekst(a) = linie
    a = a + 1
  Loop
Close #1

Det er klart, at der skal dimmensioneres et array der er rummeligt nok, hvis også mailens indhold skal medtages.  Er det altid kun de første 4 linier af en fil kan du i stedet bruge en For / Next løkke.

Open mailfil.txt for input as #1
  For a = 0 to 3
    Line Input #1, linie
    tekst(a) = linie
    NExt a
  Loop
Close #1

M.v.h.  Jørn

Det er faktisk ikke en fil der skal åbnes og læses, men en String variabel der indeholder mailens body.

Det er meget lidt tekst der skal overføres.

Hej.

Jeg anvender VB5, der ikke har kommandoen split.  Hvis en string indeholder linieskift må du splitte den (eller bruge Instr i VB5) ved hver VbCrLf.

M.v.h. Jørn

*Hvorfor skriver du "filen ser således ud" hvis det ikke er en fil, men en stringvariabel?

*collection - taler du om en collection af objekter?
*Hvilke objekter?

Joerns svar viser hvordan du gør hvis det var en fil.
Hvis du i stedet har en string-variabel, der indeholder tekst med linieskift, kan du splitte det op i et array på følgende måde (VB6):

    Dim splitArray() As String
    splitArray = Split(strText, vbcrlf )

Splitarray indeholder nu alle tekststumperne. Du kan evt. bruge en anden delimiter end vbcrllf, fx. chr(13)

PS: joern: Man kan (i VB6) dimme et array dynamisk, og således hele tiden ændrer dets størrelse så det svarer til antal poster :o)

Hej Martin.

Også i VB5 kan et array dimensioneres dynamisk, men desværre kun i én dimension.  Jeg bruger arrays meget i mine programmer, - op til 3 dimensioner. Jeg synes, at svarene  her på 'Eksperten' undertiden er ret avancerede på enkle spørgsmål, - i hvert fald for mig at se.  Man må lære det enkle før det avancerede.

M.v.h.  Jørn

Nå ja, men så kompliceret er det vel ikke at bruge Redim Preserve :o)

Nå, over & out, Martin