批处理怎样把一个16进制数据的文本文件转成ASCII的文本文件？

Demon

1. 
   
2. Dim fso, a, i
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. 
   
5. With fso.OpenTextFile("abc.txt")
   
6.     a = Split(.ReadAll)
   
7. End With
   
8. 
   
9. For i = 0 To UBound(a)
   
10.     a(i) = Chr("&H" & a(i))
    
11. Next
    
12. 
    
13. With fso.OpenTextFile("cba.txt", 2, True)
    
14.     .Write Join(a, "")
    
15. End With
    

复制代码

height

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

height

Demon 的测试可行，谢谢Demon。

hfg1977

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

1. Ascii2Hex.bat -H -f HexFile.txt

复制代码

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

1. 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=
试试看.....