Error

Eric

When data is more than one line it skip the second line in my program.
Case Summary where it get data only from first line. I need help what
changes i will do in my program so that it read the whole summary
from text file.

ERROR

-----------

Case "[Sum"
test = True
OUTPUT
------------
cust states that they and no one in the household ever

ORIGINAL DATA
------------------------

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

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
response.write(" ")
response.write(data)
End If
Loop
Next
ts.Close
End Function

EnumerateFolder "c:\txt"

Function test(s)
Select Case s

Case "[Dat"
test = True

Case "[Nov"
test = True

Case "[Sub"
test = True

Case "[Cus"
test = True

Case "[Str"
test = True

Case "[Cit"
test = True

Case "[Acc"
test = True

Case "[Ins"
test = True

Case "[Las"
test = True

Case "[PPV"
test = True

Case "[Mon"
test = True

Case "[Cur"
test = True

Case "[Typ"
test = True

Case "[Lan"
test = True

Case "[CRC"
test = True

Case "[Eve"
test = True

Case "[Sum"
test = True

Case "[Box"
test = True

Case "[MD"
test = True

Case "[Con"
test = True

End Select
End Function

-----------------------

---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

Aug 9 '06 #1

Subscribe Post Reply

1196

Dave Anderson

Eric wrote:

When data is more than one line it skip the second line in my
program. Case Summary where it get data only from first line.
...
If test(Left(data, 4)) Then
data = ts.ReadLine
response.write(" ")
response.write(data)
End If

You are only reading one line per item, so you only write one line.

--
Dave Anderson

Unsolicited commercial email will be read at a cost of $500 per message. Use
of this email address implies consent to these terms.

Aug 9 '06 #2

Bob Barrows [MVP]

Eric wrote:

When data is more than one line it skip the second line in my program.
Case Summary where it get data only from first line. I need help what
changes i will do in my program so that it read the whole summary
from text file.

ERROR

-----------

Case "[Sum"
test = True
OUTPUT
------------
cust states that they and no one in the household ever

ORIGINAL DATA
------------------------

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

----

>
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
response.write(" ")
response.write(data)
End If
Loop
Next
ts.Close
End Function

EnumerateFolder "c:\txt"

I'm not really sure what your desired output is, but try this:

Do While Not ts.AtEndOfStream
data = ts.ReadLine
If not test(Left(data, 4)) Then
response.write(" ")
response.write(data)
End If
Loop

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

Aug 9 '06 #3

Eric

Yes my program read one line per item and some times there are more
then one line. I need help how to i read the whole information (which
some times consist of more then one line) of each item. For eg.

[Current Services]
HBO on Demand
iO Silver Pkg
iO Box
PPOF
TripleDoubleOV
DoublPlyOOL
OV Ported Number

Current Services has more then one line and the program only read the
first line that is HBO on Demand and skip rest of the line . Please
help
---------------------------------------------------------------------------------
Bob Barrows [MVP] wrote:

Eric wrote:
When data is more than one line it skip the second line in my program.
Case Summary where it get data only from first line. I need help what
changes i will do in my program so that it read the whole summary
from text file.

ERROR

-----------

Case "[Sum"
test = True
OUTPUT
------------
cust states that they and no one in the household ever

ORIGINAL DATA
------------------------

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

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
response.write(" ")
response.write(data)
End If
Loop
Next
ts.Close
End Function

EnumerateFolder "c:\txt"
I'm not really sure what your desired output is, but try this:

Do While Not ts.AtEndOfStream
data = ts.ReadLine
If not test(Left(data, 4)) Then
response.write(" ")
response.write(data)
End If
Loop

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

Aug 9 '06 #4

Bob Barrows [MVP]

Did you even try my suggestion? Again, change this:

Do While Not ts.AtEndOfStream
data = ts.ReadLine
If test(Left(data, 4)) Then
data = ts.ReadLine
response.write(" ")
response.write(data)
End If
Loop
to this:

Do While Not ts.AtEndOfStream
data = ts.ReadLine
If not test(Left(data, 4)) Then
response.write(" ")
response.write(data)
End If
Loop
Eric wrote:

Yes my program read one line per item and some times there are more
then one line. I need help how to i read the whole information (which
some times consist of more then one line) of each item. For eg.

[Current Services]
HBO on Demand
iO Silver Pkg
iO Box
PPOF
TripleDoubleOV
DoublPlyOOL
OV Ported Number

