Article View: be.comp.programming
Article #4439Re: Inhoud tekstbestand wissen in vb6
From: sotto
Date: Wed, 20 Aug 2003 22:01
Date: Wed, 20 Aug 2003 22:01
124 lines
5397 bytes
5397 bytes
On Wed, 20 Aug 2003 15:21:12 +0000, Cliff Beeckman wrote:
> Niet gevonden...kheb al vanalles proberen aanpassen met verschillende
> combinaties, lukt allemaal niet. de richtextbox laadt mijn tekstbestand
> maar splitst mijn lijnen ondanks het feit dat ik bv. bij de property
> scrollbars both(3) heb gekozen...
>
> toch bedankt voor de tip...als het je nog te binnen schiet...laat zeker
> iets weten!
>
> "sotto" <junk@sotto.be> schreef in bericht
> news:pan.2003.08.19.21.36.30.213205@sotto.be...
>> On Tue, 19 Aug 2003 20:59:44 +0000, Cliff Beeckman wrote:
>>
>> > thx, ik zal dit ook es proberen. ik had al een andere code geschreven
> maar
>> > die is niet zo efficient(zo kort) als die van jou...bedankt vr de tip.
> ook
>> > een idee hoe ik een lijn volledig op het scherm krijg in een
>> > richtextbox want nu splitst hij die lijn en dat is niet erg
>> > handig(horizontale schuifbalk wil net niet werken)...?
>> >
>> > "MaG" <nomail@nowhere.com> schreef in bericht
>> > news:FRv0b.9748$ru7.1576204454@hestia.telenet-ops.be...
>> >>
>> >> "Billyke" <gert.verstappen@gmx.net> schreef in bericht
>> >> news:bhts8m$cct$1@reader10.wxs.nl...
>> >> >
>> >> > "Billyke" <gert.verstappen@gmx.net> wrote in message
>> >> > news:bhtrq4$buk$1@reader10.wxs.nl...
>> >> > >
>> >> > > "gd" <geert.demuynck____NOSPAM____@pandorapotdorie.be> wrote in
>> > message
>> >> > > news:cnn4kv0ospnbrndq0pc9pncmfguftd6of3@4ax.com...
>> >> > > > On Mon, 18 Aug 2003 19:59:42 GMT, "Cliff Beeckman"
>> >> > > > <cliffbeeckman@pandora.be> wrote:
>> >> > > >
>> >> > > > >Is het mogelijk via ��n commando(vb. via menu-klik) de
>> >> > > > >gehele
>> > inhoud
>> >> > van
>> >> > > een
>> >> > > > >document(een tekstbestand) te wissen? Zo ja, iemand die mij
>> >> > > > >kan verder helpen(VB6)?
>> >> > > > >
>> >> > > > >Alvast bedankt,
>> >> > > > >
>> >> > > > >Cliff.
>> >> > > > >
>> >> > > > bajaat joeng, je delete de file en je creeert 'm opnieuw en
>> >> > > > alles is weg
>> >> > > >
>> >> > > >
>> >> > > >
>> >> > > Nadeel is wel dat de Creation Date of het bestand dan ook
>> >> > > aangepast
>> >> wordt,
>> >> > > je kan het ook op deze manier doen:
>> >> > >
>> >> > > Dim f As Integer
>> >> > > f = FreeFile
>> >> > > Open "C:\Bestand.txt" For Output As #f Close #f
>> >> > >
>> >> > >
>> >> > >
>> >> > Nadeel is wel dat de Creation Date *VAN* het bestand dan ook
> aangepast
>> >> wordt
>> >> >
>> >> >
>> >> >
>> >> En waarom is dat een nadeel?
>> >> Ben nog nooit geinteresseerd geweest in de creation date, iedere file
>> > wordt
>> >> wel ne keer gecreeerd en vanaf
>> >> dan wordt die gewijzigd en dat vind ik veel interessanter. :-)
>> >>
>> >> --
>> >>
>> >> MaG
>> >>
>> >>
>> >>
>> >>
>>
>> Die horizontale schuifbalk.... ik heb daar ook ooit (lang geleden) op
> gevloekt
>> Als ik me niet vergis is dat ergens een property dat je moet instellen
>> in design time ... moet van iets de breedte invullen of zo ... Heb geen
>> vb hier op pc staan dus kan niet testen en / of zoeken... tzou kunnen
>> dat dit compleet ni klopt...ma doorloop toch 'ns al de properties van
>> die richtextbox en kijk of er iets zou kunnen kloppen aan mijn
>> beschrijving
>>
>>
>> mvg sotto
>>
>>
heb ff visualbasic vastgepakt...
't is .rightmargin waar ik aan dacht
als ik me niet vergis is dat een breedte in twips uitgedrukt...dus niet
aantal karakters...
anyway... als ge die op een grote eenheid instelt doet het wel wat er
verondersteld wordt van te doen...
Vraag me niet naar de logica hierachter...
Zwier een richtextbox op uw form,
zet scrollbars-property op rtfBoth
en kopieer ff deze code:
private sub form_load()
dim i as integer, j as integer, x as string
me.richtextbox1.rightmargin = 5555555
for j = 1 to 20
for i = 1 to 80
x = x & "qsfd "
next i
x = x & vbcrlf
next j
me.richtextbox1.text=x
end sub
Technical Details
Message-ID:
<pan.2003.08.20.22.01.15.794287@sotto.be>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-06!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!peer1.news.newnet.co.uk!peer1.news.newnet.co.uk!kibo.news.demon.net!demon!skynet.be!skynet.be!news.be.wanadoo.com!news.wanadoo.be!not-for-mailReferences:
<Oea0b.74081$F92.8325@afrodite.telenet-ops.be> <cnn4kv0ospnbrndq0pc9pncmfguftd6of3@4ax.com> <bhtrq4$buk$1@reader10.wxs.nl> <bhts8m$cct$1@reader10.wxs.nl> <FRv0b.9748$ru7.1576204454@hestia.telenet-ops.be> <4dw0b.75698$F92.8416@afrodite.telenet-ops.be> <pan.2003.08.19.21.36.30.213205@sotto.be> <IlM0b.76944$F92.8622@afrodite.telenet-ops.be>Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII X-Google-Thread: fcea4,3537863d444d6b81 X-Google-Attributes: gidfcea4,public X-Google-ArrivalTime: 2003-08-20 15:01:27 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-06!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!peer1.news.newnet.co.uk!peer1.news.newnet.co.uk!kibo.news.demon.net!demon!skynet.be!skynet.be!news.be.wanadoo.com!news.wanadoo.be!not-for-mail From: "sotto" <junk@sotto.be> Newsgroups: be.comp.programming Subject: Re: Inhoud tekstbestand wissen in vb6 Date: Thu, 21 Aug 2003 00:01:18 +0200 Organization: Wanadoo Belgium Lines: 125 Message-ID: <pan.2003.08.20.22.01.15.794287@sotto.be> References: <Oea0b.74081$F92.8325@afrodite.telenet-ops.be> <cnn4kv0ospnbrndq0pc9pncmfguftd6of3@4ax.com> <bhtrq4$buk$1@reader10.wxs.nl> <bhts8m$cct$1@reader10.wxs.nl> <FRv0b.9748$ru7.1576204454@hestia.telenet-ops.be> <4dw0b.75698$F92.8416@afrodite.telenet-ops.be> <pan.2003.08.19.21.36.30.213205@sotto.be> <IlM0b.76944$F92.8622@afrodite.telenet-ops.be> NNTP-Posting-Host: adsl-144-174.wanadoo.be Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit X-Trace: sinclair.be.wanadoo.com 1061416879 1055181 213.177.144.174 (20 Aug 2003 22:01:19 GMT) X-Complaints-To: abuse@wanadoo.be NNTP-Posting-Date: Wed, 20 Aug 2003 22:01:19 +0000 (UTC) User-Agent: Pan/0.13.3 (That cat's something I can't explain)