|
#2
xbj_hyml2013-04-25 12:00
你确定 是"11:11:11" 变成 "11:??:11" 不是其他的字符 变成 ？？
在生成"Check.txt" 之后，你打开 txt 看下 显示是否正常 可能 是Unicode 之类 编码转换的问题...  |
生成的字符串。
诡异的是，在偶尔的时候截取的字符串中间会出现"？";
比如正常应该是“11.11.11”；
截出来可能变成"11.??.11";
绝大部分是正常的。
有朋友遇到过这样的问题吗？
程序代码：objShell.Run "Check.exe", 0, True
set objFile = objFSO.OpenTextFile("Check.txt", 1, False)
strInfo = objFile.ReadLine
strArray = Split(strInfo, Chr(0), -1, 0)
strVer = "Ver:1." & Trim(strArray(0))
set fs = createObject("Scripting.FilESyStEmObjeCt")
a="c:\win\result.txt"
set txt=fs.opentextfile(a,8)
txt.writeline strVer
txt.close
objFile.Close
set objFile = objFSO.OpenTextFile("Check.txt", 1, False)
strInfo = objFile.ReadLine
strArray = Split(strInfo, Chr(0), -1, 0)
strVer = "Ver:1." & Trim(strArray(0))
set fs = createObject("Scripting.FilESyStEmObjeCt")
a="c:\win\result.txt"
set txt=fs.opentextfile(a,8)
txt.writeline strVer
txt.close
objFile.Close