ＶＢで全角文字をバイト参照したい

質問

こんばんは
またまた壁にぶちあたっています！

ＶＢでテキストから参照した全角文字をMidB関数等で部分参照し、
それぞれ一バイトずつのエリアに設定したいのですが、取得した値を
ＶＢ（Windows？）が認識出来ない為か「?」となります。
内容を壊さずに取得する方法があれば教えて頂きたいのですがm(__)m

サンプル
Dim strBuff1 As String * 1
Dim strBuff2 As String * 1

txtInput = "西"

strBuff1 = LeftB(StrConv(txtInput,FromUnicode),1)
strBuff2 = RightB(StrConv(txtInput,FromUnicode),1)

以上のコーディングで「strBuff1」、「strBuff2」にそれぞれ「?」が
設定されます

回答No.2

TAGOSAKU7 · ベストアンサー

なるほど・・・
以前に何度かここの掲示板で似たようなものを載せてるので、それを一行にまとめた関数を書いておきます。

Sub Main()
　　MsgBox fixStr("12345678901234567890", 4, 10)
　　MsgBox fixStr("12345ああ6789ああ01ああ234567890", 4, 10)
　　MsgBox fixStr("うううううう12345678901234567890", 4, 10)
End Sub

'引数１：文字列
'引数２：開始バイト目
'引数３：バイト長
Private Function fixStr(inStrings As String, inByteStart As Long, inByteLen As Long) As String
　　fixStr = StrConv(MidB(StrConv(inStrings, vbFromUnicode), inByteStart, inByteLen), vbUnicode)
End Function

お礼

どれどれ、早速試してみよう・・・
・・・お～本当だ！

上手く行きました。
そうですね、Unicode変換して元に戻してあげないと行けないんですね
うっかりしてました＾＾

とても助かりました、有難う御座います！

回答No.3

todo36

byte配列に変換した方がやりやすい

Dim b() As Byte
b = StrConv(txtInput, vbFromUnicode)

お礼

それは質問内容にも書いてあるとおりですよね・・・
し、しまったスペルを間違えてる
×：FromUnicode
○：vbFromUnicode
失礼しました＾＾

回答No.1

TAGOSAKU7

何がしたいのかが良くわかりません。
２バイト文字の情報を１バイトに分割してどうするのですか？
文字情報が壊れるのは当然ですよ。

分解して得た情報 [strBuff1] と [strBuff2] から「西」という文字を作成したいのですか？

どのような結果を求めているのかがわかりません。

補足

説明不足でしたか？

結論から言うと半角全角混在のエリアを10バイトずつで切った情報にしたい
と言う事なのですが、PCと汎用機とのデータ移動のためのツールを作成しています