Article View: be.comp.programming
Article #15606Re: newbie Q: lezen txt file in vb
From: Ludo Joris
Date: Tue, 12 Sep 2000 07:18
Date: Tue, 12 Sep 2000 07:18
28 lines
1472 bytes
1472 bytes
On Mon, 11 Sep 2000 15:58:50 GMT, "ViperRT10" <i.hate@spammers.net> wrote:
>het lukt me maar niet om van txt files te lezen met vb (6.0) wil iemand een
>stukje code posten met een werkende code?
Private Sub Voorbeeld()
Dim FileName As String
Dim FileNr As Integer
Dim OneLine As String
FileName = "Invoer.txt"
FileNr = FreeFile
Open FileName For Input As #FileNr
Do While Not EOF(FileNr)
Line Input #FileNr, OneLine
'Doe hier uw ding met de ingelezen lijn.
Loop
Close #FileNr
End Sub
HTH
Technical Details
Message-ID:
<39bdd85a.1159405@news.ruca.ua.ac.be>Path:
arc1-ca.pugleaf.net!supernews.google.com!sn-xit-02!sn-xit-03!supernews.com!news.tele.dk!193.190.198.17!newsfeeds.belnet.be!naxos.belnet.be!news.belnet.be!news.ruca.ua.ac.be!admin10.ruca.ua.ac.beReferences:
<_i7v5.320638$DJ4.4735819@afrodite.telenet-ops.be>Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit X-Google-Thread: fcea4,b62e0395e5517584 X-Google-Attributes: gidfcea4,public X-Google-ArrivalTime: 2000-09-12 00:16:35 PST Path: arc1-ca.pugleaf.net!supernews.google.com!sn-xit-02!sn-xit-03!supernews.com!news.tele.dk!193.190.198.17!newsfeeds.belnet.be!naxos.belnet.be!news.belnet.be!news.ruca.ua.ac.be!admin10.ruca.ua.ac.be From: lujo@ruca.ua.ac.be (Ludo Joris) Newsgroups: be.comp.programming Subject: Re: newbie Q: lezen txt file in vb Date: Tue, 12 Sep 2000 07:18:20 GMT Organization: UA-Ruca Lines: 28 Message-ID: <39bdd85a.1159405@news.ruca.ua.ac.be> References: <_i7v5.320638$DJ4.4735819@afrodite.telenet-ops.be> NNTP-Posting-Host: zeus.ruca.ua.ac.be X-Trace: naxos.belnet.be 968742994 12737 143.129.201.210 (12 Sep 2000 07:16:34 GMT) X-Complaints-To: abuse@belnet.be NNTP-Posting-Date: Tue, 12 Sep 2000 07:16:34 +0000 (UTC) X-Newsreader: Forte Free Agent 1.21/32.243