VB.NET で､文字列をﾊﾞｲﾄ数指定でぶった切る[お仕事]
(2014-09-03 22:09:15) by shinoda

あと､VB.NET で｢え?こんな面倒なことしないといかんの?｣という話だと､｢ﾊﾞｲﾄ数での文字列の分割｣かなあ｡

｢全角文字を途中でぶった切ってしまうことは在り得ない｣という条件での処理なので､｢文字列の最後が『全角文字の前半分の1byte』じゃないか?｣みたいなややこしいﾁｪｯｸはしないでいい｡だから､純粋に｢byte 数で文字列を分割できる split や substr｣みたいなのがあれば嬉しかったんだけど､無いのね､そんなの(^^;
ちゃんと｢byte 数｣じゃなく｢文字数｣としてｱﾚｺﾚ処理してくれるようで､有難迷惑だなあ(^^;

今回は､

'わたしは慎吾   00100100'
'あの子はﾁﾝｺ 00001110'
'あたいは茜     00101011'

みたいなﾃﾞｰﾀ(固定長)を､15byte と 8byte にぶった切りたいだけ｡
例えば､｢わたしは慎吾   ｣と｢00100100｣という具合に｡

あれこれ試して､

Dim bytes() As Byte = System.Text.Encoding.GetEncoding("Shift_JIS").GetBytes(hogehoge)
Dim byteF() As Byte = CType(Array.CreateInstance(GetType(Byte), 15), Byte())
Dim byteR() As Byte = CType(Array.CreateInstance(GetType(Byte), 8), Byte())
Array.Copy(bytes, 0, byteF, 0, 15)  ' 1〜15byte
Array.Copy(bytes, 15, byteR, 0, 8)   ' 16〜23byte
Dim strF As String = System.Text.Encoding.GetEncoding("Shift_JIS").GetString(byteF)
Dim strR As String = System.Text.Encoding.GetEncoding("Shift_JIS").GetString(byteR)

※hogehoge に｢わたしは慎吾   00100100｣のような文字列が入っている｡

とかしたんだけど､上に書いたように｢全角ｺｰﾄﾞを跨ぐことはない｣ので｢全角ｺｰﾄﾞである｣ということを意識する必要もないのに､なんか､Shift_JIS ｴﾝｺｰﾄﾞしてからﾊﾞｲﾄ文字列に分割したりと面倒臭いことこの上無い｡

もっとｽﾏｰﾄな方法があると思うので､ぜひ､VB.NET ﾏｽﾀｰの方はｺﾒﾝﾄを!!(笑)
ｺﾒﾝﾄ投稿
次の記事へ >
< 前の記事へ
TOPへ戻る

Powered by
MT4i 3.0.8