Current Services has more then one line and the program only read the
first line that is HBO on Demand and skip rest of the line . Please
help
----------------------------------------------------------------------

-----------

Bob Barrows [MVP] wrote:
>Eric wrote:
>>When data is more than one line it skip the second line in my
program. Case Summary where it get data only from first line. I
need help what changes i will do in my program so that it read
the whole summary from text file.

ERROR

-----------

Case "[Sum"
test = True
OUTPUT
------------
cust states that they and no one in the household ever

ORIGINAL DATA
------------------------

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

>>----

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
response.write(" ")
response.write(data)
End If
Loop
Next
ts.Close
End Function

EnumerateFolder "c:\txt"

I'm not really sure what your desired output is, but try this:

Do While Not ts.AtEndOfStream
data = ts.ReadLine
If not test(Left(data, 4)) Then
response.write(" ")
response.write(data)
End If
Loop

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get
a quicker response by posting to the newsgroup.

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

Aug 9 '06 #5

Eric

Thank you very much man you are really great. Now second step is to put
the data into access table. Logic which i am going to use is to put one
by one into an array then from array into table. Any other easy logic
if you have i would be very appreciate.

Bob Barrows [MVP] wrote:

Did you even try my suggestion? Again, change this:

Do While Not ts.AtEndOfStream
data = ts.ReadLine
If test(Left(data, 4)) Then
data = ts.ReadLine
response.write(" ")
response.write(data)
End If
Loop
to this:

Do While Not ts.AtEndOfStream
data = ts.ReadLine
If not test(Left(data, 4)) Then
response.write(" ")
response.write(data)
End If
Loop
Eric wrote:
Yes my program read one line per item and some times there are more
then one line. I need help how to i read the whole information (which
some times consist of more then one line) of each item. For eg.

[Current Services]
HBO on Demand
iO Silver Pkg
iO Box
PPOF
TripleDoubleOV
DoublPlyOOL
OV Ported Number

Current Services has more then one line and the program only read the
first line that is HBO on Demand and skip rest of the line . Please
help
----------------------------------------------------------------------
-----------
Bob Barrows [MVP] wrote:
Eric wrote:
When data is more than one line it skip the second line in my
program. Case Summary where it get data only from first line. I
need help what changes i will do in my program so that it read
the whole summary from text file.

ERROR

-----------

Case "[Sum"
test = True
OUTPUT
------------
cust states that they and no one in the household ever

ORIGINAL DATA
------------------------

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

--

>----

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
response.write(" ")
response.write(data)
End If
Loop
Next
ts.Close
End Function

EnumerateFolder "c:\txt"

I'm not really sure what your desired output is, but try this:

Do While Not ts.AtEndOfStream
data = ts.ReadLine
If not test(Left(data, 4)) Then
response.write(" ")
response.write(data)
End If
Loop

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get
a quicker response by posting to the newsgroup.

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

Aug 9 '06 #6

Dave Anderson

Eric wrote:

Yes my program read one line per item and some times there
are more then one line. I need help how to i read the whole
information (which some times consist of more then one line)
of each item. For eg.

Why not just output the entire file? Is it because you are only interested
in a few fields? In that case, I suggest you parse the whole thing in
advance in a manner similar to this:

Set fso = CreateObject("Scripting.FileSystemObject")
Set fol = fso.Getfolder ( server.mappath(sfolder) )
For each fil in fol.files
Set customer = CreateObject("Scripting.Dictionary")
Set ts = fil.openastextstream(1)
ary = Split(ts.ReadAll(),"[")
ts.Close
For i = 1 to Ubound(ary)
data = Split(ary(i),"]")
customer.Add data(0), data(1)
Next

{ do something with the customer record }

Next

In the above scenario[1], you can access such items as:

customer("Account Number")
customer("Summary")
customer("etc.")

[1] This simplified version depends entirely on the exclusive use of [ and ]
as delimiters. If your data may possibly contain them, adjust accordingly

--
Dave Anderson

Unsolicited commercial email will be read at a cost of $500 per message. Use
of this email address implies consent to these terms.

Aug 9 '06 #7

Bob Barrows [MVP]

Eric wrote:

Thank you very much man you are really great. Now second step is to
put the data into access table. Logic which i am going to use is to
put one by one into an array then from array into table. Any other
easy logic if you have i would be very appreciate.

I can't make any suggestions without knowing what you intend to do with
the data, and some details about how you will be storing the data (field
names and datatypes).
--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

