[问题求助] 请问有人会用VBS写ansoft Maxwell的脚本吗？能否帮忙解决一个文件读写的问题

MoTinte

用VBS写ansoft Maxwell的脚本，运行时出现错误

'创建文件
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.CreateTextFile("E:\My_Simulation\UEC\ansoft\ARMFORCE1.txt")

'力数组写入文件
Dim count1
count1=0
Do Until count1=count
   Set objFSO = CreateObject("Scripting.FileSystemObject") 
   Set objTextFile = objFSO.OpenTextFile("E:\My_Simulation\UEC\ansoft\ARMFORCE1.txt",ForWriting,true) 
   objTextFile.WriteLine(F_x(count))
   objTextFile.Close 
Loop  
复制代码

代码主要是要创建一个文本文件，然后把Maxwell中仿真得到的数据写入该文件，但是在Maxwell中导入该脚本后在

   Set objTextFile = objFSO.OpenTextFile("E:\My_Simulation\UEC\ansoft\ARMFORCE1.txt",ForWriting,true) 
复制代码

这一行报错
想问下论坛的高手们代码有什么问题吗？

yu2n

代码报错是ForWriting没有定义？

最顶上加一行常量定义：

Const ForWriting = 2
复制代码

参考：

asp(vbs)fso OpenTextFile方法参数说明
http://www.jb51.net/article/64927.htm

MoTinte

回复 2# yu2n


    我改了以后，出现这个报错：

*Global - Messages
  [error] Script macro error: Script Error (Code 800a0046) in file:  E:/My_Simulation/UEC/ansoft/VBScript1.vbs Description: 没有权限 Line(179):  "   Set objTextFile = objFSO.OpenTextFile("E:/My_Simulation/UEC/ansoft/ARMFORCE1.txt",8,true) " Cause: Microsoft VBScript 运行时错误 
Project4 (C:/Users/MoTinte/Documents/Ansoft/)
  Maxwell3DDesign1 (Magnetostatic)
复制代码

这个没有权限是什么问题？

yu2n

你查一下 E:/My_Simulation/UEC/ansoft/ARMFORCE1.txt 是否有权限修改、或者文件使用中。

MoTinte

回复 4# yu2n


    有写入权限。下面是代码，能帮忙看一下吗

'创建文件
Dim objFSO
Dim objFile
Dim objTextFile

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.CreateTextFile("E:\My_Simulation\UEC\ansoft\ARMFORCE2.txt")
Set objTextFile = objFSO.OpenTextFile("E:\My_Simulation\UEC\ansoft\ARMFORCE2.txt",8,true) 

'力数组写入文件
'Dim count1
count1=0
Do Until count1=count
   objTextFile.WriteLine(F_x(count1))
   MsgBox F_x(count1)
   count1=count1+1
Loop  

objTextFile.Close 
复制代码

MoTinte

回复 4# yu2n
报错出现在这一句

Set objTextFile = objFSO.OpenTextFile("E:\My_Simulation\UEC\ansoft\ARMFORCE2.txt",8,true) 
复制代码

yu2n

回复 6# MoTinte


    第 7 行，需要关闭 objFile ，这样就不会出现文件使用中的情况。替换第 7 行为以下代码：

objFSO.CreateTextFile("E:\My_Simulation\UEC\ansoft\ARMFORCE2.txt")
复制代码

WHY

第7行没啥用，删掉好了

MoTinte

回复 7# yu2n


    可以了，谢谢。

MoTinte

回复 7# yu2n


    能加个QQ吗？互相交流

MoTinte

回复 7# yu2n


    请问下标越界是什么意思？

老刘1号

回复 11# MoTinte


    使用的数组超过所被定义的