VBS(二)——Script for Preparing the test data

上一篇 / 下一篇 2009-02-03 10:47:33 / 个人分类：其他

2009年2月03日10:23上午
'The scrīpt for Preparing the test data,and saving it as .txt file.

Option Explicit
On Error Resume next

Dim fileName,path,line,fso,choice,file,i

'path means the location of the file
path = "C:\Documents and Settings\Administrator\My Documents\"
'fileName means the name of the test file
fileName = "testData.txt"
'line and colum below mean the line Number and the colum Number of the test data
line = 10

Set fso = Wscrīpt.CreateObject("scrīpting.filesystemobject")

'Check whether the file exists or not.If not exist, create the file.
If fso.FileExists(path&fileName) Then
        choice = InputBox("Please choose your choice:        "_
                    &"1    Stop the scrīpt            "_
                    &"2    Overwrite the file        "_
                    &"3    Append to the end of file")
    Select Case choice
        Case "1": MsgBox "Stop the scrīpt",,"Prompt"
                Wscrīpt.Quit
        Case "2": Set file = fso.OpenTextFile(path&fileName,2)
        Case "3": Set file = fso.OpenTextFile(path&fileName,8)
        Case Else: MsgBox "Your choice is invalid.The scrīpt stops.",,"Prompt"
                    Wscrīpt.Quit
    End Select
Else Set file = fso.CreateTextFile(path&fileName,2,true)
End if

'Write Colum Name
file.Write("UserName")
file.Write("    ")
file.Write("Password")
file.WriteLine(1)

'Write test data
For i=0 To line
    file.Write("TuserName"&i)
    file.Write("    ")
    file.Write("TPwd"&i)
    file.WriteBlankLines(1)
Next

'Close the file
file.Close

Set fso = nothing

VBS(二)——Script for Preparing the test data

相关阅读:

用户菜单

我的栏目

标题搜索

日历

我的存档

数据统计

RSS订阅