;*基本函数
;读取字节
Func Binary_Read($address)
Return StringMid($file, $address * 2 + 3, 2)
EndFunc ;==>Binary_Read
;替换字节
Func Binary_Replace($address, $val)
$file = StringReplace($file, $address * 2 + 3, Hex($val, 2))
EndFunc ;==>Binary_Replace
;读取文件
Func Binary_ReadFile($filename)
Global $file = FileRead(FileOpen($filename, 16))
EndFunc ;==>Binary_ReadFile
;写入文件
Func Binary_WriteFile($filename)
Return FileWrite(FileOpen($filename, 18), Binary($file))
EndFunc ;==>Binary_WriteFile
我还是用的StringMid...具体的参数检测都没有加入 Binary_Replace($address, $val)的替换参数是十进制的
因为是自己用的 需要的话...请自行修改
[ 本帖最后由 rolaka 于 2009-3-7 18:00 编辑 ] |