« 地域と言語の設定に依存しない数字の桁区切り(JScript) | トップページ | スクリプトから.NETを使って、文字の繰り返し関数を代替する。 »

2008年8月13日 (水)

地域と言語の設定に依存しない数字の桁区切り(VBScript)

同様に、VBScriptで、符号や少数点のない整数の場合、

Function NumberGroup(n,g)
Dim s
Dim a
Dim k
s=CStr(n)
ReDim a((Len(s)+g-1) \ g -1)
k=Len(s) Mod g
If k Then a(0)=Left(s,k)
For k=k+1 To Len(s) Step g
  a((k+g-2) \ g)=Mid(s,k,g)
Next
NumberGroup=Join(a,",")
End Function

« 地域と言語の設定に依存しない数字の桁区切り(JScript) | トップページ | スクリプトから.NETを使って、文字の繰り返し関数を代替する。 »