共5 条记录, 每页显示 10 条, 页签: [1]

标题：为什么VBS读文件失败？

1楼

macro 发表于：2012/2/22 14:57:28

地址:=\'F:\\交易记录\\\'+市场+\'\\\'+代码 +\'.txt\';//按自己的情况修改
文本:=\'\';
<%
UTXT=ffl.vardata("文本")
UDZ=ffl.vardata("地址")
  Dim fso, ts,s
  Const ForReading = 1
  On Error Resume Next
  path ="" & UDZ
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set ts = fso.OpenTextFile(path, ForReading)
  s = ts.ReadAll
  UTXT = s
  ts.Close
ffl.vardata("文本")=UTXT
%>

请教一下为何txt文件的内容没有读出来？

2楼

admin 发表于：2012/2/22 15:07:34

字符串变量要用 ffl.strvardata

3楼

macro 发表于：2012/2/22 15:15:50

<%
UTXT=ffl.strvardata("文本")
UDZ=ffl.strvardata("地址")
Dim fso, ts,s
Const ForReading = 1
On Error Resume Next
path ="" & UDZ
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(path, ForReading)
s = ts.ReadAll
UTXT = s
ts.Close
ffl.strvardata("文本")=UTXT
%>

原来的ffl.vardata("文本")改成ffl.strvardata("文本")，还是读不出文件的内容来？

4楼

admin 发表于：2012/2/22 15:28:34

使用VBS的MSGBOX打印调试一下看看是不是文件的路径有问题

5楼

macro 发表于：2012/2/22 15:44:38

OK了，确实是路径的问题，thanks!

共5 条记录, 每页显示 10 条, 页签: [1]