/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Læs fra en tekstfil?
Fra : stk


Dato : 30-10-01 13:59

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"


 
 
Peter Thomsen (30-10-2001)
Kommentar
Fra : Peter Thomsen


Dato : 30-10-01 19:28

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




Henrik Jensen (30-10-2001)
Kommentar
Fra : Henrik Jensen


Dato : 30-10-01 23:29


"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




Stig (31-10-2001)
Kommentar
Fra : Stig


Dato : 31-10-01 08:12

"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 ((-:

Stig (01-11-2001)
Kommentar
Fra : Stig


Dato : 01-11-01 09:00

<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



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste