スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
【VBS】文字列が指定桁数に満たない場合、0詰めする関数

なかなか良いですね。
http://jeanne.wankuma.com/tips/vb6/string/padleft.html

これは良い共通関数な予感。

' -------------------------------------------------------------------------------
' 指定の文字数になるまで先頭を文字で埋めます。
'
' @Param stTarget 処理対象となる文字列。
' @Param iLength 文字の長さ。
' @Param [chOne] 埋める文字。
' @Return 先頭を指定の文字で iLength の長さまで埋められた文字列。
' -------------------------------------------------------------------------------
Function PadLeft(stTarget, iLength , chOne)
Do While (Len(stTarget) < iLength)
stTarget = chOne & stTarget
Loop

PadLeft = Right(stTarget, iLength)
End Function

スポンサーサイト
空白は&nbsp; | Home | テーブルのソート jquery tablesorterを使った方法

Comment

Post comment

Secret

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。