在 Windows 上运行 .vbs 时出错,预期')' VB 脚本



您能告诉您以下VBScript有什么问题吗?我遇到了这个错误:error expected ')'

vbscript:

Const strSourceFile = "C:Temptest.txt"
Const strTargetFile = "C:Temptest.csv"
Dim strData
Dim objFSO, objSourceFile, objTargetFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSourceFile = objFSO.OpenTextFile(strSourceFile, 1, True)
Set objTargetFile = objFSO.CreateTextFile(strTargetFile, True)
Do While Not objSourceFile.AtEndOfStream
    strData = objSourceFile.ReadLine
    'msgbox strData
    Dim strName, strAddress, strCity, strState, strZip
    strName = Trim(Mid(strData, 1, 20))
    strAddress = Trim(Mid(strData, 21, 20))
    strCity = Trim(Mid(strData, 41, 20))
    strState = Trim(Mid(strData, 61, 2))
    strZip = Trim(Mid(strData, 63 5))
    objTargetFile.WriteLine("""" & strName & """,""" & strAddress & """,""" & strCity & """,""" & strState & """,""" & strZip & """")
Loop
msgbox "done!"

也许

strZip = Trim(Mid(strData, 63, 5))

(缺少逗号)

最新更新