[VBScript] Space関数

>Blog Top Page >[VBScript] Top Page >[VBScript] 関数 一覧

■構文
Space(number)

■説明
指定した数のスペースを返します
第一引数：スペースの数を指定

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. '1桁～5桁の数字を出力する時、半角スペースを使い1の桁で揃えて出力する  
4. Dim RndNumber  
5. Randomize  
6. RndNumber = Int(Rnd() * 30000) + 1  
7.   
8. Wscript.Echo Space(5 - Len(CStr(RndNumber))) & RndNumber  

Option Explicit

'1桁～5桁の数字を出力する時、半角スペースを使い1の桁で揃えて出力する
Dim RndNumber
Randomize
RndNumber = Int(Rnd() * 30000) + 1

Wscript.Echo Space(5 - Len(CStr(RndNumber))) & RndNumber

>Blog Top Page >[VBScript] Top Page >[VBScript] 関数 一覧