WSH/値や文字列の右詰め・左詰めをする方法・Right, Left, Space のバックアップ(No.1)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
WSH/値や文字列の右詰め・左詰めをする方法・Right, Left, Space へ行く。
- 1 (2015-03-20 (金) 22:50:31)

値や文字列の右詰め・左詰めをする方法・Right, Left, Spaceで実現する †

VBScriptで右詰め、左詰めをしたい場合は、Right, Left, Space関数を使用することにより実現できます。

値や文字列の右詰め・左詰めをする方法・Right, Left, Spaceで実現する
関連記事
右詰め、左詰めを実現する
- 右詰めの場合
- 左詰めの場合
左詰め、右詰め関数を作成してみた
- 左詰め・右詰め関数サンプルコード
- 左詰め・右詰め関数サンプルコード実行結果

↑

右詰め、左詰めを実現する †

たとえば10文字のフィールドに右詰め、左詰めしたい場合は以下のようにすれば実現できます。

↑

右詰めの場合 †

右詰めの場合のサンプルスクリプトを以下に記します。

右詰めサンプルVBScript
#ref(): File not found: "right.zip" at page "WSH/値や文字列の右詰め・左詰めをする方法・Right, Left, Space"
```
v = "hello"
WScript.Echo "0123456789"
WScript.Echo Right(Space(10) & v, 10)
```

右詰めサンプルVBScript実行結果

C:\wsh>cscript /nologo right.vbs
0123456789
     hello

右詰めサンプルサンプルスクリプトの動作説明
上記のVBScriptのサンプルスクリプトは以下の動作になります。

vにhello文字列を代入
0-10までのゲージを表示
幅10文字としているのでSpace関数を使って10文字分のスペースとhello文字列を格納するv変数を&で連結
連結した文字列をRight関数で右から10文字取得し表示する

↑

左詰めの場合 †

左詰めの場合のサンプルスクリプトを以下に記します。

左詰めサンプルVBScript
#ref(): File not found: "left.zip" at page "WSH/値や文字列の右詰め・左詰めをする方法・Right, Left, Space"
```
v = "hello"
WScript.Echo "0123456789"
WScript.Echo Left(v & Space(10), 10) & "!"
```

左詰めサンプルVBScript実行結果

C:\wsh>cscript /nologo left.vbs
0123456789
hello     !

左詰めサンプルサンプルスクリプトの動作説明
上記のVBScriptのサンプルスクリプトは以下の動作になります。

vにhello文字列を代入
0-10までのゲージを表示
幅10文字としているのでSpace関数を使って10文字分のスペースとhello文字列を格納するv変数を&で連結
連結した文字列をLeft関数で左から10文字取得し表示する
左詰めで開きスペースには半角スペースを設定しているため、動作画面上では半角スペースが表示されているのかわからないので、最後に!を表示しています。

↑

左詰め、右詰め関数を作成してみた †

上記に記した方式の関数を作ってみました。
以下にVBScriptのサンプルコードを記します。

↑

左詰め・右詰め関数サンプルコード †

#ref(): File not found: "align.zip" at page "WSH/値や文字列の右詰め・左詰めをする方法・Right, Left, Space"

Function LeftEx(str, width)
	LeftEx = Left(str & Space(width), width)
End Function

Function RightEx(str, width)
	RightEx = Right(Space(width) & str, width)
End Function

WScript.Echo "01234567890123456789"
WScript.Echo LeftEx("left", 20) & "END"
WScript.Echo RightEx("right", 20)

↑

左詰め・右詰め関数サンプルコード実行結果 †

C:\wsh>cscript /nologo align.vbs
01234567890123456789
left                END
               right

以上、Left, Right, Spaceの3関数を利用してVBScriptで右詰め、左詰めをする方法を紹介しました。