jiashadidai_110

我给你个代码吧，你提问，问题都模糊不清，问的是十进制变成十六进制，a.txt中给的数据却是十六进制
这个代码是把十六进制变成十进制，十六进制是每两位一个划分，用|划分，表示的十进制用，划分
你保存成vbs的后缀，双击运行就可以查看了

option explicit
dim fso,m,n,i,a,b,c,stra,strb
set fso=createobject("scripting.filesystemobject")
set m=fso.opentextfile("a.txt",1)
set c=fso.createtextfile("1.txt",2,1)
while m.atendofstream <> true
     n=m.readline
     i=1
     while i<len(n)
     a=mid(n,i,2)
     stra=stra&a&"|"
     b="&H"&a
     strb=strb&cint(b)&","
     i=i+2
     wend
     c.writeline stra
     c.writeline strb
     stra=""
     strb=""
wend
set fso=nothing 
复制代码

jiashadidai_110

不是吧，我的机器上怎么没报错！！！我在win7上可以呀。。。还有，你有没有改代码之类的，如果要变成多个（这里如果变成四个就会出错）十六进制进行转换，就会报错的。。

jiashadidai_110

怎么会出错了  我的都好使，你能告诉一下，你是怎么操作代码的吗？
是直接复制粘贴，还是有所修改
我又试了下，代码在win7和xp上都可以，并没报错