[已解决]在将十六进制字符串写磁盘时，用BinaryToString转换后丢失部分字符

iPAQ

我想要将一组十六进制字符串数据写入到磁盘。

在写入过程中，转换时发现经过BinaryToString转换后部分十六进制数变成ASCII码时丢失。

请问是我哪里写错了，还是其他问题？如果这种转换不可靠，有无其他办法写入十六进制字符串？

下面是测试用的部分代码：

;十六进制字符串转ASCII测试
;$Hex="FFFEFDFCFBFA9998979695FFFF"
$Hex=""
For $i = 255 To 1 Step -1
        $Hex=$Hex & Hex($i,2)
Next
MsgBox(0,"10","<[" & $Hex & "]> len=" & StringLen($Hex) & @CRLF & "<[" & BinaryToString("0x" & $Hex,1) & "]> len=" & StringLen(BinaryToString("0x" & $Hex,1)) & @CRLF & "<[" & StringTrimLeft(Binary(BinaryToString("0x" & $Hex,1)),2) & "]> len=" & StringLen(StringTrimLeft(Binary(BinaryToString("0x" & $Hex,1)),2)))
;StringLen将每两个高位ASCII码当做中文字符计算个数。
$Str=BinaryToString("0x" & $Hex,1)
$SecN=1
$tBuffer = DllStructCreate("byte[" & 512*$SecN & "]")
DllStructSetData($tBuffer, 1, $Str)
MsgBox(4096,"set DllStruct","数据结构大小: " & DllStructGetSize($tBuffer) & @CRLF & "数据结构指针: " & DllStructGetPtr($tBuffer) & @CRLF & "Data:" & @CRLF & DllStructGetData($tBuffer, 1))

;然后用下面函数写入磁盘，这里为防误写磁盘注释掉
;_WinAPI_WriteFile($hDisk, DllStructGetPtr($tBuffer), 512*$SecN, $nBytes)

从MsgBox显示的情况就能看到问题。
经过几次试验，发现丢失的字符不是特定字符，而是字符串被剪裁掉了一段。想不明白原因。

smartzbs

你在用复杂的方法来实现简单的功能。
$Hex = "CED2B0AED6D0B9FA";我爱中国
FileWrite(@ScriptDir&"\temp.txt", Binary('0x' & $Hex))

iPAQ

多谢LS朋友提醒！

是让我弄复杂了，没想到FileWrite也可以直接写磁盘，就是用FileRead和FileSetPos遇到点问题，正在试验。用_WinAPI_SetFilePointerEx和_WinAPI_ReadFile没问题。
就是打开磁盘时只敢用_WinAPI_CreateFileEx，不知道如果用FileOpen写磁盘时会怎么样。

另外把我的代码中的BinaryToString()换成Binary()读写时直接写数据就行，不转换成ASCII就不丢失字符了。


不过BinaryToString()转一下为啥丢字符还是不清楚。

3mile

$tBuffer = DllStructCreate("WCHAR[" & 512*$SecN & "]")

iPAQ

谢谢3mile回复！

没看明白把byte换成wchar有何用意？
我发现只是数据由1个字节变成2个字节了。照样丢字符。是BinaryToString转换时丢的不是$tBuffer装不下丢的。和我这段程序出的问题好像不是一回事。

haijie1223

学习了  用这个方法能改写mbr不?

iPAQ

用_WinAPI_ 打开 移动指针位置 等 能写MBR，用Autoit自己内置函数还没试成功。

3mile

也许是我没有理解楼主的意思.

;十六进制字符串转ASCII测试
#INCLUDE <ARRAY.AU3>

$Hex="FFFEFDFCFBFA9998979695FFFF"
;~ $Hex=""
;~ For $i = 255 To 1 Step -1
;~         $Hex=$Hex & Hex($i,2)
;~ Next
;~ MsgBox(0,"10","<[" & $Hex & "]> len=" & StringLen($Hex) & @CRLF & "<[" & BinaryToString("0x" & $Hex,1) & "]> len=" & StringLen(BinaryToString("0x" & $Hex,1)) & @CRLF & "<[" & StringTrimLeft(Binary(BinaryToString("0x" & $Hex,1)),2) & "]> len=" & StringLen(StringTrimLeft(Binary(BinaryToString("0x" & $Hex,1)),2)))

Local $ARRAY[4][6]
$ARRAY[0][0]="原始数据:FFFEFDFCFBFA9998979695FFFF"
$ARRAY[0][1]=$Hex
$ARRAY[0][2]=Binary("0x"&$Hex)
$ARRAY[0][3]=BinaryToString(Binary("0x"&$Hex))

$ARRAY[1][0]="原始数据:FFFEFDFCFBFA9998979695FFFF"
$ARRAY[1][1]="$Hex(字符形式)长度:"&StringLen($Hex)
$ARRAY[1][2]="二进制长度:"&BinaryLen("0x"&$Hex)
$ARRAY[1][3]="转字符串后长度:"&StringLen(BinaryToString(Binary("0x"&$Hex)))

$ARRAY[2][0]="Wchar"
$ARRAY[3][0]="Byte"

$Str=BinaryToString("0x" & $Hex,1)
;StringLen将每两个高位ASCII码当做中文字符计算个数。
$SecN=1
$tBuffer = DllStructCreate("wchar[" & 512*$SecN & "]")
DllStructSetData($tBuffer, 1, StringToBinary($Str))

$tBuffer1 = DllStructCreate("byte[" & 512*$SecN & "]")
DllStructSetData($tBuffer1, 1, $Str)

$ARRAY[2][1]="数据结构大小: " & DllStructGetSize($tBuffer)
$ARRAY[2][2]="数据结构指针: " & DllStructGetPtr($tBuffer)
$ARRAY[2][3]="结构中数据:" & DllStructGetData($tBuffer, 1)
$ARRAY[2][4]="结构中数据字符串:" & BinaryToString(DllStructGetData($tBuffer, 1))
$ARRAY[2][5]="结构字串长度: " & StringLen(BinaryToString(DllStructGetData($tBuffer, 1)))

$ARRAY[3][1]="数据结构大小: " & DllStructGetSize($tBuffer1)
$ARRAY[3][2]="数据结构指针: " & DllStructGetPtr($tBuffer1)
$ARRAY[3][3]="结构中数据:" & DllStructGetData($tBuffer1, 1)
$ARRAY[3][4]="结构中数据字符串:" & BinaryToString(DllStructGetData($tBuffer1, 1))
$ARRAY[3][5]="结构字串长度: " & StringLen(BinaryToString(DllStructGetData($tBuffer1, 1)))
_ArrayDisplay($ARRAY)
;然后用下面函数写入磁盘，这里为防误写磁盘注释掉
;_WinAPI_WriteFile($hDisk, DllStructGetPtr($tBuffer), 512*$SecN, $nBytes)

iPAQ

感谢 3mile 具体详细的答复！

我比较笨，之前没明白你此处修改的用意。

执行了具体代码后看到wchar 和 byte 确实有区别。
但感觉造成转换时丢字符主要是 DllStructSetData($tBuffer, 1, StringToBinary($Str)) 和 DllStructSetData($tBuffer, 1, $Str) 这两句不同产生的。

再试发现：
Binary(BinaryToString("0x" & $Hex,1)) 丢字符
StringToBinary(BinaryToString("0x" & $Hex,1)) 不丢字符

一时脑筋还没转过来弯，让我慢慢想想差哪了。

再次谢谢答复！