#14060 【質問】    バイト数分文字を埋める方法     da422839 さん   2006-07-10(月) 10:27

■VBのバージョン : VB.NET2005

はじめまして。

VB.NETで、PadLeft・PadRightのように文字数でなく、
バイト数分文字を埋める方法は無いでしょうか？

例）
Dim aTemp As String
Dim bTemp As String
Dim a As String = "123"
Dim b As String = "１２３"

aTemp = a.PadRight(10, "0")
bTemp = b.PadRight(10, "0")

この場合、
aTempが"1230000000"
bTempが"１２３0000000"
になってしまいますが、
aTempが"1230000000"
bTempが"１２３0000"
にしたいです。

よろしくお願いしますm(_ _)m

この記事に返信する

↑B はてな

mixiチェック

twitterでつぶやく

#14062 【回答】    Re#14060:バイト数分文字を埋める方法     K.J.K.   2006-07-10(月) 10:45

> VB.NETで、PadLeft・PadRightのように文字数でなく、
> バイト数分文字を埋める方法は無いでしょうか？

現在の一般的なVB.NETにおいては、String型及びChar型を用いる限り、
「1文字は常に2bytes」
ですよね。

で、まぁ、
System.Text名前空間
以下について調べてみては。

この記事に返信する

↑B はてな

mixiチェック

twitterでつぶやく

#14064 【お礼・結果報告】    Re#14062:バイト数分文字を埋める方法     da422839 さん   2006-07-10(月) 14:29

> > VB.NETで、PadLeft・PadRightのように文字数でなく、
> > バイト数分文字を埋める方法は無いでしょうか？
> 
> 現在の一般的なVB.NETにおいては、String型及びChar型を用いる限り、
> 「1文字は常に2bytes」
> ですよね。

なるほど。

Dim バイト長 As Integer = System.Text.Encoding.GetEncoding(932).GetByteCount(対象)
Dim 文字列長 As Integer = 対象.Length

Dim 結果文字 As String = 対象.PadRight(桁数 - (バイト長 - 文字列長), "0")

で出来ました。
誠にありがとうございました!

この記事に返信する

↑B はてな

mixiチェック

twitterでつぶやく