以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  为什么VBS读文件失败？  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=10270)
--  作者：macro
--  发布时间：2012/2/22 14:57:28
--  为什么VBS读文件失败？
地址:=\\\'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文件的内容没有读出来？
--  作者：admin
--  发布时间：2012/2/22 15:07:34
--  

字符串变量要用 ffl.strvardata
--  作者：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("文本")，还是读不出文件的内容来？
--  作者：admin
--  发布时间：2012/2/22 15:28:34
--  

使用VBS的MSGBOX打印调试一下看看是不是文件的路径有问题
--  作者：macro
--  发布时间：2012/2/22 15:44:38
--  
OK了，确实是路径的问题，thanks!