Aug 9 '06 #8

Eric

I try to insert some data in my table name customer(Customer_Name,
Street, Account_No) from data:
[Customer's Name]
[Street]
[Account Number]
How to i do that needs help
-----------------------------------------------------

Set con = Server.CreateObject("ADODB.Connection")
sConnection ="Provider=MSDASQL.1;Persist Security Info=False;Data
Source=emp1"
con.Open(sConnection)

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 customer = CreateObject("Scripting.Dictionary")
Set ts = fil.openastextstream(1)
ary = Split(ts.ReadAll(),"[")
ts.Close
For i = 1 to Ubound(ary)
data = Split(ary(i),"]")
customer.Add data(0), data(1)
Next
next
End Function

EnumerateFolder "c:\txt"

Function test(s)
Select Case s

Case "[Dat"
test = True

Case "[Nov"
test = True

Case "[Sub"
test = True

Case "[Cus"
test = True

Case "[Str"
test = True

Case "[Cit"
test = True

Case "[Acc"
test = True

Case "[Ins"
test = True

Case "[Las"
test = True

Case "[PPV"
test = True

Case "[Mon"
test = True

Case "[Cur"
test = True

Case "[Typ"
test = True

Case "[Lan"
test = True

Case "[CRC"
test = True

Case "[Eve"
test = True

Case "[Sum"
test = True

Case "[Box"
test = True

Case "[MD"
test = True

Case "[Con"
test = True

End Select
End Function

-----SAMPLE 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

Aug 9 '06 #9

by: AIM | last post by:

Error in msvc in building inheritance.obj to build hello.pyd Hello, I am trying to build the boost 1.31.0 sample extension hello.cpp. I can not compile the file inheritance.cpp because the two...

Python

Reference-counted error objects

by: Gregory | last post by:

Hi, One of the disadvantages of using error handling with error codes instead of exception handling is that error codes retuned from a function can be forgotten to check thus leading to...

C / C++

Error Handler best practices

by: deko | last post by:

I use this convention frequently: Exit_Here: Exit Sub HandleErr: Select Case Err.Number Case 3163 Resume Next Case 3376 Resume Next

Microsoft Access / VBA

Error crystal websetup 9 install

by: p | last post by:

WE had a Crystal 8 WebApp using vs 2002 which we upgraded to VS2003. I also have Crystal 9 pro on my development machine. The web app runs fine on my dev machine but am having problems deploying....

ASP.NET

error: syntax error before '*' token

by: Manuel | last post by:

I'm trying to compile glut 3.7.6 (dowbloaded from official site)using devc++. So I've imported the glut32.dsp into devc++, included manually some headers, and start to compile. It return a very...

C / C++

ERROR [HY000] [Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xffc Thread 0x228 DBC 0x437b94 Jet'. ERROR [IM006] [Microsoft][ODBC Driver Manager] Driver's SQLSetConnectAttr

by: bazzer | last post by:

hey, im trying to access a microsoft access database from an ASP.NET web application in visual basic 2003.NET. i get the following error when i try running it: Server Error in...

ASP.NET

Linker error

by: developer | last post by:

Hi All I have made a .NET project. the files included are borland c++ files that i am migrate to VC++ .NET I am using Microsoft Visual C++ .NET 2003. the compilation goes through properly,...

.NET Framework

Error: vbc : error BC30464

by: mchuc7719 | last post by:

Hello, I have a Vb.Net 2005 ClassLibrary, when I try to compile using MSBee, only get errors. Before I to run the command line, I open in notepad the .vbproj and I was add the next line: ...

.NET Framework

Custom Error Messages in Access

by: hyperpau | last post by:

Before anything else, I am not a very technical expert when it comes to VBA coding. I learned most of what I know by the excellent Access/VBA forum from bytes.com (formerly thescripts.com). Ergo, I...

Visual Basic 4 / 5 / 6

Custom Error Messages

by: hyperpau | last post by:

Microsoft Access / VBA

How to turn on java script in a villaon keypad mobile phone

by: Charles Arthur | last post by:

How do i turn on java script on a villaon, callus and itel keypad mobile phone

Java

Navigating the Data Structures and Algorithms (DSA)

by: BarryA | last post by:

What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...

Algorithms / Advanced Math

Looking to do Android software development, any suggestions? Is flutter better?

by: nemocccc | last post by:

hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?

General

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...

Microsoft Access / VBA

Similar topics