FLY000 发表于 2008-7-30 19:13:47

读取txt文件出错

FilePath="C:\InputData\"
FileName="保管点维"
SetDmw FilePath,FileName

Function SetDmw(FilePath,FileName)
   Set FSO=CreateObject("Scripting.FileSystemObject")
   fullPath=FilePath&FileName&".txt"
   Set objTextFile=FSO.OpenTextFile(fullPath,forReading,TristateUseDefault)
   strText=objTextFile.ReadAll
   objTextFile.Colse
   Browser("BI@Report 2.0").Page("BI@Report 2.0").Frame("Frame_5").WebEdit("index=0")=strText
   Browser("BI@Report 2.0").Page("BI@Report 2.0").Frame("Frame_5").Link("innertext:=保存").Click
End Function

运行到Set objTextFile=FSO.OpenTextFile(fullPath,forReading,TristateUseDefault)出错

假装不在 发表于 2008-7-30 20:07:47

看来是MM了，所以很热情的帮助下:kiss: :hug:
首先，说说你这个脚本里面有多少个错误的地方：
1，缺少定义FSO,objTextFile
2，缺少给forReading定义值，一般设置：1
3，在使用Set objTextFile=FSO.OpenTextFile(fullPath,forReading,TristateUseDefault)
情况下，TristateUseDefault这个是不需要的。
Set objTextFile=FSO.OpenTextFile(fullPath,forReading)
4，你的close拼错了。

:victory: :lol

hhhsmileyangxue 发表于 2008-7-30 20:14:11

把forReading改成1
objTextFile.Colse的 Close写错了

FLY000 发表于 2008-7-31 09:32:54

谢谢，问题解决了。
Function SetDmw(FilePath,FileName)
   Const ForReading=1
   Set FSO=CreateObject("Scripting.FileSystemObject")
   fullPath=FilePath&FileName&".txt"
   Set objTextFile=FSO.OpenTextFile(fullPath,ForReading)
   strText=objTextFile.ReadAll
   objTextFile.Close
   Browser("BI@Report 2.0").Page("BI@Report 2.0").Frame("Frame_5").WebEdit("index:=0")=strText
   Browser("BI@Report 2.0").Page("BI@Report 2.0").Frame("Frame_5").Link("innertext:=保存").Click
End Function

[ 本帖最后由 FLY000 于 2008-7-31 09:36 编辑 ]

zte_boy 发表于 2008-7-31 10:14:40

仔细点就好了，呵呵，很简单的一个问题

kevin_swpi 发表于 2008-7-31 11:08:12

假装不在...

看来你妹妹确实热情:lol :lol
对我们就有点恼火了哟

需要改进哈:loveliness: :loveliness: :loveliness:

★斌斌※测试☆ 发表于 2008-7-31 22:37:14

呵呵！
你俩真强！
:lol

★斌斌※测试☆ 发表于 2008-7-31 22:44:12

:victory:

zte_boy 发表于 2008-7-31 22:44:36

原帖由 ★斌斌※测试☆ 于 2008-7-31 22:37 发表 http://bbs.51testing.com/images/common/back.gif
呵呵！
你俩真强！
:lol
谁有你强，还真能灌，呵呵
这可是技术区噢:lol
页: [1]
查看完整版本: 读取txt文件出错