CASE help

Joey Martin

I am scanning an HTML file.
I need to gather certain data from areas that start with text.

Let me show the code, then explain more.
----
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(TheFilePath)

Set ts = f.OpenAsTextStream(1,-2)

Section = "Header"
Do While not ts.AtEndOfStream
Tmp_Line = ts.ReadLine
Select Case mid(Tmp_Line,48,2)
Case " "
Section = "TheMoney"
Case "Pi"
Section = "ThePick"
Case ">J"
Section = "TheDate"
End Select

Select Case Section
Case "TheMoney"
TheMoney = TheMoney & FixGrades(Tmp_Line) & CHR(13)
Case "ThePick"
ThePick = ThePick & FixGrades(Tmp_Line) & CHR(13)
Case "TheDate"
TheDate = TheDate & FixGrades(Tmp_Line) & CHR(13)
End Select

TextStreamTest = TextStreamTest & CHR(13) & FixGrades(Tmp_Line)
response.write TheMoney & " "
response.write ThePick & " "
response.write TheDate & " "

Loop
ts.Close
-----------

My end result is to be able to grab TheMoney,ThePick,TheDate and then insert
them into a sql db. Then to scan more html to find the next instance of the
information and insert into database. I can do all the db stuff. The data is
just not pulling correctly. And it scans EVERY LINE instead of only the
sections that start with the HTML code . How would I get it to do
this? Then, do you see anything else I am doing wrong for my end result?

I'd image seeing the text with my response.write displayed as:
TheMoney
ThePick
TheDate
then scanning the html and finding another instance
TheMoney
ThePick
TheDate
etc....

Jul 19 '05 #1

Subscribe Post Reply

1664

Ray at

Do you know for a fact that all lines will be at least 49 characters long?
You could do something like this:
Do While not ts.AtEndOfStream
sPart = Mid(ts.ReadLine & String(49," "), 48, 2)
Select Case sPart
Case " "
TheMoney = TheMoney & FixGrades(sPart) & CHR(13)
Case "Pi"
ThePick = ThePick & FixGrades(sPart) & CHR(13)
Case ">J"
TheDate = TheDate & FixGrades(sPart) & CHR(13)
End Select

I didn't really follow exactly what your goal is, so I figured I'd just trim
down your code a little. :]

Ray at work

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:Uz****************@bignews1.bellsouth.net...

I am scanning an HTML file.
I need to gather certain data from areas that start with text.

Let me show the code, then explain more.
----
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(TheFilePath)

Set ts = f.OpenAsTextStream(1,-2)

Section = "Header"
Do While not ts.AtEndOfStream
Tmp_Line = ts.ReadLine
Select Case mid(Tmp_Line,48,2)
Case " "
Section = "TheMoney"
Case "Pi"
Section = "ThePick"
Case ">J"
Section = "TheDate"
End Select

Select Case Section
Case "TheMoney"
TheMoney = TheMoney & FixGrades(Tmp_Line) & CHR(13)
Case "ThePick"
ThePick = ThePick & FixGrades(Tmp_Line) & CHR(13)
Case "TheDate"
TheDate = TheDate & FixGrades(Tmp_Line) & CHR(13)
End Select

TextStreamTest = TextStreamTest & CHR(13) & FixGrades(Tmp_Line)
response.write TheMoney & " "
response.write ThePick & " "
response.write TheDate & " "

Loop
ts.Close
-----------

My end result is to be able to grab TheMoney,ThePick,TheDate and then insert them into a sql db. Then to scan more html to find the next instance of the information and insert into database. I can do all the db stuff. The data is just not pulling correctly. And it scans EVERY LINE instead of only the
sections that start with the HTML code . How would I get it to do
this? Then, do you see anything else I am doing wrong for my end result?

I'd image seeing the text with my response.write displayed as:
TheMoney
ThePick
TheDate
then scanning the html and finding another instance
TheMoney
ThePick
TheDate
etc....

Jul 19 '05 #2

Aaron [SQL Server MVP]

> Do While not ts.AtEndOfStream

sPart = Mid(ts.ReadLine & String(49," "), 48, 2)
No offense Ray, but whenever I see this technique, I always try to correct
it. I think the following will be much more efficient (to a certain file
size threshold, at least), since you're not keeping a handle on the file
throughout your coding logic.

s = ts.ReadAll()
ts.close: set ts = nothing
s = split(s, VBCrLf)
for i = 0 to ubound(s)
sPart = Mid(s(i) & String(49, " "), 48, 2)
...
next
There will be an upper bound to the improved efficiency, as calling
readall() on a 50 MB file is not likely to be pretty. But I think in most
cases the above is a better technique than While not AtEndOfStream.

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Ray at <%=sLocation%> [MVP]" <myfirstname at lane34 dot com> wrote in
message news:#D**************@TK2MSFTNGP10.phx.gbl... Do you know for a fact that all lines will be at least 49 characters long?
You could do something like this:
Do While not ts.AtEndOfStream
sPart = Mid(ts.ReadLine & String(49," "), 48, 2)
Select Case sPart
Case " "
TheMoney = TheMoney & FixGrades(sPart) & CHR(13)
Case "Pi"
ThePick = ThePick & FixGrades(sPart) & CHR(13)
Case ">J"
TheDate = TheDate & FixGrades(sPart) & CHR(13)
End Select

I didn't really follow exactly what your goal is, so I figured I'd just trim down your code a little. :]

Ray at work

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:Uz****************@bignews1.bellsouth.net...
I am scanning an HTML file.
I need to gather certain data from areas that start with text.

Let me show the code, then explain more.
----
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(TheFilePath)

Set ts = f.OpenAsTextStream(1,-2)

Section = "Header"
Do While not ts.AtEndOfStream
Tmp_Line = ts.ReadLine
Select Case mid(Tmp_Line,48,2)
Case " "
Section = "TheMoney"
Case "Pi"
Section = "ThePick"
Case ">J"
Section = "TheDate"
End Select

Select Case Section
Case "TheMoney"
TheMoney = TheMoney & FixGrades(Tmp_Line) & CHR(13)
Case "ThePick"
ThePick = ThePick & FixGrades(Tmp_Line) & CHR(13)
Case "TheDate"
TheDate = TheDate & FixGrades(Tmp_Line) & CHR(13)
End Select

TextStreamTest = TextStreamTest & CHR(13) & FixGrades(Tmp_Line)
response.write TheMoney & " "
response.write ThePick & " "
response.write TheDate & " "

Loop
ts.Close
-----------

My end result is to be able to grab TheMoney,ThePick,TheDate and then insert
them into a sql db. Then to scan more html to find the next instance of

the
information and insert into database. I can do all the db stuff. The

data is
just not pulling correctly. And it scans EVERY LINE instead of only the
sections that start with the HTML code . How would I get it to do
this? Then, do you see anything else I am doing wrong for my end result?

I'd image seeing the text with my response.write displayed as:
TheMoney
ThePick
TheDate
then scanning the html and finding another instance
TheMoney
ThePick
TheDate
etc....

Jul 19 '05 #3

Joey Martin

Ray and Aaron,
Thanks for your input...but it still does not help me get to my end result.
I only want it to start looking at blocks of code that start with 
"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:%2***************@TK2MSFTNGP12.phx.gbl...

Do While not ts.AtEndOfStream
sPart = Mid(ts.ReadLine & String(49," "), 48, 2)

No offense Ray, but whenever I see this technique, I always try to correct
it. I think the following will be much more efficient (to a certain file
size threshold, at least), since you're not keeping a handle on the file
throughout your coding logic.

s = ts.ReadAll()
ts.close: set ts = nothing
s = split(s, VBCrLf)
for i = 0 to ubound(s)
sPart = Mid(s(i) & String(49, " "), 48, 2)
...
next
There will be an upper bound to the improved efficiency, as calling
readall() on a 50 MB file is not likely to be pretty. But I think in most
cases the above is a better technique than While not AtEndOfStream.

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Ray at <%=sLocation%> [MVP]" <myfirstname at lane34 dot com> wrote in
message news:#D**************@TK2MSFTNGP10.phx.gbl...
Do you know for a fact that all lines will be at least 49 characters long? You could do something like this:
Do While not ts.AtEndOfStream
sPart = Mid(ts.ReadLine & String(49," "), 48, 2)
Select Case sPart
Case " "
TheMoney = TheMoney & FixGrades(sPart) & CHR(13)
Case "Pi"
ThePick = ThePick & FixGrades(sPart) & CHR(13)
Case ">J"
TheDate = TheDate & FixGrades(sPart) & CHR(13)
End Select

I didn't really follow exactly what your goal is, so I figured I'd just

trim
down your code a little. :]

