スペースである長さにするには？

ある列名の文字数が10文字(MAX10文字)のとき後ろにスペースをつけて15文字にしたいのですがどうすればいいのでしょうか？
例えば

ABCDEFGHIJ
ABCDE

というデータを

ABCDEFGHIJ_____
ABCDE__________
(ただし_はスペースを表す)
として表示させたいのです。

ある列の文字数が10文字固定だとつなげてできるのですが…

よろしくおねがいします。

No.1 ベストアンサー 回答者： PAPA0427 回答日時： 2004/01/07 17:48

Dim A As String

Dim B As String
Dim AA As String
Dim BB As String

A = "ABCDEGHIJ"
B = "ABCDE"

AA = Left( A & Space(15), 15)
BB = Left( B & Space(15), 15)

または、

AA = Mid( A & Space(15), 1, 15)
BB = Mid( B & Space(15), 1, 15)

で、出来ますよ。

この回答への補足

SQL文で抽出した内容に後ろスペースをつけてテキストに出力するのですが列の数がいっぱいあるのでこれだと苦しいのですが…


他に方法ありませんか？

補足日時：2004/01/07 17:52

この回答へのお礼

ちょっとやり方変えてしてみたらうまくできました。
考えもせず補足したのが間違いでした。

ありがとうございました。

お礼日時：2004/01/07 17:59