本帖最后由 sanmoking 于 2012-11-23 15:11 编辑
回复 11# netegg
上面的文件是我直接用word保存了个doc文件,然后用winhex在整个文件前面加了三个字节[0x0B0B0B],我说的那种文件就是这种效果,文件前面有多余的三个字节。
我需要au3自动检测文档的二进制最前面三个字节是不是【0B0B0B】,如果是就删掉这三个字节并保存成新的文件。
因为太多这种文件,所以不能手动来弄。
Local Const $sFile = "1111.doc"
FileCopy("0.doc",$sFile,1)
$hFile = FileOpen($sFile,16)
$tFile = FileRead ($hFile)
FileClose($hFile)
If BinaryMid($tFile,1,3) = Binary("0x0B0B0B") Then
$hFile = FileOpen($sFile,26)
FileWrite($hFile,BinaryMid($tFile,4))
FileClose($hFile)
MsgBox(0,0,"已修复。")
Else
MsgBox(0,0,"没有发现特征符。")
EndIf
|