- 191 名前：デフォルトの名無しさん [2008/04/13(日) 10:45:44 ]
- SAVEデータのようにバイナリデータとShift_JISの文字列が混在するファイルの
文字列部分を編集して書き戻したいのですが
Dim FreeNum as Integer
Dim Bin1() as Byte , Bin2() as Byte
Dim strRes as String
FreeNum=FreeFile
Open hoge.bin For Binary As #FreeNum
Get #FreeNum, , Bin1
Close #FreeNum
strRes = StrConv(Bin1,vbUnicode)
'本来ここでstrResを編集する
Bin2=StrConv(strRes,vbFromUnicode)
とした時にBin2はBin1を再現せず、バイナリデータの部分が変わってしまいます。
通常このような操作を行う場合はどのようにすれば良いのでしょうか？
お力を貸して下さい。
