CSV files into VB Arrays in ASP

Michael Gooding · Sep 12, 2003

Can anyone tell me why when using a .csv file called book1.csv with the
values below the code below does not recognise values read in after the
first line in a loop.

please feel free to run the code to see what I mean:

book1.csv:

RGB01,1,2,3,4
RGB02,1,2,3,4
RGB03,1,2,3,4
RGB04,1,2,3,4

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>

<%
csv_to_read="book1.csv"
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath(csv_to_read))

imported_text = act.readline
imported_text = replace(imported_text,chr(13),",")
imported_text = replace(imported_text,chr(34),"")
split_text=split(imported_text,",")
num_imported=ubound(split_text)+1
total_imported_text = act.readall
total_imported_text = replace(total_imported_text,chr(13),",")
total_imported_text = replace(total_imported_text,chr(34),"")
total_split_text=split(total_imported_text,",")
total_num_imported=ubound(total_split_text)

dim pinstore(500)
Dim I
Dim iCols

counter = 0

for i = 0 to (num_imported -1) step 1
if i mod num_imported = 0 then
pinstore(counter) = cstr(split_text(i))
counter = counter + 1
end if
next

for i = 0 to (total_num_imported - 1) step 1
if i mod num_imported = 0 then
pinstore(counter) = cstr(total_split_text(i))
counter = counter + 1
end if
next

for i = 0 to counter -1
response.write pinstore(i) & " Is in the list "

if pinstore(i) = "RGB01" then
response.write Pinstore(i) & " = Matched"
end if
if pinstore(i) = "RGB02" then
response.write Pinstore(i) & " = Matched"
end if
if pinstore(i) = "RGB03" then
response.write Pinstore(i) & " = Matched"
end if
if pinstore(i) = "RGB04" then
response.write Pinstore(i) & " = Matched"
end if
next

%>

</body>
</html>

Ray at home · Sep 12, 2003

It appears that split_text is an array created from act.readLINE, so you're
only going to get the first line in there. Maybe you meant to use
total_split_text.

Ray at home

Lance Wynn · Sep 12, 2003

imported_text = act.readline

tells it to read just one line, and move the pointer to the beginning of the
next line.

it looks like you need to enclose that whole thing in a loop until you reach
the end of the file. Or you can do ReadAll to read the entire contents of
the file into your string variable.

Can anyone tell me why when using a .csv file called book1.csv with the
values below the code below does not recognise values read in after the
first line in a loop.

please feel free to run the code to see what I mean:

book1.csv:

RGB01,1,2,3,4
RGB02,1,2,3,4
RGB03,1,2,3,4
RGB04,1,2,3,4

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>

<%
csv_to_read="book1.csv"
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath(csv_to_read))

imported_text = act.readline
imported_text = replace(imported_text,chr(13),",")
imported_text = replace(imported_text,chr(34),"")
split_text=split(imported_text,",")
num_imported=ubound(split_text)+1
total_imported_text = act.readall
total_imported_text = replace(total_imported_text,chr(13),",")
total_imported_text = replace(total_imported_text,chr(34),"")
total_split_text=split(total_imported_text,",")
total_num_imported=ubound(total_split_text)

dim pinstore(500)
Dim I
Dim iCols

counter = 0

for i = 0 to (num_imported -1) step 1
if i mod num_imported = 0 then
pinstore(counter) = cstr(split_text(i))
counter = counter + 1
end if
next

for i = 0 to (total_num_imported - 1) step 1
if i mod num_imported = 0 then
pinstore(counter) = cstr(total_split_text(i))
counter = counter + 1
end if
next

for i = 0 to counter -1
response.write pinstore(i) & " Is in the list "

if pinstore(i) = "RGB01" then
response.write Pinstore(i) & " = Matched"
end if
if pinstore(i) = "RGB02" then
response.write Pinstore(i) & " = Matched"
end if
if pinstore(i) = "RGB03" then
response.write Pinstore(i) & " = Matched"
end if
if pinstore(i) = "RGB04" then
response.write Pinstore(i) & " = Matched"
end if
next

%>

</body>
</html>

Using Arrays to write data to SQL Server	2	Feb 1, 2007
Grouping on and exporting to csv files	1	Mar 20, 2013
New to ASP need help	1	Feb 8, 2009
Arrays	0	Nov 19, 2005
Reading CSV into RecordSet using GetString() (MSDN)	3	Jul 23, 2005
ASP - array sorteren (question in dutch)	1	Jun 30, 2009
CSV confusion newbie question	1	Dec 6, 2009
Reading CSV into recordset using GetString	2	Jul 15, 2005

CSV files into VB Arrays in ASP

Michael Gooding

Ray at home

Lance Wynn

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads