[VB] 0 wegschrijven in tekstbestand

[WildOne]

Beste mensen,

Mijn probleem is als volgt:
Ik lees vanuit een tekstbestand de laatste regel in, deze heeft vooraan een nummer staan, bv 0021. nu is het de bedoeling dat er op de volgende regel 0022 moet komen te staan.

code:

0021 blaat
0022 blaat

Het probleem is echter dat er gewoon 22 komt te staan zonder die extra nullen dus.

code:

0021 blaat
22 blaat

Ik heb op google al gekeken, maar daar werd ik niet veel wijzer van.
Ik moet dus eigenlijk een 4 cijferige notatie hebben. hoe kan ik dit fixen?

[gorgi_19]

Right("000" & getal,4)

[Twee Dee]

Als je er nu voor zorgt dat je het getal omzet in een string en dan pas wegschrijft, dan krijg je zoiets:

Visual Basic:

dim lGetal   as long
dim sGetal   as string

sGetal = right("0000" & cstr(lGetal), 4)

Dus je zet het getal om in een string, plakt er 4 nullen voor, en pakt dan de 4 meest rechtse karakters. Dan hoef je niet moeilijk te doen om het aantal nullen te bepalen.

[ Voor 3% gewijzigd door Twee Dee op 27-04-2004 10:37 ]

[WildOne]

Werkt perfect, thnx

edit:

Twee Dee schreef op 27 april 2004 @ 10:37:
Als je er nu voor zorgt dat je het getal omzet in een string en dan pas wegschrijft, dan krijg je zoiets:

Visual Basic:

dim lGetal   as long
dim sGetal   as string

sGetal = right("0000" & cstr(lGetal), 4)

Dus je zet het getal om in een string, plakt er 4 nullen voor, en pakt dan de 4 meest rechtse karakters. Dan hoef je niet moeilijk te doen om het aantal nullen te bepalen.

Zo heb ik het inderdaad gedaan ja, bedankt voor de tip

[ Voor 92% gewijzigd door WildOne op 27-04-2004 10:43 ]

[N0stradamus]

Bovenstaande oplossing werkt natuurlijk prima, hier nog een alternatief:

code:

dim lGetal as long
dim sGetal as string

sGetal = Format(lGetal,"0000")