Ray at work

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:Uz****************@bignews1.bellsouth.net...
I am scanning an HTML file.
I need to gather certain data from areas that start with text.

Let me show the code, then explain more.
----
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(TheFilePath)

Set ts = f.OpenAsTextStream(1,-2)

Section = "Header"
Do While not ts.AtEndOfStream
Tmp_Line = ts.ReadLine
Select Case mid(Tmp_Line,48,2)
Case " "
Section = "TheMoney"
Case "Pi"
Section = "ThePick"
Case ">J"
Section = "TheDate"
End Select

Select Case Section
Case "TheMoney"
TheMoney = TheMoney & FixGrades(Tmp_Line) & CHR(13)
Case "ThePick"
ThePick = ThePick & FixGrades(Tmp_Line) & CHR(13)
Case "TheDate"
TheDate = TheDate & FixGrades(Tmp_Line) & CHR(13)
End Select

TextStreamTest = TextStreamTest & CHR(13) & FixGrades(Tmp_Line)
response.write TheMoney & " "
response.write ThePick & " "
response.write TheDate & " "

Loop
ts.Close
-----------

My end result is to be able to grab TheMoney,ThePick,TheDate and then

insert
them into a sql db. Then to scan more html to find the next instance of
the
information and insert into database. I can do all the db stuff. The

data
is
just not pulling correctly. And it scans EVERY LINE instead of only

the sections that start with the HTML code . How would I get it to do this? Then, do you see anything else I am doing wrong for my end result?
I'd image seeing the text with my response.write displayed as:
TheMoney
ThePick
TheDate
then scanning the html and finding another instance
TheMoney
ThePick
TheDate
etc....

Jul 19 '05 #4

Ray at

"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:%2***************@TK2MSFTNGP12.phx.gbl...

Do While not ts.AtEndOfStream
sPart = Mid(ts.ReadLine & String(49," "), 48, 2)
No offense Ray, but whenever I see this technique, I always try to correct
it. I

s = ts.ReadAll()
ts.close: set ts = nothing
s = split(s, VBCrLf) But I think in most
cases the above is a better technique than While not AtEndOfStream.

Not offended. I agree!

Ray at work

Jul 19 '05 #5

Ray at

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:Yq*****************@bignews4.bellsouth.net...

Ray and Aaron,
Thanks for your input...but it still does not help me get to my end result. I only want it to start looking at blocks of code that start with

Blocks of code? Lines in the file? Can you post a snippet from a sample
file that you're reading or something so we can try to understand what
you're trying to do?

Ray at work

Jul 19 '05 #6

Joey Martin

Here is a sample of the file I am importing:


<TR>
<TD ALIGN="right" BGCOLOR="FFFFFF"> $4,962</TD>
<TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick 6</TD>

<TD BGCOLOR="FFFFFF" ALIGN="CENTER">Hastings</TD>
<TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12, 2004</td>
</tr>
There is additional html before the first that I want to ignore. I
pretty much want to bring in each piece of information that is within that
block of text minus the html codes, for each INSTANCE of that section that
appears.

Thanks for the help!

Jul 19 '05 #7

Ray at

