udtræk fra en txt fil

strFile = \"dinfil.txt\"

Set fsoSystem = Server.CreateObject(\"Scripting.FileSystemObject\")
Set fsoStream = fsoSystem.OpenTextFile(Server.MapPath(strFile), 1, True)

If Not fsoStream.AtEndOfstream Then strContent = fsoStream.ReadAll

fsoStream.Close: Set fsoStream = Nothing
Set fsoSystem = Nothing


strContent vil indeholde indholdet af txt filen.

Så ka  du splitte den ad med Split() hvis du vil have den delt op, f.eks.

arrEnheder = Split(strContent, \",\")

for i = 0 to ubound(arrEnheder) step 2 \' step 2 da det er vare nr. og pris vi skal vise (2 elementer)
  response.write \"Vare nr.: \" & arrEnheder(i) & vbCrLf & \"Pris: \" & arrEnheder(i+1) & \"<p>\"
next

vil splitte og udskrive dem sætvis