StringPad()

[James]

I'm leaving this here because I wrote it after I found there wasn't a built in way to do this.

It supports "Default" keyword to keep parameters, as default (obviously...) and also LEFT and RIGHT directions to pad the string.

ConsoleWrite(StringPad("1", Default, 3, "LEFT") & @CRLF)

Func StringPad($padVal, $padString = "0", $padLength = 3, $padDirection = "LEFT")
    Local $finString = ""

    If $padString = Default Then $padString = 0
    If $padLength = Default Then $padLength = 3
    If $padDirection = Default Then $padDirection = "LEFT"

    $padDirection = StringUpper($padDirection)

    $finString = "" & $padVal

    While StringLen($finString) < $padLength
        If $padDirection == "LEFT" Then
            $finString = $padString & $finString
        Else
            $finString = $finString & $padString
        EndIf
    WEnd

    Return $finString
EndFunc

I'm sure nobody will find a use for it, but I know I'll need it again some time...

James

[MrCreatoR]

I found there wasn't a built in way to do this.

ConsoleWrite(StringFormat("%03i", "1") & @CRLF)

[James]

[wakillon]

It can happen to everyone

even a MVP !

[trancexx]

It can happen to everyone

even a MVP !

What? DP?

[JScript]

I'm sure nobody will find a use for it, but I know I'll need it again some time...

All that give us the capability the automation is very useful...

Thanks for sharing!

[JScript]

@wakillon

If you swap the source and the colors of his signature would be better to show what you want - in especially for me that I'm colorblind...

[supersonic]

Hi!

I wrote something similar to add leading zero(s) to position numbers:

#include-once

#include <String.au3>

; Example(s).
MsgBox(0, "Example1", _StringPos(1, 3), 0, GUICreate(""))
MsgBox(0, "Example2", _StringPos("1", "3"), 0, GUICreate(""))

Func _StringPos($xSP_PositionNumber, $xSP_PositionLength = 3)
    $xSP_PositionLength = Abs($xSP_PositionLength)
    $xSP_PositionNumber = Abs($xSP_PositionNumber)
    If $xSP_PositionLength >= StringLen($xSP_PositionNumber) Then
        Return SetError(0, 0, StringFormat("%0" & $xSP_PositionLength & "i", $xSP_PositionNumber))
    EndIf
    Return SetError(1, 0, _StringRepeat("#", $xSP_PositionLength))
EndFunc

Greets,

-supersonic.

Edited April 15, 2011 by supersonic

[spudw2k]

ConsoleWrite(StringFormat("%03i", "1") & @CRLF)

More efficient.