张平 2010-06-02
把MsgBox "arrays(i)"的引号去掉,干嘛加引号,这样:msgbox arrays(i)
王艳 2010-06-02
张平 2010-06-02
曾晨 2010-06-02
Public Function logPrint(ByVal logMessage)
Dim fso, logFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set logFile = fso.OpenTextFile("D:\runtime.log", 8, True)
logFile.WriteLine(date() & " " & hour(now) & ":" & minute(now) & ":" & second(now) & ": " & logMessage)
logFile.Close
End Function
Dim i , arrays(3)
arrays(0)="ssssssss"
arrays(1)="aaaaaaa"
arrays(2)="bbbbbbb"
arrays(3)="cccccccf"
For i=0 To 3
logPrint(arrays(i))
Next
我一般的做法是写运行日志 你可以试试
王艳 2010-06-02
曾晨 2010-06-02
1 以只读模式打开文件。不能对此文件进行写操作。
2 以只写方式打开文件。不能对此文件进行读操作。
8 打开文件并在文件末尾进行写操作。
焦爱玲 2010-06-02
学习了
王艳 2010-06-02
刘旸 2010-06-02
呵呵,建议你学习autoit,我觉得还是蛮好的。
王艳 2010-06-02
曾晨 2010-06-02
王艳 2010-06-02
刘旸 2010-06-02
你可以google一下,其实是一个跟VBS很接近的脚本工具。
不过,我感觉比vbs好。
有比较系统的编辑工具,帮助,函数库。
也可以很容易的做图形化界面。
孙承芬 2010-06-02
美女,不用加双引号的,直接就是 MsgBox arrays(i),加双引号输出的就是
arrays(i)这个字符串了……
王艳 2010-06-02
杨弸 2010-06-02
路过。。。。 你们都太厉害了,自己编脚本,对代码还那么熟悉,我真是菜中之菜了
程守标 2010-06-03
学习了
纪安 2010-06-03
Dim fso, logFile, i , arrays(3)
Set fso = CreateObject("Scripting.FileSystemObject")
arrays(0)="ssssssss"
arrays(1)="aaaaaaa"
arrays(2)="bbbbbbb"
arrays(3)="cccccccf"
For i=0 To 3
logPrint(arrays(i))
Next
Set fso=Nothing
Public Sub logPrint(ByVal logMessage)
Set logFile = fso.OpenTextFile("D:\runtime.log", 8, True)
logFile.WriteLine(date() & " " & hour(now) & ":" & minute(now) & ":" & second(now) & ": " & logMessage)
logFile.Close
End Sub