Demon

Dim fso, a, i
Set fso = CreateObject("Scripting.FileSystemObject")

With fso.OpenTextFile("abc.txt")
    a = Split(.ReadAll)
End With

For i = 0 To UBound(a)
    a(i) = Chr("&H" & a(i))
Next

With fso.OpenTextFile("cba.txt", 2, True)
    .Write Join(a, "")
End With
复制代码

height

lllsoslll 谢谢你的回复，你的BAT版本，在我的电脑中显示如下：'ascmap.cmd' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
ascmap.cmd文件缺失
请按任意键继续. . .
这是什么原因啊？

height

Demon 的测试可行，谢谢Demon。

hfg1977

HEX文件→ASCII文件,命令如下:

Ascii2Hex.bat -H -f HexFile.txt
复制代码

原始HEX文件必须非空白字符开头与结尾,不然生成的文件会多出些字节,可以用这个命令预处理:

sed -i -e "s/\s*$//;s/^\s*//" hexfile.txt
复制代码

虽然我的代码啰嗦了些,还能用也懒得改写了.

jdsdsa

回复 19# hfg1977


    16转到ascii  我想把它转换成批处理 怎么办

hfg1977

Ascii2Hex.bat 本来就是批处理呀, 你在其他批处理文件里如上调用就可.

jdsdsa

姐姐 我是说人可以学的批处理

hfg1977

分离出来了:    http://bbs.bathome.net/viewthread.php?tid=15424&extra=
试试看.....