Jump to content

StringPad()


James
 Share

Recommended Posts

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

Link to comment
Share on other sites

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

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

:unsure:

 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Link to comment
Share on other sites

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!

http://forum.autoitbrasil.com/ (AutoIt v3 Brazil!!!)

Somewhere Out ThereJames Ingram

somewh10.png

dropbo10.pngDownload Dropbox - Simplify your life!
Your virtual HD wherever you go, anywhere!

Link to comment
Share on other sites

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 by supersonic
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...