Const ForReading = 1
Wscript.StdOut.Write "Please input Filename: "
FileName = Wscript.StdIn.ReadLine
Do Until UCase(SearchHorseName)="XXX"
Wscript.StdOut.Write "Search Name or XXX to end: "
SearchHorseName = Wscript.StdIn.ReadLine
e=0
q=0
R=0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objInputFile = objFSO.OpenTextFile(FileName, ForReading)
Do until objInputFile.AtEndofStream
strHorseData = objInputFile.ReadLine
q = q + 1
strHorseData = Replace(strHorseData, Chr(34),"")
If Left(strHorseData,LEN(SearchHorseName))=SearchHorseName Then
wscript.echo strHorseData & " " & q
Fstring = Left(Strhorsedata,9)
strHorseData = Replace(strHorseData, ")(",",")
strHorseData = Replace(strHorseData, "(",",")
strHorseData = Replace(strHorseData, ")",",")
ArrData=split(strHorseData,",")
HorseName = ArrData(0)
EndNumber = Val(ArrData(5))
e=e+1
If EndNumber > 0 Then EndNumber = 9- EndNumber
R=R+EndNumber
wscript.echo R & " " & e
End If
Loop
objInputFile.Close
wscript.echo Fstring & " " & R
Loop
Wscript.Quit
Function Val(vValue)
If len(vValue) = 0 then
lResult = 0
else
if isnumeric(vValue) then
lResult = cdbl(vValue)
else
lCount = 1
do until (isnumeric(mid(vValue,lCount,1))=false) or (lCount > len(vValue))
strResult = strResult & mid(vValue, lCount, 1)
lCount = lCount + 1
loop
if len(strResult) = 0 then
lResult = 0
else
lResult = cdbl(strResult)
end if
end if
end if
Val = lResult
End Function
save this as e.g. HorseAnalyse.vbs and run it like so from the prompt
cscript //nologo HorseAnalyse.vbs
The .dat file (e.g. Horse.dat) needs to be in the same folder
Please give it a go and let me know if it works OK or if not what it does wrongly
