|
|||||||||
|
|||||||||
| |||||||||
|
|||||||||
|
|||||||||
| |||||||||
|
|
|
| ||||||||||||||||||||||||||||||||
 |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
Dev Shed Forums Sponsor:
|
|
|
|
#1
May 12th, 2009, 06:21 AM
|
|||
|
|||
|
Manipulating txt files - AtEndOfStream
Hi,
I have this issue with a .txt file that i need to extract the uniqueid's out of and then insert them into my table. The .txt file will have either lines at the start that i need to remove before importing or lines at the end. I won't know how many lines will need to be removed until the users does something there end so the only option is to find the values from those lines that i know will appear in the txt file and get rid of them before inserting the data. Problem is i can't get this working Any help would be great. thanks in advance. Based on this sample data below we can see that any row containing the word query needs to be removed leaving just the uniqueid's --------- querylast=select * from wce_contact where (propertyname LIKE '%sa%') ORDER BY LASTNAME, COMPANY queryshow=select * from wce_contact where (propertyname LIKE '%sa%') cwp15h54j62e1pd3 ewp172b44cqe0v8e iwp1wea4o3h6egr7 byi1f5e2e01hszm2 byi1d5e2xi0ee8md byi1d5e2fjnakkpa vyp1q1j3x433rea3 nyp1dn23m6lj44mg 1wp1fg23koej1t62 nyp1oi23acf4bwz9 byi1e5e230pf28v9 6282008163137 nyp1ud23vrekt428 queryfield1=propertyname queryoperator1=CONTAINS queryvalue1=sa querynot1= queryor1= querylp1= queryrp1= -------- Here is the code i am trying to work with. Code:
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath(Filename), 1)
intLine = 1
Do While f.AtEndOfStream <> True
ReadLineTextFile = f.ReadLine
' this says that if you are on line 1 or 2 and the word "select" is not in the line do something
if instr(ReadLineTextFile,"select") > 1 or instr(ReadLineTextFile, "query") < 2 Then
'Select and Insert data
response.write(ReadLineTextFile)&" <br/>"
qrysel = "SELECT * FROM wce_contact where uniqueid = '"&(f.ReadLine)&"'"
Set oRssel = connStrmpro.Execute(qrysel)
qryins = "INSERT INTO listRecipients (idList, idEmail) VALUES ("&oRsgetidemail("idlist")&","&(oRssel("idemail"))&")"
Set qryins = connStrmpro.Execute(qryins)
end if
intLine = intLine + 1
Loop
'response
|
|
#2
May 12th, 2009, 11:24 PM
|
|||
|
|||
|
For one thing, you're calling f.readline twice each time through your loop which means you'll be processing 2 input lines for each pass through the loop.
When you read each line you can test it for being empty or containing something you want to filter out, and if a line fails your tests you can skip the insert into the db for those bad lines.
__________________
====== Doug G ====== I didn't attend the funeral, but I sent a nice letter saying I approved of it. --Mark Twain
|
|
| Viewing: Dev Shed Forums > Programming Languages - More > ASP Programming > Manipulating txt files - AtEndOfStream |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
|
 |
|
|
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
