01.
Set
fs = Server.CreateObject(
"Scripting.FileSystemObject"
)
02.
Set
objFile = fs.GetFile(
"D:\Source Code\Interest\Admin\Temp\"&request("
F"))
03.
Set
objFileTextStream = objFile.OpenAsTextStream(1,-2)
04.
05.
objFileTextStream.skipLine
06.
07.
Do
While
objFileTextStream.AtEndOfStream <>
True
08.
strLine = objFileTextStream.ReadLine
09.
strLinePart = split(strLine,
"|"
)
10.
11.
for i = 0 TO UBound(strLinePart)
12.
If
i = 0
Then
13.
Annual= Trim(strLinePart(i))
14.
15.
End
if
16.
Next