Logical Error

[Eric]

My program works fine accept that when the pattern contains information
more than one line it shows only the first line. For example if you
look into Summary the information is in more than 1 line but it shows
only the first line needs help

i=0
j=0
dim alldata(99999,30)
Function EnumerateFolder( sFolder )

Dim fso, ts, data
Set fso = CreateObject("Scripting.FileSystemObject")
Set fol = fso.Getfolder ( server.mappath(sfolder) )
For each fil in fol.files
Set ts = fil.openastextstream(1)
Do While Not ts.AtEndOfStream
data = ts.ReadLine
If test(Left(data, 4)) Then
data = ts.ReadLine
alldata(i,j)=data
End If
Loop
Next
ts.Close
End Function

EnumerateFolder "c:\txt"
for k=1 to 20
response.write(alldata(0,k))
response.write("<br>")
next

Function test(s)
Select Case s

Case "[Dat"
test = True

Case "[Nov"
j=j+1
test = True

Case "[Sub"
j=j+1
test = True

Case "[Cus"
j=j+1
test = True

Case "[Str"
j=j+1
test = True

Case "[Cit"
j=j+1
test = True

Case "[Acc"
j=j+1
test = True

Case "[Ins"
j=j+1
test = True

Case "[Las"
j=j+1
test = True

Case "[PPV"
j=j+1
test = True

Case "[Mon"
j=j+1
test = True

Case "[Cur"
j=j+1
test = True

Case "[Typ"
j=j+1
test = True

Case "[Lan"
j=j+1
test = True

Case "[CRC"
j=j+1
test = True

Case "[Eve"
j=j+1
test = True

Case "[Sum"
j=j+1
test = True

Case "[Box"
j=j+1
test = True

Case "[MD"
j=j+1
test = True

Case "[Con"
j=j+1
test = True

End Select
End Function





PROCESS DATA
------------
NSMITH4
PPV / VOD Research - Dispute - 1st Time - 711579
EDWARD CAMPBELL
5 WHEELER AVE APT 2
BRIDGEPORT CT, 06606
006-0416-08
06/21/2001
06/29/2006
No
186.52
Optimum Voice
Dispute - 1st Time
English
Yes
#77922 6/29, #78306 6/29, #77716 6/28, #77312 6/28
cust states that they and no one in the household ever
2,SABKDTHBF,Yes,Yes,Yes,Yes
651789


ACTUAL DATA
-----------
[Date]
Sat Aug 05 14:06:12 EDT 2006

[Novell ID]
NSMITH4

[Subject]
PPV / VOD Research - Dispute - 1st Time - 711579

[Customer's Name]
EDWARD CAMPBELL

[Street]
5 WHEELER AVE APT 2

[City, State, Zip]
BRIDGEPORT CT, 06606

[Account Number]
006-0416-08

[Install Date]
06/21/2001

[Last Known Event Date]
06/29/2006

[PPV Hold]
No

[Monthly Rate]
186.52

[Current Services]
Optimum Voice
OOL FamilyorAbv
OR$20Discount
iO Silver Pkg
iO Box
PPOF
Addset: C/Rdy
OV World Call
OV Ported Number

[Type of Request]
Dispute - 1st Time

[Language]
English

[CRC PIN Instructions]
Yes

[Event Numbers/Date Range]
#77922 6/29, #78306 6/29, #77716 6/28, #77312 6/28

[Summary]
cust states that they and no one in the household ever
ordered those ppv movies.cust requesting credit of
$35.80.

[Box Verification by Customer]
2,SABKDTHBF,Yes,Yes,Yes,Yes

[MD Page ID]
1

[Control Number]
651789

 

[Morten Wennevik]

Hi Eric,

I might be mistaken, but i looks like you store everything in alldata(0,0)
effectively overwriting the last line.

You might also want to set Option Strict ON

My program works fine accept that when the pattern contains information
more than one line it shows only the first line. For example if you
look into Summary the information is in more than 1 line but it shows
only the first line needs help

i=0
j=0
dim alldata(99999,30)
Function EnumerateFolder( sFolder )

Dim fso, ts, data
Set fso = CreateObject("Scripting.FileSystemObject")
Set fol = fso.Getfolder ( server.mappath(sfolder) )
For each fil in fol.files
Set ts = fil.openastextstream(1)
Do While Not ts.AtEndOfStream
data = ts.ReadLine
If test(Left(data, 4)) Then
data = ts.ReadLine
alldata(i,j)=data
End If
Loop
Next
ts.Close
End Function

EnumerateFolder "c:\txt"
for k=1 to 20
response.write(alldata(0,k))
response.write("<br>")
next

Function test(s)
Select Case s

Case "[Dat"
test = True

Case "[Nov"
j=j+1
test = True

Case "[Sub"
j=j+1
test = True

Case "[Cus"
j=j+1
test = True

Case "[Str"
j=j+1
test = True

Case "[Cit"
j=j+1
test = True

Case "[Acc"
j=j+1
test = True

Case "[Ins"
j=j+1
test = True

Case "[Las"
j=j+1
test = True

Case "[PPV"
j=j+1
test = True

Case "[Mon"
j=j+1
test = True

Case "[Cur"
j=j+1
test = True

Case "[Typ"
j=j+1
test = True

Case "[Lan"
j=j+1
test = True

Case "[CRC"
j=j+1
test = True

Case "[Eve"
j=j+1
test = True

Case "[Sum"
j=j+1
test = True

Case "[Box"
j=j+1
test = True

Case "[MD"
j=j+1
test = True

Case "[Con"
j=j+1
test = True

End Select
End Function





PROCESS DATA
------------
NSMITH4
PPV / VOD Research - Dispute - 1st Time - 711579
EDWARD CAMPBELL
5 WHEELER AVE APT 2
BRIDGEPORT CT, 06606
006-0416-08
06/21/2001
06/29/2006
No
186.52
Optimum Voice
Dispute - 1st Time
English
Yes
#77922 6/29, #78306 6/29, #77716 6/28, #77312 6/28
cust states that they and no one in the household ever
2,SABKDTHBF,Yes,Yes,Yes,Yes
651789


ACTUAL DATA
-----------
[Date]
Sat Aug 05 14:06:12 EDT 2006

[Novell ID]
NSMITH4

[Subject]
PPV / VOD Research - Dispute - 1st Time - 711579

[Customer's Name]
EDWARD CAMPBELL

[Street]
5 WHEELER AVE APT 2

[City, State, Zip]
BRIDGEPORT CT, 06606

[Account Number]
006-0416-08

[Install Date]
06/21/2001

[Last Known Event Date]
06/29/2006

[PPV Hold]
No

[Monthly Rate]
186.52

[Current Services]
Optimum Voice
OOL FamilyorAbv
OR$20Discount
iO Silver Pkg
iO Box
PPOF
Addset: C/Rdy
OV World Call
OV Ported Number

[Type of Request]
Dispute - 1st Time

[Language]
English

[CRC PIN Instructions]
Yes

[Event Numbers/Date Range]
#77922 6/29, #78306 6/29, #77716 6/28, #77312 6/28

[Summary]
cust states that they and no one in the household ever
ordered those ppv movies.cust requesting credit of
$35.80.

[Box Verification by Customer]
2,SABKDTHBF,Yes,Yes,Yes,Yes

[MD Page ID]
1

[Control Number]
651789