vbs: ab einen gewissen char soll er schreiben

Seite 1 von 1 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/vbs_ab_einen_gewissen_char_soll_er_schreiben_135508/page_1 - zur Vollversion wechseln!

evrmnd schrieb am 28.01.2005 um 11:39

Hi,

Habe ne ausgabe:

wscript.echo FileDate
wscript.echo FileSize
wscript.echo FileType
wscript.echo vbCrLf

Dann sollte es so sein:
wscript.echo FileDate & " " & FileDate1
wscript.echo FileSize & " " & FileSize1
wscript.echo FileType & " " & FileType1
wscript.echo vbCrLf

Nur anstadt " " Sollte er automatisch ab einen gewissen char zum schreiben anfangen (dammit das ganze schöner is)...

Danke!
lg
EVERMIND

that schrieb am 28.01.2005 um 13:21

Mach einfach statt dem " " mehrere Spaces, die den ersten String auf eine bestimmte Länge auffüllen, z.B. mit Space(40 - Length(FileDate))

mat schrieb am 28.01.2005 um 13:39

Code:

Function Beautify(data,offset)
  Dim chars

  chars = offset - Len(data)
  if chars <= 0 then
    exit function
  end if

  Beautify = data

  for i=1 to chars
    Beautify = Beautify & " "
  next

End Function

' Main
Dim number1, _
    number2, _
    output

number1 = 12345
number2 = 1

output = Beautify(number1,15) & "offsettext" & Chr(13) & _
         Beautify(number2,15) & "offsettext"

WScript.echo output

allerdings brauchst eine konsolen schrift, damits auch wirklich auf selber höhe ist.

edited

evrmnd schrieb am 28.01.2005 um 13:55

Danke!
Genau so wie du bei dir den Script hast hab ichs mir auch überlegt, nur ich hab mir gesacht, vielleicht gibts ja etwas

Danke!