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

MoTinte

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

1. '创建文件
   
2. Set objFSO = CreateObject("Scripting.FileSystemObject")
   
3. Set objFile = objFSO.CreateTextFile("E:\My_Simulation\UEC\ansoft\ARMFORCE1.txt")
   
4. 
   
5. '力数组写入文件
   
6. Dim count1
   
7. count1=0
   
8. Do Until count1=count
   
9.    Set objFSO = CreateObject("Scripting.FileSystemObject")
   
10.    Set objTextFile = objFSO.OpenTextFile("E:\My_Simulation\UEC\ansoft\ARMFORCE1.txt",ForWriting,true)
    
11.    objTextFile.WriteLine(F_x(count))
    
12.    objTextFile.Close
    
13. Loop  

复制代码

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

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

复制代码

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

yu2n

代码报错是ForWriting没有定义？

最顶上加一行常量定义：

1. Const ForWriting = 2

复制代码

参考：

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

MoTinte

回复 2# yu2n


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

1. *Global - Messages
   
2.   [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 运行时错误
   
3. Project4 (C:/Users/MoTinte/Documents/Ansoft/)
   
4.   Maxwell3DDesign1 (Magnetostatic)
   

复制代码

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

yu2n

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

MoTinte

回复 4# yu2n


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

1. '创建文件
   
2. Dim objFSO
   
3. Dim objFile
   
4. Dim objTextFile
   
5. 
   
6. Set objFSO = CreateObject("Scripting.FileSystemObject")
   
7. Set objFile = objFSO.CreateTextFile("E:\My_Simulation\UEC\ansoft\ARMFORCE2.txt")
   
8. Set objTextFile = objFSO.OpenTextFile("E:\My_Simulation\UEC\ansoft\ARMFORCE2.txt",8,true)
   
9. 
   
10. '力数组写入文件
    
11. 'Dim count1
    
12. count1=0
    
13. Do Until count1=count
    
14.    objTextFile.WriteLine(F_x(count1))
    
15.    MsgBox F_x(count1)
    
16.    count1=count1+1
    
17. Loop  
    
18. 
    
19. objTextFile.Close

复制代码

MoTinte

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

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

复制代码

yu2n

回复 6# MoTinte


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

1. objFSO.CreateTextFile("E:\My_Simulation\UEC\ansoft\ARMFORCE2.txt")

复制代码

WHY

第7行没啥用，删掉好了

MoTinte

回复 7# yu2n


    可以了，谢谢。

MoTinte

回复 7# yu2n


    能加个QQ吗？互相交流

MoTinte

回复 7# yu2n


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

老刘1号

回复 11# MoTinte


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