---

Hej med jer.

Jeg har prøvet at åbne en txt fil vha CreateFile og ReadFile, men kan
ikke helt gennemskue det.
Er der nogle der kan hjælpe mig?
Det skal ikke nødvendigvis være disse to funktioner, jeg skal bare bruge
noge a la følgende:
strVariabel = ReadFile("C:\test.txt")
Altså: Læs hele textfilen og gem den i en variable af typen string.

stefan

--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"

---

Der er sikkert en bedre metode, men her læses en linie af gangen. Så må der
kunne laves en loop for at læse hele filen og en error når filen er tom.


dim a as string , b as string
Dim filnavn As String
Dim filnummer As Integer
filnavn = "c:\test.txt"
filnummer = FreeFile
Open filnavn For Input As #filnummer
Line Input #filnummer, a
b = b & a
Open filnavn For Input As #filnummer
Line Input #filnummer, a
b = b & a
Close #filnummer

---

"stk" <stk.news@kandu.dk> skrev i en meddelelse
news:kpxD7.585$RM3.87751@news000.worldonline.dk...
> Altså: Læs hele textfilen og gem den i en variable af typen string.

Dim strInput(200) as String
Dim intAntalInput as Integer

intAntalInput = 0
Open "c:\test.txt" For Input As #1
Do While EOF(1) = False
intAntalInput = intAntalInput + 1
Line Input #1, intInput(intAntalInput)
Loop
Close #1


Sådan læses hele filen, linie for linie, ind i et array.
Array'et er her sat til 200, men skal selvfølgelig passe
til antal linier i filen.


--


Venlig hilsen / Best regards

Henrik

---

"stk" <stk.news@kandu.dk> wrote in
<kpxD7.585$RM3.87751@news000.worldonline.dk>:

>Hej med jer.
>
>Jeg har prøvet at åbne en txt fil vha CreateFile og ReadFile, men
>kan ikke helt gennemskue det.
>Er der nogle der kan hjælpe mig?
>Det skal ikke nødvendigvis være disse to funktioner, jeg skal bare
>bruge noge a la følgende:
> strVariabel = ReadFile("C:\test.txt")
>Altså: Læs hele textfilen og gem den i en variable af typen string.
>
>stefan
>

Dim StrVariabel AS String
Dim FriFil AS Long

Datafil = "c:\test.txt"
FriFil = FreeFile
Open strVariabel For Binary As FriFil
InputStreng = Input(LOF(FriFil), FriFil)

Close #FriFil

'Nu er alt læst ind i variabelen strVariabel

SC ((-:

---

<snip>

>Dim StrVariabel AS String
>Dim FriFil AS Long
>
>Datafil = "c:\test.txt"
>FriFil = FreeFile
>Open strVariabel For Binary As FriFil
>InputStreng = Input(LOF(FriFil), FriFil)
>
>Close #FriFil
>
>'Nu er alt læst ind i variabelen strVariabel
>
> SC ((-:
>
Der var lige sneget nogle fejl ind
her en ny version

Dim Datafil AS String
Dim strVariabel AS String
Dim FriFil AS Long


Datafil = "c:\test.txt"
FriFil = FreeFile
Open Datafil For Binary As FriFil
strVariabel = Input(LOF(FriFil), FriFil)

Close #FriFil

'Nu er alt læst ind i variabelen strVariabel