我正在尝试编写一个vbs来进行简单的除法运算。这是我到目前为止所拥有的。

Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("S:\SWRUN\NPD\NPDFEED.OD",1)
Dim strLine
Do While Not objFileToRead.AtEndOfStream
    strLine = objFileToRead.ReadLine()
    strValues = Split(strLine,"|")
    var1 = strValues(23)
    var2 = strValues(21)
    Dim var3     
    var3 = var1/var2

    strFinal = var1 & "," & var2 & "," & var3 
Loop
objFileToRead.Close
Set objFileToRead = Nothing

Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile("S:\SWRUN\NPD\NPDFEED2.TXT",2,true)
objFileToWrite.WriteLine strFinal
objFileToWrite.Close
Set objFileToWrite = Nothing 

strValues(23)中的值有两个小数（价格），而strValues(21)是整数。使用上面的代码，我在第9行收到“被零除”错误。

但是，如果我尝试计算逆，var3 = var2/var1的值为.13333。

我的文本文件中的样本值是

strValues(23) = 15.00
strValues(21) = 2