FileWrite函数怎么写入Binary类型的变量？

thackit

$file = FileOpen("tmp.txt", 18)             ;已经开了二进制和写入模式，试了17也不行
If $file = -1 Then
    MsgBox(0, "错误", "无法打开目标文件。")
    Exit
EndIf

$chars = FileRead($file)                     ;可以读出为 0x123 的十六进制形式的字符
$test = StringReplace($chars, "B2CBB5A5", "D4ADB0E6", 1)            ;替换一次指定的字符
FileWrite($file, $test)                     ;写入无效，最后文件变成空的了，没内容了。
FileClose($file)

请看上面的代码。AU3的代码格式无法点，只好手工用[code]了。
我想用一段十六进制的字符替换指定的一段字符，可是经 stringReplace 后得到的正确的内容（类似 0x123，不过也试了去掉 0x 然后写入也不行），却无法用 FileWrite 写入，不知道直接写入十六进制的字符要怎么办？我看了帮助应该是支持的，不知道哪里出错了。我在论坛上搜索了也找不到相关内容，只好发帖来问，请帮忙！

解决办法：见14#。当要读取的时候，FileOpen一次；要写入的时候，必须再次 FileOpen 一次。真是晕死。

[ 本帖最后由 thackit 于 2008-11-5 20:43 编辑 ]

thackit

If the line is a binary type variant (and not text) it will be written to the file byte by byte. Binary operation can also be forced by using Fileopen with the binary flag.

FileWrite 函数的说明里有提到可以写入二进制的数据，我也打开了 FileOpen 的相关模式了啊。

netegg

$test = StringReplace("B2CBB5A5", $chars, "D4ADB0E6", 1)

thackit

StringReplace我的没问题啊，楼上的才是错的吧？
我想问的是怎么写入经过 StringReplace 后得到的 16进制 的字符串？

liongodmien

原帖由 thackit 于 2008-11-5 16:51 发表
StringReplace我的没问题啊，楼上的才是错的吧？
我想问的是怎么写入经过 StringReplace 后得到的 16进制 的字符串？

好像有转换函数的！

thackit

原帖由 liongodmien 于 2008-11-5 16:52 发表

好像有转换函数的！

晕！我的 $test 变量已经是 Binary 类型的数据。
现在的问题是如何写入文件啊？

netegg

直接写（替换）就可以了，我试过了

netegg

$chars=FileRead("c:\1.txt")
$test = StringReplace( $chars,"B2CBB5A5", "D4ADB0E6", 1)

这段我瞎写的

[ 本帖最后由 netegg 于 2008-11-5 17:42 编辑 ]

thackit

楼上的请教怎么写代码？我写的错在哪里？请说的清楚一点好吗，这里先谢了。我今天刚接触AU3。。。

FileWrite($file, $test)        ;错在哪里呢？

thackit

8楼的到底是些什么啊！
我不要替换啊，我要写入文件，无语。。。。

liongodmien

原帖由 thackit 于 2008-11-5 17:42 发表
楼上的请教怎么写代码？我写的错在哪里？请说的清楚一点好吗，这里先谢了。我今天刚接触AU3。。。

FileWrite($file, $test)        ;错在哪里呢？

错在FileOPen($File, 18)

liongodmien

$file = FileOpen("tmp.txt", 16)             ;已经开了二进制和写入模式，试了17也不行
If $file = -1 Then
    MsgBox(0, "错误", "无法打开目标文件。")
    Exit
EndIf

$chars = FileRead($file)                     ;可以读出为 0x123 的十六进制形式的字符
$test = StringReplace($chars, "B2CBB5A5", "D4ADB0E6", 1)            ;替换一次指定的字符
FileWrite($file, $test)                     ;写入无效，最后文件变成空的了，没内容了。
FileClose($file)

thackit

楼上的说得这么肯定，肯定没有自己测试过。我第一次也是用16的。

16+0=16是开启读取 Binary 的只读模式，要 16+1 or 16+2 才是可写入模式。

改成只读模式，更不能写入了。

liongodmien

原帖由 thackit 于 2008-11-5 18:08 发表
楼上的说得这么肯定，肯定没有自己测试过。我第一次也是用16的。

16+0=16是开启读取 Binary 的只读模式，要 16+1 or 16+2 才是可写入模式。

改成只读模式，更不能写入了。

不好意思，刚才没细看，不过，用１８的确是不行的，因为一开始就已经把内容清空了！

$file = FileOpen("tmp.txt", 16) 
If $file = -1 Then
    MsgBox(0, "错误", "无法打开目标文件。")
    Exit
EndIf

$chars = FileRead($file)  
$test = StringReplace($chars, "30303030", "D4ADB0E6", 1) 
FileClose($file)
FileOpen('tmp.txt', 18)
FileWrite($file, $test) 

thackit

不是在读取的时候清空文件内容，而是在要写入的时候先清空文件内容，然后用替换过的文件内容写入进去，这样才达到修改的目的。用17的话，就是在文件末尾追加数据，会增大文件大小的。
其实17或18都不关键。关键是怎么写入 Binary 类型的数据。