如何写把文件输出为16进制的数据

江郎才尽

如何写把文件输出为16进制的数据


$file = FileOpen("test.png", 0)
$file1 = FileOpen("test.txt", 16)

While 1
    $chars = FileRead($file,1)
If @error  = -1 Then
    ExitLoop
Else
        FileWrite($file1, $chars)
EndIf       
Wend

FileClose($file1)
FileClose($file)

Exit


上面的这个代码不行

suiyefeng

提供个思路...

$file = FileOpen("test.png", 16)
$file1 = FileOpen("test.txt", 2)
Dim $m = 0
While 1
    $chars = (FileRead($file,4))
        If @error  = -1 Then
                ExitLoop
        Else
                $chars=String($chars)
                $chars=StringMid($chars,3)
                $m = $m + 1
                FileWrite($file1,$chars)
                If $m = 4 Then 
                        FileWrite($file1,@CRLF)
                        $m=0
                EndIf
        EndIf
Wend

FileClose($file1)
FileClose($file)

Netfox

有点困难。。