Article View: be.comp.programming
Article #14768Re: Wis stuk van een bestand...
From: BuiZe
Date: Fri, 12 Jan 2001 18:25
Date: Fri, 12 Jan 2001 18:25
18 lines
1496 bytes
1496 bytes
Dim Filesize as long, Buffer as string
Filesize = Filelen("test.txt")
Open "test.txt" for binary as #1
'doe dit liever in stukken van bvb. 64000 bytes bij grote bestanden,
niet in 1 stuk :
Buffer = Space$(Filesize)
Get #1, , Buffer
Close #1
'het stuk eruit knippen
Buffer = left$(Buffer, 500) & right$(Buffer, len(buffer)-2000)
Open "test.txt" for Output as #1
'Punt-komma is belangrijk:
Print Buffer;
Close #1
Technical Details
Message-ID:
<8_H76.145104$MA1.4915837@afrodite.telenet-ops.be>Path:
arc1-ca.pugleaf.net!supernews.google.com!sn-xit-02!supernews.com!newsfeed.mesh.ad.jp!newsfeed.sovam.com!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mailReferences:
<3a5f3ad5$0$20286$73bec57d@news.be.uu.net>Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: fcea4,3e2c4482eba43689 X-Google-Attributes: gidfcea4,public X-Google-ArrivalTime: 2001-01-12 10:29:01 PST Path: arc1-ca.pugleaf.net!supernews.google.com!sn-xit-02!supernews.com!newsfeed.mesh.ad.jp!newsfeed.sovam.com!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail Reply-To: "BuiZe" <buize@buize.com> From: "BuiZe" <buize@buize.com> Newsgroups: be.comp.programming References: <3a5f3ad5$0$20286$73bec57d@news.be.uu.net> Subject: Re: Wis stuk van een bestand... Lines: 22 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 5.00.2919.6600 X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600 Message-ID: <8_H76.145104$MA1.4915837@afrodite.telenet-ops.be> Date: Fri, 12 Jan 2001 18:25:08 GMT NNTP-Posting-Host: 213.224.143.46 X-Complaints-To: abuse@pandora.be X-Trace: afrodite.telenet-ops.be 979323908 213.224.143.46 (Fri, 12 Jan 2001 19:25:08 MET) NNTP-Posting-Date: Fri, 12 Jan 2001 19:25:08 MET Organization: Telenet Internet