Fullfill a string

[Xenobiologist]

Hi Guys,

is there a function to fullfill a string?

I want to write a line into a file and the arguments to write have got different length. So the output looks not very good. If I had a function that makes all the arguments the same length maybe fill in some spaces untill the length is reached, my Problem would be solved

File --> I want the X like a row down.

Access IBM Tools X4.0 XIBM Corporation XC:\Programme\IBM\Access IBM\IBMUINST.EXE

ActivePerl 515 X X X"\\filesrv01\prg\OS\NT\DDS\USER\SETUP.EXE" "\\filesrv01\prg\OS\NT\DDS\dds_seu\pakete\Active State\perl\5.15\install\Setup.inf" /X4

X X X

Acrobat Reader 7.0 X X X"C:\Programme\Gemeinsame Dateien\Setup32\Setup.exe" "C:\Programme\Adobe\Install\Setup.inf" /X4

AFPL Ghostscript 8.13 X X XC:\Programme\GS\uninstgs.exe "C:\Programme\GS\gs8.13\uninstal.txt"

AFPL Ghostscript Fonts X X XC:\Programme\GS\uninstgs.exe "C:\Programme\GS\fonts\uninstal.txt"

So long,

Mega

Edited November 16, 2005 by th.meger

[Andrew Sparkes]

If I understood you right, I think you want to make all the strings a certain character length?

Try this:

$Max=100; number of characters for the max
$char='X'; the char you want to tack on to the string
For $x=StringLen($Str) To $Max
    $Str=$Str&$char
Next

EDIT: Thought of another way:

$Max=100; number of characters for the max
$char='X'; the char you want to tack on to the string
While 1
If StringLen($Str) < $Max Then
$Str=$Str&$char
ContinueLoop
EndIf
ExitLoop
WEnd

Edited November 16, 2005 by Andrew Sparkes

[Xenobiologist]

Hi,

thanks it works. Sometimes the solution seems to be so easy, but ... :">

So long,

Mega

P.S.: Maybe it should be a function in autoit to do something like that. :-)

Edited November 16, 2005 by th.meger

[Xenobiologist]

Hi,

I did something like that out of your source -->

Func _fullfill($maxLength, $string, $fullFillChar)

; $maxLength = maximum string size

; $fullFillChar = char to fullfill the string

While 1

If StringLen($string) < $maxLength Then

$string = $string & $fullFillChar

ContinueLoop

EndIf

ExitLoop

WEnd

Return $string

EndFunc