Læs komma-sepereret fil

Et eks:

<%
Set fso = CreateObject("Scripting.FileSystemObject")
filename="c:\inetpub\wwwroot\test.txt"
Set file = fso.OpenTextFile(filename)
if not file.AtEndOfStream then
  strFile = File.ReadAll
  arr = Split(strFile, ",")


  for i = lbound(arr) to ubound(arr)
    response.write arr(i) & "<br>"
  next
end if
file.Close
%>

Lytter med

Jeg lægger 70 point oven i, hvis I kan hjælpe mig med yderligere håndtering af filen. Den er i formatet:

"xxxxxxxxxxxxxxxxxxxxx","yy","zz","qqqq","ww"
"xxxxxxxxxxxxxxxxxxxxx","yy","zz","qqqq","ww"
"xxxxxxxxxxxxxxxxxxxxx","yy","zz","qqqq","ww"
"xxxxxxxxxxxxxxxxxxxxx","yy","zz","qqqq","ww"
"xxxxxxxxxxxxxxxxxxxxx","yy","zz","qqqq","ww"
"xxxxxxxxxxxxxxxxxxxxx","yy","zz","qqqq","ww"

Det jeg skal gøre, er at læse yy og zz i hver linie. Nogen ideer?
På forhånd tak. :-)

Ja kan nogle af teksterne xxxxxxxxx yy zz qqqq ww indeholde et komma?

Hvis ikke så prøv sådan her:


<%
Set fso = CreateObject("Scripting.FileSystemObject")
filename="c:\inetpub\wwwroot\test.txt"
Set file = fso.OpenTextFile(filename)
if not file.AtEndOfStream then
  strFile = File.ReadLine
  arr = Split(strFile, ",")
 
  'så er "xxxxxxxxxxxxxxxxxx" i arr(0)
  'så er "yy" er i arr(1), "zz" i arr(2), "qqqq" i arr(3) samt "ww" i arr(4)

  yy = arr(1)
  zz = arr(2)
  response.write "yy : " & yy
  response.write "og zz : " & zz
  response.write "<br>"
end if
file.Close
%>

Fik du af prøvet det?

ja, det fungerede.