文字寄せ　(VBScript)

センタリング　 centering.vbs　 centering.lzh

センタリング　２　 centering_2.vbs　 centering_2.lzh

右寄せ　 right_justified.vbs　 right_justified.lzh

（LZHの圧縮ファイルをダウンロードするとよい。）

《centering.vbs》《centering_2.vbs》文字列を擬似的にセンタリングする。
《right_justified.vbs》文字列を擬似的に右寄せにする。

【更新履歴】
◇《centering.vbs》《right_justified.vbs》スペースを補うことにより、擬似的にセンタリング・右寄せを行う。右寄せでは、よりそれらしく見えるように、各行の半角文字（\wなのでアンダースコア以外の記号は含まない）の数を調べ、その分を加算して半角スペースで空白を埋めている。（ただし、指定桁数より長い行の右揃えまで同じ方法で統一しているわけではない。だいたいそれらしくできればいいだろうかというところだ。センタリングについても、本当は右寄せと同じ手法で作れば、もう少しそれらしいものになるはずである。）《centering_2.vbs》もう少しそれらしくなったかと思う。半角文字の正規表現は[^ -~｡-ﾟ]*が使えるらしいとWEBに載っていた。これで試してみたら、\wよりもきれいにできた。（2007.12.9）

《centering_2.vbs》







《right_justified.vbs》