This probably isn't the best method around, as they're may be a better way
using regular expressions and what not, but it will give basic
functionality.
Function SuckSmall(theLine)
Dim iStart, iEnd
SuckSmall = ""
iStart = InStr(1, theLine, "", 1)
If iStart = 0 Then Exit Function
iEnd = InStr(iStart, theLine, "", 1)
If iEnd = 0 Then Exit Function
SuckSmall = Mid(theLine, iStart + 7, iEnd - iStart - 7)
''''7 is the length of "" which is where the iStart will be
End Function
''(see Aaron's post)
s = ts.ReadAll()
ts.close: set ts = nothing
s = split(s, VBCrLf)
for i = 0 to ubound(s)
sData = SuckSmall(s(i))
If sData <> "" Then Response.write sData & " "
next
Ray at work

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:aH******************@bignews3.bellsouth.net.. .

Here is a sample of the file I am importing:


<TR>
<TD ALIGN="right" BGCOLOR="FFFFFF"> $4,962</TD>
<TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick 6</TD>

<TD BGCOLOR="FFFFFF" ALIGN="CENTER">Hastings</TD>
<TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12, 2004</td>
</tr>
There is additional html before the first that I want to ignore. I
pretty much want to bring in each piece of information that is within that
block of text minus the html codes, for each INSTANCE of that section that
appears.

Thanks for the help!

Jul 19 '05 #8

Aaron [SQL Server MVP]

Sheesh, why don't you store information in a database instead of a text
file?

Or have you considered using CSS, and some kind of marker to indicate a
valid data row? Imagine how much easier it would be if you had this:

<crap HTML we don't care about>blah</crap>
<TR>

<TD Class=right>$4,962</TD>
<TD Class=mid>Pick 6</TD>
<TD Class=mid>Hastings</TD>
<TD Class=mid>June 12, 2004</TD>

</TR>
<TR>

<TD Class=right>$200</TD>
<TD Class=mid>Pick 4</TD>
<TD Class=mid>New York</TD>
<TD Class=mid>June 18, 2004</TD>

</TR>

Anyway, I won't produce the code for that, because the typical response is
"pointy-haired boss won't let me change the format of the file." So,

....

s = ts.ReadAll()
ts.close: set ts = nothing

s = split(s, VBCrLf)
for i = 0 to ubound(s)
s(i) = trim(s(i))
bg = instr(s(i), "BGCOLOR")
s1 = instr(s(i), "")
s2 = instr(s(i), "")
if s1 = 1 then response.write "------- "
if bg > 0 then
if s1 > bg and s2 > s1 then
response.write mid(s(i), s1+7, s2-(s1+7))
response.write " "
end if
end if
next
response.write "------- "

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:aH******************@bignews3.bellsouth.net.. .

Here is a sample of the file I am importing:


<TR>
<TD ALIGN="right" BGCOLOR="FFFFFF"> $4,962</TD>
<TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick 6</TD>

<TD BGCOLOR="FFFFFF" ALIGN="CENTER">Hastings</TD>
<TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12, 2004</td>
</tr>
There is additional html before the first that I want to ignore. I
pretty much want to bring in each piece of information that is within that
block of text minus the html codes, for each INSTANCE of that section that
appears.

Thanks for the help!

Jul 19 '05 #9

Joey Martin

Wow...that was perfect...I know the first thing I was doing wrong was the
use of the INSTR function.

Anyways...thanks so much!

"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:Oa**************@TK2MSFTNGP10.phx.gbl...

Sheesh, why don't you store information in a database instead of a text
file?

Or have you considered using CSS, and some kind of marker to indicate a
valid data row? Imagine how much easier it would be if you had this:

<crap HTML we don't care about>blah</crap>
<TR>

<TD Class=right>$4,962</TD>
<TD Class=mid>Pick 6</TD>
<TD Class=mid>Hastings</TD>
<TD Class=mid>June 12, 2004</TD>

</TR>
<TR>

<TD Class=right>$200</TD>
<TD Class=mid>Pick 4</TD>
<TD Class=mid>New York</TD>
<TD Class=mid>June 18, 2004</TD>

</TR>

Anyway, I won't produce the code for that, because the typical response is
"pointy-haired boss won't let me change the format of the file." So,

...

s = ts.ReadAll()
ts.close: set ts = nothing

s = split(s, VBCrLf)
for i = 0 to ubound(s)
s(i) = trim(s(i))
bg = instr(s(i), "BGCOLOR")
s1 = instr(s(i), "")
s2 = instr(s(i), "")
if s1 = 1 then response.write "------- "
if bg > 0 then
if s1 > bg and s2 > s1 then
response.write mid(s(i), s1+7, s2-(s1+7))
response.write " "
end if
end if
next
response.write "------- "

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:aH******************@bignews3.bellsouth.net.. .
Here is a sample of the file I am importing:


<TR>
<TD ALIGN="right" BGCOLOR="FFFFFF"> $4,962</TD>
<TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick 6</TD>

<TD BGCOLOR="FFFFFF" ALIGN="CENTER">Hastings</TD>
<TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12, 2004</td> </tr>
There is additional html before the first that I want to ignore. I pretty much want to bring in each piece of information that is within that block of text minus the html codes, for each INSTANCE of that section that appears.

Thanks for the help!

Jul 19 '05 #10

Joey Martin

Hmmm....trying to figure out how to insert each block into database field,
themoney,thepick,thetrack,thedate
"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:Oa**************@TK2MSFTNGP10.phx.gbl...

Sheesh, why don't you store information in a database instead of a text
file?

Or have you considered using CSS, and some kind of marker to indicate a
valid data row? Imagine how much easier it would be if you had this:

<crap HTML we don't care about>blah</crap>
<TR>

<TD Class=right>$4,962</TD>
<TD Class=mid>Pick 6</TD>
<TD Class=mid>Hastings</TD>
<TD Class=mid>June 12, 2004</TD>

</TR>
<TR>

<TD Class=right>$200</TD>
<TD Class=mid>Pick 4</TD>
<TD Class=mid>New York</TD>
<TD Class=mid>June 18, 2004</TD>

</TR>

Anyway, I won't produce the code for that, because the typical response is
"pointy-haired boss won't let me change the format of the file." So,

...

s = ts.ReadAll()
ts.close: set ts = nothing

s = split(s, VBCrLf)
for i = 0 to ubound(s)
s(i) = trim(s(i))
bg = instr(s(i), "BGCOLOR")
s1 = instr(s(i), "")
s2 = instr(s(i), "")
if s1 = 1 then response.write "------- "
if bg > 0 then
if s1 > bg and s2 > s1 then
response.write mid(s(i), s1+7, s2-(s1+7))
response.write " "
end if
end if
next
response.write "------- "

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:aH******************@bignews3.bellsouth.net.. .
Here is a sample of the file I am importing:


<TR>
<TD ALIGN="right" BGCOLOR="FFFFFF"> $4,962</TD>
<TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick 6</TD>

<TD BGCOLOR="FFFFFF" ALIGN="CENTER">Hastings</TD>
<TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12, 2004</td> </tr>
There is additional html before the first that I want to ignore. I pretty much want to bring in each piece of information that is within that block of text minus the html codes, for each INSTANCE of that section that appears.

Thanks for the help!

Jul 19 '05 #11

Aaron [SQL Server MVP]

As one string into one column? Separated by what, commas, VBCrLf, HTML line
breaks, ...?

BE SPECIFIC.

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:NU**************@bignews6.bellsouth.net...

Hmmm....trying to figure out how to insert each block into database field,
themoney,thepick,thetrack,thedate
"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:Oa**************@TK2MSFTNGP10.phx.gbl...
Sheesh, why don't you store information in a database instead of a text
file?

Or have you considered using CSS, and some kind of marker to indicate a
valid data row? Imagine how much easier it would be if you had this:

<crap HTML we don't care about>blah</crap>
<TR>

<TD Class=right>$4,962</TD>
<TD Class=mid>Pick 6</TD>
<TD Class=mid>Hastings</TD>
<TD Class=mid>June 12, 2004</TD>

</TR>
<TR>

<TD Class=right>$200</TD>
<TD Class=mid>Pick 4</TD>
<TD Class=mid>New York</TD>
<TD Class=mid>June 18, 2004</TD>

</TR>

Anyway, I won't produce the code for that, because the typical response is
"pointy-haired boss won't let me change the format of the file." So,

...

s = ts.ReadAll()
ts.close: set ts = nothing

s = split(s, VBCrLf)
for i = 0 to ubound(s)
s(i) = trim(s(i))
bg = instr(s(i), "BGCOLOR")
s1 = instr(s(i), "")
s2 = instr(s(i), "")
if s1 = 1 then response.write "------- "
if bg > 0 then
if s1 > bg and s2 > s1 then
response.write mid(s(i), s1+7, s2-(s1+7))
response.write " "
end if
end if
next
response.write "------- "

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:aH******************@bignews3.bellsouth.net.. .
Here is a sample of the file I am importing:


<TR>
<TD ALIGN="right" BGCOLOR="FFFFFF"> $4,962</TD>
<TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick 6</TD>

<TD BGCOLOR="FFFFFF" ALIGN="CENTER">Hastings</TD>
<TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12,
2004</td> </tr>
There is additional html before the first that I want to
ignore. I pretty much want to bring in each piece of information that is within that block of text minus the html codes, for each INSTANCE of that section that appears.

Thanks for the help!

Jul 19 '05 #12

Joey Martin

Your code returns the following:

$8,394
Pick 6
Bay Meadows
June 10, 2004
-------
$7,496
Pick 6
Los Alamitos
June 10, 2004

I would like to enter the 1st grouping into a db table called co_results.
line 1 is TheMoney field, line 2 is ThePick field, line 3 is TheTrack field,
and line 4 is TheDate field.

Then go to the next grouping and insert a new row of data. And on and on....
"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:uq*************@TK2MSFTNGP11.phx.gbl...

As one string into one column? Separated by what, commas, VBCrLf, HTML line breaks, ...?

BE SPECIFIC.

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:NU**************@bignews6.bellsouth.net...
Hmmm....trying to figure out how to insert each block into database field,
themoney,thepick,thetrack,thedate
"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:Oa**************@TK2MSFTNGP10.phx.gbl...
Sheesh, why don't you store information in a database instead of a text file?

Or have you considered using CSS, and some kind of marker to indicate a valid data row? Imagine how much easier it would be if you had this:

<crap HTML we don't care about>blah</crap>
<TR>

<TD Class=right>$4,962</TD>
<TD Class=mid>Pick 6</TD>
<TD Class=mid>Hastings</TD>
<TD Class=mid>June 12, 2004</TD>

</TR>
<TR>

<TD Class=right>$200</TD>
<TD Class=mid>Pick 4</TD>
<TD Class=mid>New York</TD>
<TD Class=mid>June 18, 2004</TD>

</TR>

Anyway, I won't produce the code for that, because the typical response
is "pointy-haired boss won't let me change the format of the file." So,

...

s = ts.ReadAll()
ts.close: set ts = nothing

s = split(s, VBCrLf)
for i = 0 to ubound(s)
s(i) = trim(s(i))
bg = instr(s(i), "BGCOLOR")
s1 = instr(s(i), "")
s2 = instr(s(i), "")
if s1 = 1 then response.write "------- "
if bg > 0 then
if s1 > bg and s2 > s1 then
response.write mid(s(i), s1+7, s2-(s1+7))
response.write " "
end if
end if
next
response.write "------- "

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:aH******************@bignews3.bellsouth.net.. .
> Here is a sample of the file I am importing:
>
> 
> <TR>
> <TD ALIGN="right" BGCOLOR="FFFFFF">
$4,962</TD> > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick 6</TD>
>
> <TD BGCOLOR="FFFFFF" ALIGN="CENTER">Hastings</TD>
> <TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12,

2004</td>
> </tr>
>
>
> There is additional html before the first that I want to

ignore.
I
> pretty much want to bring in each piece of information that is

within that
> block of text minus the html codes, for each INSTANCE of that
section that
> appears.
>
> Thanks for the help!
>
>

Jul 19 '05 #13

Aaron [SQL Server MVP]

Now, does co_results have any specific data structure? Just one column?
What is the column called?

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:W1*****************@bignews5.bellsouth.net...

Your code returns the following:

$8,394
Pick 6
Bay Meadows
June 10, 2004
-------
$7,496
Pick 6
Los Alamitos
June 10, 2004

I would like to enter the 1st grouping into a db table called co_results.
line 1 is TheMoney field, line 2 is ThePick field, line 3 is TheTrack field, and line 4 is TheDate field.

Then go to the next grouping and insert a new row of data. And on and on....

"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:uq*************@TK2MSFTNGP11.phx.gbl...
As one string into one column? Separated by what, commas, VBCrLf, HTML line
breaks, ...?

BE SPECIFIC.

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:NU**************@bignews6.bellsouth.net...
Hmmm....trying to figure out how to insert each block into database field, themoney,thepick,thetrack,thedate
"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:Oa**************@TK2MSFTNGP10.phx.gbl...
> Sheesh, why don't you store information in a database instead of a text > file?
>
> Or have you considered using CSS, and some kind of marker to indicate a
> valid data row? Imagine how much easier it would be if you had
this: >
> <crap HTML we don't care about>blah</crap>
> <TR>
> 
> <TD Class=right>$4,962</TD>
> <TD Class=mid>Pick 6</TD>
> <TD Class=mid>Hastings</TD>
> <TD Class=mid>June 12, 2004</TD>
> 
> </TR>
> <TR>
> 
> <TD Class=right>$200</TD>
> <TD Class=mid>Pick 4</TD>
> <TD Class=mid>New York</TD>
> <TD Class=mid>June 18, 2004</TD>
> 
> </TR>
>
> Anyway, I won't produce the code for that, because the typical

response
is
> "pointy-haired boss won't let me change the format of the file." So, >
> ...
>
> s = ts.ReadAll()
> ts.close: set ts = nothing
>
> s = split(s, VBCrLf)
> for i = 0 to ubound(s)
> s(i) = trim(s(i))
> bg = instr(s(i), "BGCOLOR")
> s1 = instr(s(i), "")
> s2 = instr(s(i), "")
> if s1 = 1 then response.write "------- "
> if bg > 0 then
> if s1 > bg and s2 > s1 then
> response.write mid(s(i), s1+7, s2-(s1+7))
> response.write " "
> end if
> end if
> next
> response.write "------- "
>
>
>
> --
> http://www.aspfaq.com/
> (Reverse address to reply.)
>
>
>
>
> "Joey Martin" <jo**@infosmiths.net> wrote in message
> news:aH******************@bignews3.bellsouth.net.. .
> > Here is a sample of the file I am importing:
> >
> > 
> > <TR>
> > <TD ALIGN="right" BGCOLOR="FFFFFF">

$4,962</TD> > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick 6</TD>
> >
> > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">Hastings</TD> > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12,
2004</td>
> > </tr>
> >
> >
> > There is additional html before the first that I want to

ignore.
I
> > pretty much want to bring in each piece of information that is within that
> > block of text minus the html codes, for each INSTANCE of that section that
> > appears.
> >
> > Thanks for the help!
> >
> >
>
>

Jul 19 '05 #14

Joey Martin

Columns...
TheMoney
ThePick
TheTrack
TheDate

"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:Of**************@TK2MSFTNGP10.phx.gbl...

Now, does co_results have any specific data structure? Just one column?
What is the column called?

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:W1*****************@bignews5.bellsouth.net...
Your code returns the following:

$8,394
Pick 6
Bay Meadows
June 10, 2004
-------
$7,496
Pick 6
Los Alamitos
June 10, 2004

I would like to enter the 1st grouping into a db table called co_results.
line 1 is TheMoney field, line 2 is ThePick field, line 3 is TheTrack

field,
and line 4 is TheDate field.

Then go to the next grouping and insert a new row of data. And on and

on....

"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:uq*************@TK2MSFTNGP11.phx.gbl...
As one string into one column? Separated by what, commas, VBCrLf, HTML
line
breaks, ...?

BE SPECIFIC.

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:NU**************@bignews6.bellsouth.net...
> Hmmm....trying to figure out how to insert each block into database

field,
> themoney,thepick,thetrack,thedate
> "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
> news:Oa**************@TK2MSFTNGP10.phx.gbl...
> > Sheesh, why don't you store information in a database instead of a

text
> > file?
> >
> > Or have you considered using CSS, and some kind of marker to

indicate
a
> > valid data row? Imagine how much easier it would be if you had

this: > >
> > <crap HTML we don't care about>blah</crap>
> > <TR>
> > 
> > <TD Class=right>$4,962</TD>
> > <TD Class=mid>Pick 6</TD>
> > <TD Class=mid>Hastings</TD>
> > <TD Class=mid>June 12, 2004</TD>
> > 
> > </TR>
> > <TR>
> > 
> > <TD Class=right>$200</TD>
> > <TD Class=mid>Pick 4</TD>
> > <TD Class=mid>New York</TD>
> > <TD Class=mid>June 18, 2004</TD>
> > 
> > </TR>
> >
> > Anyway, I won't produce the code for that, because the typical

response
is
> > "pointy-haired boss won't let me change the format of the file." So, > >
> > ...
> >
> > s = ts.ReadAll()
> > ts.close: set ts = nothing
> >
> > s = split(s, VBCrLf)
> > for i = 0 to ubound(s)
> > s(i) = trim(s(i))
> > bg = instr(s(i), "BGCOLOR")
> > s1 = instr(s(i), "")
> > s2 = instr(s(i), "")
> > if s1 = 1 then response.write "------- "
> > if bg > 0 then
> > if s1 > bg and s2 > s1 then
> > response.write mid(s(i), s1+7, s2-(s1+7))
> > response.write " "
> > end if
> > end if
> > next
> > response.write "------- "
> >
> >
> >
> > --
> > http://www.aspfaq.com/
> > (Reverse address to reply.)
> >
> >
> >
> >
> > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > news:aH******************@bignews3.bellsouth.net.. .
> > > Here is a sample of the file I am importing:
> > >
> > > 
> > > <TR>
> > > <TD ALIGN="right" BGCOLOR="FFFFFF">

$4,962</TD>
> > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick
6</TD> > > >
> > > <TD BGCOLOR="FFFFFF"

ALIGN="CENTER">Hastings</TD> > > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12,
> 2004</td>
> > > </tr>
> > >
> > >
> > > There is additional html before the first that I want to
ignore.
> I
> > > pretty much want to bring in each piece of information that is

within
> that
> > > block of text minus the html codes, for each INSTANCE of that

section
> that
> > > appears.
> > >
> > > Thanks for the help!
> > >
> > >
> >
> >
>
>

Jul 19 '05 #15

Aaron [SQL Server MVP]

What the heck purpose does the "The" prefix serve? Also, what are the
datatypes (is TheMoney a money datatype, a string... is TheDate a datetime,
a string, ...)?

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:7c*******************@bignews2.bellsouth.net. ..

Columns...
TheMoney
ThePick
TheTrack
TheDate

"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:Of**************@TK2MSFTNGP10.phx.gbl...
Now, does co_results have any specific data structure? Just one column?
What is the column called?

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:W1*****************@bignews5.bellsouth.net...
Your code returns the following:

$8,394
Pick 6
Bay Meadows
June 10, 2004
-------
$7,496
Pick 6
Los Alamitos
June 10, 2004

I would like to enter the 1st grouping into a db table called co_results. line 1 is TheMoney field, line 2 is ThePick field, line 3 is TheTrack

field,
and line 4 is TheDate field.

Then go to the next grouping and insert a new row of data. And on and

on....

"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:uq*************@TK2MSFTNGP11.phx.gbl...
> As one string into one column? Separated by what, commas, VBCrLf, HTML line
> breaks, ...?
>
> BE SPECIFIC.
>
> --
> http://www.aspfaq.com/
> (Reverse address to reply.)
>
>
>
>
> "Joey Martin" <jo**@infosmiths.net> wrote in message
> news:NU**************@bignews6.bellsouth.net...
> > Hmmm....trying to figure out how to insert each block into database field,
> > themoney,thepick,thetrack,thedate
> > "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
> > news:Oa**************@TK2MSFTNGP10.phx.gbl...
> > > Sheesh, why don't you store information in a database instead of a text
> > > file?
> > >
> > > Or have you considered using CSS, and some kind of marker to

indicate
a
> > > valid data row? Imagine how much easier it would be if you had

this:
> > >
> > > <crap HTML we don't care about>blah</crap>
> > > <TR>
> > > 
> > > <TD Class=right>$4,962</TD>
> > > <TD Class=mid>Pick 6</TD>
> > > <TD Class=mid>Hastings</TD>
> > > <TD Class=mid>June 12, 2004</TD>
> > > 
> > > </TR>
> > > <TR>
> > > 
> > > <TD Class=right>$200</TD>
> > > <TD Class=mid>Pick 4</TD>
> > > <TD Class=mid>New York</TD>
> > > <TD Class=mid>June 18, 2004</TD>
> > > 
> > > </TR>
> > >
> > > Anyway, I won't produce the code for that, because the typical
response
> is
> > > "pointy-haired boss won't let me change the format of the file."

So,
> > >
> > > ...
> > >
> > > s = ts.ReadAll()
> > > ts.close: set ts = nothing
> > >
> > > s = split(s, VBCrLf)
> > > for i = 0 to ubound(s)
> > > s(i) = trim(s(i))
> > > bg = instr(s(i), "BGCOLOR")
> > > s1 = instr(s(i), "")
> > > s2 = instr(s(i), "")
> > > if s1 = 1 then response.write "------- "
> > > if bg > 0 then
> > > if s1 > bg and s2 > s1 then
> > > response.write mid(s(i), s1+7, s2-(s1+7))
> > > response.write " "
> > > end if
> > > end if
> > > next
> > > response.write "------- "
> > >
> > >
> > >
> > > --
> > > http://www.aspfaq.com/
> > > (Reverse address to reply.)
> > >
> > >
> > >
> > >
> > > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > > news:aH******************@bignews3.bellsouth.net.. .
> > > > Here is a sample of the file I am importing:
> > > >
> > > > 
> > > > <TR>
> > > > <TD ALIGN="right" BGCOLOR="FFFFFF">
$4,962</TD>
> > > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick 6</TD> > > > >
> > > > <TD BGCOLOR="FFFFFF"

ALIGN="CENTER">Hastings</TD>
> > > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12,
> > 2004</td>
> > > > </tr>
> > > >
> > > >
> > > > There is additional html before the first that I want to > ignore.
> > I
> > > > pretty much want to bring in each piece of information that is
within
> > that
> > > > block of text minus the html codes, for each INSTANCE of that
section
> > that
> > > > appears.
> > > >
> > > > Thanks for the help!
> > > >
> > > >
> > >
> > >
> >
> >
>
>

Jul 19 '05 #16

Joey Martin

THE is nothing.
money is money
date is smalldatetime
track is char
pick is char
"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...

What the heck purpose does the "The" prefix serve? Also, what are the
datatypes (is TheMoney a money datatype, a string... is TheDate a datetime, a string, ...)?

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:7c*******************@bignews2.bellsouth.net. ..
Columns...
TheMoney
ThePick
TheTrack
TheDate

"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:Of**************@TK2MSFTNGP10.phx.gbl...
Now, does co_results have any specific data structure? Just one column? What is the column called?

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:W1*****************@bignews5.bellsouth.net...
> Your code returns the following:
>
> $8,394
> Pick 6
> Bay Meadows
> June 10, 2004
> -------
> $7,496
> Pick 6
> Los Alamitos
> June 10, 2004
>
> I would like to enter the 1st grouping into a db table called co_results.
> line 1 is TheMoney field, line 2 is ThePick field, line 3 is TheTrack field,
> and line 4 is TheDate field.
>
> Then go to the next grouping and insert a new row of data. And on and on....
>
>
> "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
> news:uq*************@TK2MSFTNGP11.phx.gbl...
> > As one string into one column? Separated by what, commas, VBCrLf,

HTML
> line
> > breaks, ...?
> >
> > BE SPECIFIC.
> >
> > --
> > http://www.aspfaq.com/
> > (Reverse address to reply.)
> >
> >
> >
> >
> > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > news:NU**************@bignews6.bellsouth.net...
> > > Hmmm....trying to figure out how to insert each block into database > field,
> > > themoney,thepick,thetrack,thedate
> > > "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message > > > news:Oa**************@TK2MSFTNGP10.phx.gbl...
> > > > Sheesh, why don't you store information in a database instead of a
> text
> > > > file?
> > > >
> > > > Or have you considered using CSS, and some kind of marker to
indicate
> a
> > > > valid data row? Imagine how much easier it would be if you
had this:
> > > >
> > > > <crap HTML we don't care about>blah</crap>
> > > > <TR>
> > > > 
> > > > <TD Class=right>$4,962</TD>
> > > > <TD Class=mid>Pick 6</TD>
> > > > <TD Class=mid>Hastings</TD>
> > > > <TD Class=mid>June 12, 2004</TD>
> > > > 
> > > > </TR>
> > > > <TR>
> > > > 
> > > > <TD Class=right>$200</TD>
> > > > <TD Class=mid>Pick 4</TD>
> > > > <TD Class=mid>New York</TD>
> > > > <TD Class=mid>June 18, 2004</TD>
> > > > 
> > > > </TR>
> > > >
> > > > Anyway, I won't produce the code for that, because the typical
> response
> > is
> > > > "pointy-haired boss won't let me change the format of the file." So,
> > > >
> > > > ...
> > > >
> > > > s = ts.ReadAll()
> > > > ts.close: set ts = nothing
> > > >
> > > > s = split(s, VBCrLf)
> > > > for i = 0 to ubound(s)
> > > > s(i) = trim(s(i))
> > > > bg = instr(s(i), "BGCOLOR")
> > > > s1 = instr(s(i), "")
> > > > s2 = instr(s(i), "")
> > > > if s1 = 1 then response.write "------- "
> > > > if bg > 0 then
> > > > if s1 > bg and s2 > s1 then
> > > > response.write mid(s(i), s1+7, s2-(s1+7))
> > > > response.write " "
> > > > end if
> > > > end if
> > > > next
> > > > response.write "------- "
> > > >
> > > >
> > > >
> > > > --
> > > > http://www.aspfaq.com/
> > > > (Reverse address to reply.)
> > > >
> > > >
> > > >
> > > >
> > > > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > > > news:aH******************@bignews3.bellsouth.net.. .
> > > > > Here is a sample of the file I am importing:
> > > > >
> > > > > 
> > > > > <TR>
> > > > > <TD ALIGN="right" BGCOLOR="FFFFFF">
> $4,962</TD>
> > > > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick 6</TD>
> > > > >
> > > > > <TD BGCOLOR="FFFFFF"
ALIGN="CENTER">Hastings</TD>
> > > > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12,
> > > 2004</td>
> > > > > </tr>
> > > > >
> > > > >
> > > > > There is additional html before the first that I want to > > ignore.
> > > I
> > > > > pretty much want to bring in each piece of information that

is > within
> > > that
> > > > > block of text minus the html codes, for each INSTANCE of that > section
> > > that
> > > > > appears.
> > > > >
> > > > > Thanks for the help!
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>

Jul 19 '05 #17

Aaron [SQL Server MVP]

Thanks. It is much easier to create a solution when we have actual
specifications!
s = ts.ReadAll()
ts.close: set ts = nothing

prefix = "INSERT co_results(TheMoney, The Pick, TheTrack, TheDate) SELECT "

s = split(s, VBCrLf)
for i = 0 to ubound(s)
s(i) = trim(s(i))
bg = instr(s(i), "BGCOLOR")
s1 = instr(s(i), "")
s2 = instr(s(i), "")
if s1 = 1 then sql = prefix: c = 0
if bg > 0 then
if s1 > bg and s2 > s1 then
c = c + 1
data = mid(s(i), s1+7, s2-(s1+7))
if c > 1 then data = ",'" & replace(data, "'", "''") & "'"
sql = sql & data
end if
end if
if c = 4 then response.write(sql) & " ": c = 0
next

If you're happy with the results, change response.write to conn.execute.
And consider demanding that this information come to you in a more usable
way.

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:KH*****************@bignews4.bellsouth.net...

THE is nothing.
money is money
date is smalldatetime
track is char
pick is char
"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...
What the heck purpose does the "The" prefix serve? Also, what are the
datatypes (is TheMoney a money datatype, a string... is TheDate a datetime,
a string, ...)?

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:7c*******************@bignews2.bellsouth.net. ..
Columns...
TheMoney
ThePick
TheTrack
TheDate

"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:Of**************@TK2MSFTNGP10.phx.gbl...
> Now, does co_results have any specific data structure? Just one column? > What is the column called?
>
> --
> http://www.aspfaq.com/
> (Reverse address to reply.)
>
>
>
>
> "Joey Martin" <jo**@infosmiths.net> wrote in message
> news:W1*****************@bignews5.bellsouth.net...
> > Your code returns the following:
> >
> > $8,394
> > Pick 6
> > Bay Meadows
> > June 10, 2004
> > -------
> > $7,496
> > Pick 6
> > Los Alamitos
> > June 10, 2004
> >
> > I would like to enter the 1st grouping into a db table called
co_results.
> > line 1 is TheMoney field, line 2 is ThePick field, line 3 is TheTrack > field,
> > and line 4 is TheDate field.
> >
> > Then go to the next grouping and insert a new row of data. And on and > on....
> >
> >
> > "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
> > news:uq*************@TK2MSFTNGP11.phx.gbl...
> > > As one string into one column? Separated by what, commas, VBCrLf, HTML
> > line
> > > breaks, ...?
> > >
> > > BE SPECIFIC.
> > >
> > > --
> > > http://www.aspfaq.com/
> > > (Reverse address to reply.)
> > >
> > >
> > >
> > >
> > > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > > news:NU**************@bignews6.bellsouth.net...
> > > > Hmmm....trying to figure out how to insert each block into

database
> > field,
> > > > themoney,thepick,thetrack,thedate
> > > > "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message > > > > news:Oa**************@TK2MSFTNGP10.phx.gbl...
> > > > > Sheesh, why don't you store information in a database instead of
a
> > text
> > > > > file?
> > > > >
> > > > > Or have you considered using CSS, and some kind of marker to
> indicate
> > a
> > > > > valid data row? Imagine how much easier it would be if you had > this:
> > > > >
> > > > > <crap HTML we don't care about>blah</crap>
> > > > > <TR>
> > > > > 
> > > > > <TD Class=right>$4,962</TD>
> > > > > <TD Class=mid>Pick 6</TD>
> > > > > <TD Class=mid>Hastings</TD>
> > > > > <TD Class=mid>June 12, 2004</TD>
> > > > > 
> > > > > </TR>
> > > > > <TR>
> > > > > 
> > > > > <TD Class=right>$200</TD>
> > > > > <TD Class=mid>Pick 4</TD>
> > > > > <TD Class=mid>New York</TD>
> > > > > <TD Class=mid>June 18, 2004</TD>
> > > > > 
> > > > > </TR>
> > > > >
> > > > > Anyway, I won't produce the code for that, because the
typical > > response
> > > is
> > > > > "pointy-haired boss won't let me change the format of the
file." > So,
> > > > >
> > > > > ...
> > > > >
> > > > > s = ts.ReadAll()
> > > > > ts.close: set ts = nothing
> > > > >
> > > > > s = split(s, VBCrLf)
> > > > > for i = 0 to ubound(s)
> > > > > s(i) = trim(s(i))
> > > > > bg = instr(s(i), "BGCOLOR")
> > > > > s1 = instr(s(i), "")
> > > > > s2 = instr(s(i), "")
> > > > > if s1 = 1 then response.write "------- "
> > > > > if bg > 0 then
> > > > > if s1 > bg and s2 > s1 then
> > > > > response.write mid(s(i), s1+7, s2-(s1+7))
> > > > > response.write " "
> > > > > end if
> > > > > end if
> > > > > next
> > > > > response.write "------- "
> > > > >
> > > > >
> > > > >
> > > > > --
> > > > > http://www.aspfaq.com/
> > > > > (Reverse address to reply.)
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > > > > news:aH******************@bignews3.bellsouth.net.. .
> > > > > > Here is a sample of the file I am importing:
> > > > > >
> > > > > > 
> > > > > > <TR>
> > > > > > <TD ALIGN="right" BGCOLOR="FFFFFF">
> > $4,962</TD>
> > > > > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick
6</TD>
> > > > > >
> > > > > > <TD BGCOLOR="FFFFFF"
> ALIGN="CENTER">Hastings</TD>
> > > > > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12,
> > > > 2004</td>
> > > > > > </tr>
> > > > > >
> > > > > >
> > > > > > There is additional html before the first that I want
to
> > > ignore.
> > > > I
> > > > > > pretty much want to bring in each piece of information

that is > > within
> > > > that
> > > > > > block of text minus the html codes, for each INSTANCE of that > > section
> > > > that
> > > > > > appears.
> > > > > >
> > > > > > Thanks for the help!
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>

Jul 19 '05 #18

Joey Martin

Aaron,

Where does the 7 come into play?
I downloaded a new copy of the file I am using this code against and each
section is moved over 3 tab spaces.

Old copy:

<TR>
<TD ALIGN="right" BGCOLOR="82B0A0"> $16,102</TD>
<TD BGCOLOR="82B0A0" ALIGN="CENTER">Tri Super</TD>

<TD BGCOLOR="82B0A0" ALIGN="CENTER">Ruidoso Downs</TD>
<TD BGCOLOR="82B0A0" ALIGN="CENTER">June 10, 2004</td>

<TD BGCOLOR="FFFFFF" ALIGN="CENTER"><A
HREF="eebMultipleProductPurchase.cfm?track_id=RUI" ><IMG
SRC="images/buyproducts.gif" BORDER="0"></A></TD>
</TR>
New copy is exactly the same except the whole block is moved over 3 tabs and
the code is no longer bringing it in correctly. I'm hoping the 7 has to do
with it.
"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:u9**************@TK2MSFTNGP11.phx.gbl...

Thanks. It is much easier to create a solution when we have actual
specifications!
s = ts.ReadAll()
ts.close: set ts = nothing

prefix = "INSERT co_results(TheMoney, The Pick, TheTrack, TheDate) SELECT "
s = split(s, VBCrLf)
for i = 0 to ubound(s)
s(i) = trim(s(i))
bg = instr(s(i), "BGCOLOR")
s1 = instr(s(i), "")
s2 = instr(s(i), "")
if s1 = 1 then sql = prefix: c = 0
if bg > 0 then
if s1 > bg and s2 > s1 then
c = c + 1
data = mid(s(i), s1+7, s2-(s1+7))
if c > 1 then data = ",'" & replace(data, "'", "''") & "'"
sql = sql & data
end if
end if
if c = 4 then response.write(sql) & " ": c = 0
next

If you're happy with the results, change response.write to conn.execute.
And consider demanding that this information come to you in a more usable
way.

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:KH*****************@bignews4.bellsouth.net...
THE is nothing.
money is money
date is smalldatetime
track is char
pick is char
"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...
What the heck purpose does the "The" prefix serve? Also, what are the
datatypes (is TheMoney a money datatype, a string... is TheDate a

datetime,
a string, ...)?

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:7c*******************@bignews2.bellsouth.net. ..
> Columns...
> TheMoney
> ThePick
> TheTrack
> TheDate
>
> "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
> news:Of**************@TK2MSFTNGP10.phx.gbl...
> > Now, does co_results have any specific data structure? Just one

column?
> > What is the column called?
> >
> > --
> > http://www.aspfaq.com/
> > (Reverse address to reply.)
> >
> >
> >
> >
> > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > news:W1*****************@bignews5.bellsouth.net...
> > > Your code returns the following:
> > >
> > > $8,394
> > > Pick 6
> > > Bay Meadows
> > > June 10, 2004
> > > -------
> > > $7,496
> > > Pick 6
> > > Los Alamitos
> > > June 10, 2004
> > >
> > > I would like to enter the 1st grouping into a db table called
> co_results.
> > > line 1 is TheMoney field, line 2 is ThePick field, line 3 is

TheTrack
> > field,
> > > and line 4 is TheDate field.
> > >
> > > Then go to the next grouping and insert a new row of data. And on
and
> > on....
> > >
> > >
> > > "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in
message > > > news:uq*************@TK2MSFTNGP11.phx.gbl...
> > > > As one string into one column? Separated by what, commas, VBCrLf, > HTML
> > > line
> > > > breaks, ...?
> > > >
> > > > BE SPECIFIC.
> > > >
> > > > --
> > > > http://www.aspfaq.com/
> > > > (Reverse address to reply.)
> > > >
> > > >
> > > >
> > > >
> > > > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > > > news:NU**************@bignews6.bellsouth.net...
> > > > > Hmmm....trying to figure out how to insert each block into
database
> > > field,
> > > > > themoney,thepick,thetrack,thedate
> > > > > "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in

message
> > > > > news:Oa**************@TK2MSFTNGP10.phx.gbl...
> > > > > > Sheesh, why don't you store information in a database instead
of
a
> > > text
> > > > > > file?
> > > > > >
> > > > > > Or have you considered using CSS, and some kind of marker to > > indicate
> > > a
> > > > > > valid data row? Imagine how much easier it would be if

you had
> > this:
> > > > > >
> > > > > > <crap HTML we don't care about>blah</crap>
> > > > > > <TR>
> > > > > > 
> > > > > > <TD Class=right>$4,962</TD>
> > > > > > <TD Class=mid>Pick 6</TD>
> > > > > > <TD Class=mid>Hastings</TD>
> > > > > > <TD Class=mid>June 12, 2004</TD>
> > > > > > 
> > > > > > </TR>
> > > > > > <TR>
> > > > > > 
> > > > > > <TD Class=right>$200</TD>
> > > > > > <TD Class=mid>Pick 4</TD>
> > > > > > <TD Class=mid>New York</TD>
> > > > > > <TD Class=mid>June 18, 2004</TD>
> > > > > > 
> > > > > > </TR>
> > > > > >
> > > > > > Anyway, I won't produce the code for that, because the

typical > > > response
> > > > is
> > > > > > "pointy-haired boss won't let me change the format of the

file."
> > So,
> > > > > >
> > > > > > ...
> > > > > >
> > > > > > s = ts.ReadAll()
> > > > > > ts.close: set ts = nothing
> > > > > >
> > > > > > s = split(s, VBCrLf)
> > > > > > for i = 0 to ubound(s)
> > > > > > s(i) = trim(s(i))
> > > > > > bg = instr(s(i), "BGCOLOR")
> > > > > > s1 = instr(s(i), "")
> > > > > > s2 = instr(s(i), "")
> > > > > > if s1 = 1 then response.write "------- "
> > > > > > if bg > 0 then
> > > > > > if s1 > bg and s2 > s1 then
> > > > > > response.write mid(s(i), s1+7, s2-(s1+7))
> > > > > > response.write " "
> > > > > > end if
> > > > > > end if
> > > > > > next
> > > > > > response.write "------- "
> > > > > >
> > > > > >
> > > > > >
> > > > > > --
> > > > > > http://www.aspfaq.com/
> > > > > > (Reverse address to reply.)
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > > > > > news:aH******************@bignews3.bellsouth.net.. .
> > > > > > > Here is a sample of the file I am importing:
> > > > > > >
> > > > > > > 
> > > > > > > <TR>
> > > > > > > <TD ALIGN="right" BGCOLOR="FFFFFF">
> > > $4,962</TD>
> > > > > > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick
> 6</TD>
> > > > > > >
> > > > > > > <TD BGCOLOR="FFFFFF"
> > ALIGN="CENTER">Hastings</TD>
> > > > > > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12,
> > > > > 2004</td>
> > > > > > > </tr>
> > > > > > >
> > > > > > >
> > > > > > > There is additional html before the first that I

want
to
> > > > ignore.
> > > > > I
> > > > > > > pretty much want to bring in each piece of information

that
is
> > > within
> > > > > that
> > > > > > > block of text minus the html codes, for each INSTANCE of

that
> > > section
> > > > > that
> > > > > > > appears.
> > > > > > >
> > > > > > > Thanks for the help!
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>

Jul 19 '05 #19

Aaron [SQL Server MVP]

Maybe you could show the NEW copy instead of the OLD copy?

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:fy**************@bignews6.bellsouth.net...

Aaron,

Where does the 7 come into play?
I downloaded a new copy of the file I am using this code against and each
section is moved over 3 tab spaces.

Old copy:

<TR>
<TD ALIGN="right" BGCOLOR="82B0A0"> $16,102</TD>
<TD BGCOLOR="82B0A0" ALIGN="CENTER">Tri Super</TD>

<TD BGCOLOR="82B0A0" ALIGN="CENTER">Ruidoso Downs</TD>
<TD BGCOLOR="82B0A0" ALIGN="CENTER">June 10, 2004</td>

<TD BGCOLOR="FFFFFF" ALIGN="CENTER"><A
HREF="eebMultipleProductPurchase.cfm?track_id=RUI" ><IMG
SRC="images/buyproducts.gif" BORDER="0"></A></TD>
</TR>
New copy is exactly the same except the whole block is moved over 3 tabs and the code is no longer bringing it in correctly. I'm hoping the 7 has to do
with it.
"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:u9**************@TK2MSFTNGP11.phx.gbl...
Thanks. It is much easier to create a solution when we have actual
specifications!
s = ts.ReadAll()
ts.close: set ts = nothing

prefix = "INSERT co_results(TheMoney, The Pick, TheTrack, TheDate) SELECT
"

s = split(s, VBCrLf)
for i = 0 to ubound(s)
s(i) = trim(s(i))
bg = instr(s(i), "BGCOLOR")
s1 = instr(s(i), "")
s2 = instr(s(i), "")
if s1 = 1 then sql = prefix: c = 0
if bg > 0 then
if s1 > bg and s2 > s1 then
c = c + 1
data = mid(s(i), s1+7, s2-(s1+7))
if c > 1 then data = ",'" & replace(data, "'", "''") & "'"
sql = sql & data
end if
end if
if c = 4 then response.write(sql) & " ": c = 0
next

If you're happy with the results, change response.write to conn.execute.
And consider demanding that this information come to you in a more usable way.

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:KH*****************@bignews4.bellsouth.net...
THE is nothing.
money is money
date is smalldatetime
track is char
pick is char
"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...
> What the heck purpose does the "The" prefix serve? Also, what are the > datatypes (is TheMoney a money datatype, a string... is TheDate a
datetime,
> a string, ...)?
>
> --
> http://www.aspfaq.com/
> (Reverse address to reply.)
>
>
>
>
> "Joey Martin" <jo**@infosmiths.net> wrote in message
> news:7c*******************@bignews2.bellsouth.net. ..
> > Columns...
> > TheMoney
> > ThePick
> > TheTrack
> > TheDate
> >
> > "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
> > news:Of**************@TK2MSFTNGP10.phx.gbl...
> > > Now, does co_results have any specific data structure? Just one
column?
> > > What is the column called?
> > >
> > > --
> > > http://www.aspfaq.com/
> > > (Reverse address to reply.)
> > >
> > >
> > >
> > >
> > > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > > news:W1*****************@bignews5.bellsouth.net...
> > > > Your code returns the following:
> > > >
> > > > $8,394
> > > > Pick 6
> > > > Bay Meadows
> > > > June 10, 2004
> > > > -------
> > > > $7,496
> > > > Pick 6
> > > > Los Alamitos
> > > > June 10, 2004
> > > >
> > > > I would like to enter the 1st grouping into a db table called
> > co_results.
> > > > line 1 is TheMoney field, line 2 is ThePick field, line 3 is
TheTrack
> > > field,
> > > > and line 4 is TheDate field.
> > > >
> > > > Then go to the next grouping and insert a new row of data. And
on and
> > > on....
> > > >
> > > >
> > > > "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message > > > > news:uq*************@TK2MSFTNGP11.phx.gbl...
> > > > > As one string into one column? Separated by what, commas,

VBCrLf,
> > HTML
> > > > line
> > > > > breaks, ...?
> > > > >
> > > > > BE SPECIFIC.
> > > > >
> > > > > --
> > > > > http://www.aspfaq.com/
> > > > > (Reverse address to reply.)
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > > > > news:NU**************@bignews6.bellsouth.net...
> > > > > > Hmmm....trying to figure out how to insert each block into
> database
> > > > field,
> > > > > > themoney,thepick,thetrack,thedate
> > > > > > "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in
message
> > > > > > news:Oa**************@TK2MSFTNGP10.phx.gbl...
> > > > > > > Sheesh, why don't you store information in a database

instead
of
> a
> > > > text
> > > > > > > file?
> > > > > > >
> > > > > > > Or have you considered using CSS, and some kind of marker to
> > > indicate
> > > > a
> > > > > > > valid data row? Imagine how much easier it would be if you had
> > > this:
> > > > > > >
> > > > > > > <crap HTML we don't care about>blah</crap>
> > > > > > > <TR>
> > > > > > > 
> > > > > > > <TD Class=right>$4,962</TD>
> > > > > > > <TD Class=mid>Pick 6</TD>
> > > > > > > <TD Class=mid>Hastings</TD>
> > > > > > > <TD Class=mid>June 12, 2004</TD>
> > > > > > > 
> > > > > > > </TR>
> > > > > > > <TR>
> > > > > > > 
> > > > > > > <TD Class=right>$200</TD>
> > > > > > > <TD Class=mid>Pick 4</TD>
> > > > > > > <TD Class=mid>New York</TD>
> > > > > > > <TD Class=mid>June 18, 2004</TD>
> > > > > > > 
> > > > > > > </TR>
> > > > > > >
> > > > > > > Anyway, I won't produce the code for that, because the

typical
> > > > response
> > > > > is
> > > > > > > "pointy-haired boss won't let me change the format of

the file."
> > > So,
> > > > > > >
> > > > > > > ...
> > > > > > >
> > > > > > > s = ts.ReadAll()
> > > > > > > ts.close: set ts = nothing
> > > > > > >
> > > > > > > s = split(s, VBCrLf)
> > > > > > > for i = 0 to ubound(s)
> > > > > > > s(i) = trim(s(i))
> > > > > > > bg = instr(s(i), "BGCOLOR")
> > > > > > > s1 = instr(s(i), "")
> > > > > > > s2 = instr(s(i), "")
> > > > > > > if s1 = 1 then response.write "------- "
> > > > > > > if bg > 0 then
> > > > > > > if s1 > bg and s2 > s1 then
> > > > > > > response.write mid(s(i), s1+7, s2-(s1+7))
> > > > > > > response.write " "
> > > > > > > end if
> > > > > > > end if
> > > > > > > next
> > > > > > > response.write "------- "
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > --
> > > > > > > http://www.aspfaq.com/
> > > > > > > (Reverse address to reply.)
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > > > > > > news:aH******************@bignews3.bellsouth.net.. .
> > > > > > > > Here is a sample of the file I am importing:
> > > > > > > >
> > > > > > > > 
> > > > > > > > <TR>
> > > > > > > > <TD ALIGN="right" BGCOLOR="FFFFFF">
> > > > $4,962</TD>
> > > > > > > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick
> > 6</TD>
> > > > > > > >
> > > > > > > > <TD BGCOLOR="FFFFFF"
> > > ALIGN="CENTER">Hastings</TD>
> > > > > > > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12, > > > > > > 2004</td>
> > > > > > > > </tr>
> > > > > > > >
> > > > > > > >
> > > > > > > > There is additional html before the first that I want
> to
> > > > > ignore.
> > > > > > I
> > > > > > > > pretty much want to bring in each piece of information

that
is
> > > > within
> > > > > > that
> > > > > > > > block of text minus the html codes, for each INSTANCE of that
> > > > section
> > > > > > that
> > > > > > > > appears.
> > > > > > > >
> > > > > > > > Thanks for the help!
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>

Jul 19 '05 #20

Joey Martin

Aaron,
I figured it out. I just had to add a replace and remove the additional
spaces it added. It's working. I thank you for all the help!
"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:uX*************@TK2MSFTNGP10.phx.gbl...

Maybe you could show the NEW copy instead of the OLD copy?

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:fy**************@bignews6.bellsouth.net...
Aaron,

Where does the 7 come into play?
I downloaded a new copy of the file I am using this code against and each
section is moved over 3 tab spaces.

Old copy:

<TR>
<TD ALIGN="right" BGCOLOR="82B0A0"> $16,102</TD>
<TD BGCOLOR="82B0A0" ALIGN="CENTER">Tri Super</TD>

<TD BGCOLOR="82B0A0" ALIGN="CENTER">Ruidoso Downs</TD> <TD BGCOLOR="82B0A0" ALIGN="CENTER">June 10, 2004</td>
<TD BGCOLOR="FFFFFF" ALIGN="CENTER"><A
HREF="eebMultipleProductPurchase.cfm?track_id=RUI" ><IMG
SRC="images/buyproducts.gif" BORDER="0"></A></TD>
</TR>
New copy is exactly the same except the whole block is moved over 3 tabs and
the code is no longer bringing it in correctly. I'm hoping the 7 has to do with it.
"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:u9**************@TK2MSFTNGP11.phx.gbl...
Thanks. It is much easier to create a solution when we have actual
specifications!
s = ts.ReadAll()
ts.close: set ts = nothing

prefix = "INSERT co_results(TheMoney, The Pick, TheTrack, TheDate) SELECT
"

s = split(s, VBCrLf)
for i = 0 to ubound(s)
s(i) = trim(s(i))
bg = instr(s(i), "BGCOLOR")
s1 = instr(s(i), "")
s2 = instr(s(i), "")
if s1 = 1 then sql = prefix: c = 0
if bg > 0 then
if s1 > bg and s2 > s1 then
c = c + 1
data = mid(s(i), s1+7, s2-(s1+7))
if c > 1 then data = ",'" & replace(data, "'", "''") & "'"
sql = sql & data
end if
end if
if c = 4 then response.write(sql) & " ": c = 0
next

If you're happy with the results, change response.write to conn.execute. And consider demanding that this information come to you in a more

usable way.

--
http://www.aspfaq.com/
(Reverse address to reply.)

"Joey Martin" <jo**@infosmiths.net> wrote in message
news:KH*****************@bignews4.bellsouth.net...
> THE is nothing.
> money is money
> date is smalldatetime
> track is char
> pick is char
> "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
> news:%2****************@tk2msftngp13.phx.gbl...
> > What the heck purpose does the "The" prefix serve? Also, what are the > > datatypes (is TheMoney a money datatype, a string... is TheDate a
> datetime,
> > a string, ...)?
> >
> > --
> > http://www.aspfaq.com/
> > (Reverse address to reply.)
> >
> >
> >
> >
> > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > news:7c*******************@bignews2.bellsouth.net. ..
> > > Columns...
> > > TheMoney
> > > ThePick
> > > TheTrack
> > > TheDate
> > >
> > > "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message > > > news:Of**************@TK2MSFTNGP10.phx.gbl...
> > > > Now, does co_results have any specific data structure? Just one > column?
> > > > What is the column called?
> > > >
> > > > --
> > > > http://www.aspfaq.com/
> > > > (Reverse address to reply.)
> > > >
> > > >
> > > >
> > > >
> > > > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > > > news:W1*****************@bignews5.bellsouth.net...
> > > > > Your code returns the following:
> > > > >
> > > > > $8,394
> > > > > Pick 6
> > > > > Bay Meadows
> > > > > June 10, 2004
> > > > > -------
> > > > > $7,496
> > > > > Pick 6
> > > > > Los Alamitos
> > > > > June 10, 2004
> > > > >
> > > > > I would like to enter the 1st grouping into a db table called > > > co_results.
> > > > > line 1 is TheMoney field, line 2 is ThePick field, line 3 is
> TheTrack
> > > > field,
> > > > > and line 4 is TheDate field.
> > > > >
> > > > > Then go to the next grouping and insert a new row of data. And on
> and
> > > > on....
> > > > >
> > > > >
> > > > > "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in

message
> > > > > news:uq*************@TK2MSFTNGP11.phx.gbl...
> > > > > > As one string into one column? Separated by what, commas,
VBCrLf,
> > > HTML
> > > > > line
> > > > > > breaks, ...?
> > > > > >
> > > > > > BE SPECIFIC.
> > > > > >
> > > > > > --
> > > > > > http://www.aspfaq.com/
> > > > > > (Reverse address to reply.)
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > > > > > news:NU**************@bignews6.bellsouth.net...
> > > > > > > Hmmm....trying to figure out how to insert each block
into > > database
> > > > > field,
> > > > > > > themoney,thepick,thetrack,thedate
> > > > > > > "Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in > message
> > > > > > > news:Oa**************@TK2MSFTNGP10.phx.gbl...
> > > > > > > > Sheesh, why don't you store information in a database
instead
> of
> > a
> > > > > text
> > > > > > > > file?
> > > > > > > >
> > > > > > > > Or have you considered using CSS, and some kind of marker
to
> > > > indicate
> > > > > a
> > > > > > > > valid data row? Imagine how much easier it would be if you
> had
> > > > this:
> > > > > > > >
> > > > > > > > <crap HTML we don't care about>blah</crap>
> > > > > > > > <TR>
> > > > > > > > 
> > > > > > > > <TD Class=right>$4,962</TD>
> > > > > > > > <TD Class=mid>Pick 6</TD>
> > > > > > > > <TD Class=mid>Hastings</TD>
> > > > > > > > <TD Class=mid>June 12, 2004</TD>
> > > > > > > > 
> > > > > > > > </TR>
> > > > > > > > <TR>
> > > > > > > > 
> > > > > > > > <TD Class=right>$200</TD>
> > > > > > > > <TD Class=mid>Pick 4</TD>
> > > > > > > > <TD Class=mid>New York</TD>
> > > > > > > > <TD Class=mid>June 18, 2004</TD>
> > > > > > > > 
> > > > > > > > </TR>
> > > > > > > >
> > > > > > > > Anyway, I won't produce the code for that, because the
typical
> > > > > response
> > > > > > is
> > > > > > > > "pointy-haired boss won't let me change the format of

the > file."
> > > > So,
> > > > > > > >
> > > > > > > > ...
> > > > > > > >
> > > > > > > > s = ts.ReadAll()
> > > > > > > > ts.close: set ts = nothing
> > > > > > > >
> > > > > > > > s = split(s, VBCrLf)
> > > > > > > > for i = 0 to ubound(s)
> > > > > > > > s(i) = trim(s(i))
> > > > > > > > bg = instr(s(i), "BGCOLOR")
> > > > > > > > s1 = instr(s(i), "")
> > > > > > > > s2 = instr(s(i), "")
> > > > > > > > if s1 = 1 then response.write "------- "
> > > > > > > > if bg > 0 then
> > > > > > > > if s1 > bg and s2 > s1 then
> > > > > > > > response.write mid(s(i), s1+7, s2-(s1+7))
> > > > > > > > response.write " "
> > > > > > > > end if
> > > > > > > > end if
> > > > > > > > next
> > > > > > > > response.write "------- "
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > --
> > > > > > > > http://www.aspfaq.com/
> > > > > > > > (Reverse address to reply.)
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > "Joey Martin" <jo**@infosmiths.net> wrote in message
> > > > > > > > news:aH******************@bignews3.bellsouth.net.. .
> > > > > > > > > Here is a sample of the file I am importing:
> > > > > > > > >
> > > > > > > > > 
> > > > > > > > > <TR>
> > > > > > > > > <TD ALIGN="right" BGCOLOR="FFFFFF">
> > > > > $4,962</TD>
> > > > > > > > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">Pick
> > > 6</TD>
> > > > > > > > >
> > > > > > > > > <TD BGCOLOR="FFFFFF"
> > > > ALIGN="CENTER">Hastings</TD>
> > > > > > > > > <TD BGCOLOR="FFFFFF" ALIGN="CENTER">June 12, > > > > > > > 2004</td>
> > > > > > > > > </tr>
> > > > > > > > >
> > > > > > > > >
> > > > > > > > > There is additional html before the first 
that I > want
> > to
> > > > > > ignore.
> > > > > > > I
> > > > > > > > > pretty much want to bring in each piece of
information that
> is
> > > > > within
> > > > > > > that
> > > > > > > > > block of text minus the html codes, for each
INSTANCE of > that
> > > > > section
> > > > > > > that
> > > > > > > > > appears.
> > > > > > > > >
> > > > > > > > > Thanks for the help!
> > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>

Jul 19 '05 #21

Similar topics