Toon posts:

[VB6] recht onder elkaar zetten in een asci file

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik heb een aantal waardes die ik in een asci file wil bewaren en recht onder elkaar wil hebben.
Nu dacht ik dit simpel optelossen door Format$ te gebruiken, maar dat lukt mij niet.
i.p.v
_9___10,3
10____9,3
krijg ik steeds dit te zien
9___10,3
10__9,3

Doe ik iets niet goed met format$ (zie hieronder) of is er een andere commando waarmee ik het kan doen
Print #1, format$(GetalA, "##")+" "+format$(GetalB,"##,#0.0")

of moet ik moeilijk doen om eerst op te vragen uit hoeveel karakters het getal bestaat om daarna aan te vullen met spaties?

Verwijderd

Topicstarter
Oeps, het moet geen asci file zijn maar een tekst file.

  • stylee
  • Registratie: December 2000
  • Laatst online: 04-09-2021

stylee

blah zeg ik je

Waarom niet gewoon tabs gebruiken? (\t)

Dus zoiets als
code:
1
print var1 & "\t" & var2

Verwijderd

Op zondag 05 mei 2002 11:22 schreef stylee het volgende:
Waarom niet gewoon tabs gebruiken? (\t)
Dan worden de cijfers nog steeds niet rechts uitgelijnd... bovendien zou je dan vbTab moeten gebruiken, want \t werkt helaas niet in VB...

  • WimB
  • Registratie: Juli 2001
  • Laatst online: 30-03-2024
Met Mid(string, start) kan je midden in een string een waarde zetten
Je moet dan wel even de start berekenen. Als je 5 posities wil hebben per kolom is dat dus: 5 - lengte van je getal

Ik heb onderstaand scriptje uit mijn mouw geschud, zal dus waarschijnlijk niet vrij van fouten zijn:
code:
1
2
3
4
5
6
7
8
9
10
Dim strLijn As String * 10
Dim strHulp As String

strHulp = CStr(format$(GetalA, "##"))
Mid(strLijn, 5-Len(strHulp)) = strHulp

strHulp = format$(GetalB,"##,#0.0")
Mid(strLijn, 10-Len(strHulp)) = strHulp

Print #1, strLijn