Importere kommasepereret fil

Importere hvortil ?

til et VB script

Vil du bare behandle dem i scriptet eller vil du eks. importere til en database ? I tilfælde af førstnævnte, hvordan vil du bruge dem, som arrays eller ?

ja, det skal være som arrays

set FSO = Server.CreateObject("Scripting.FileSystemObject")

  Set File = FSO.GetFile("C:\blahblah\file.txt")
  Set TextStream = File.OpenAsTextStream

  Do    While Not TextStream.AtEndOfStream

      S = TextStream.ReadLine
      myArr = Split(s, ",") ' returnerer et et-dimensionelt array med felter i linien

        ' udskriver indholdet af arrayet som test
    For i = 0 To UBound(myArr)
        response.write myArr(i) & "<BR>"
    Next

  Loop

  TextStream.Close

Den gider ikke rigtig æde det :o(
Browseren står bare og tænker.

Selve txt filen kan se således ud:
SW-NM/NVCSU04;Norman ver. 5.x, 1 bruger;1;0,00
SW-SYM/NIS/FAM;Symantec Norton Internet Security;1;0,00
MB-MS/A/6340M/266/B;MSI 6340M Duron/Thunderbird BULK;3;493,50

Jeg har ændret i koden så den splitter ved ;

Det virker fint hos mig. Det kunne være fordi du har en stor fil. Prøv evt. at lave en testfil, eks. blot med ovenstående få linier.

Hvis den virker, er det ikke scriptet den er gal med.

Efterfølgende bruges til at importere en semikolonsep. txt-fil til en db.
Eks. på txt-fil:
ID;Varenr;Varenavn;Pris
SW-NM/NVCSU04;Norman ver. 5.x, 1 bruger;1;0,00
SW-SYM/NIS/FAM;Symantec Norton Internet Security;1;0,00
MB-MS/A/6340M/266/B;MSI 6340M Duron/Thunderbird BULK;3;493,50

Koden:
<!--#include file="../../Connections/path.asp" -->
<!--#include file="../../Connections/conn.asp" -->
<%
set FSO = Server.CreateObject("Scripting.FileSystemObject")

Dim SQL, col
SQL = ""

  strFileName = "lagersalg.txt"
Set myFile = FSO.openTextFile(path & "txt\" & strFileName)

  SQL = SQL & "Insert Into lagersalg ("
   
  strLine = myFile.readLine
  valArr = SPLIT(strLine,";")
  for i = 0 to UBOUND(valArr)
      SQL = SQL & valArr(i)
    if( i <> UBOUND(valArr) ) then
        SQL = SQL & ", "
    end if
  next
    SQLvalues = SQL & ") VALUES ("
   
While not myFile.AtEndOfStream
  SQL = SQLvalues
  strLine = myFile.readLine
  valArr = SPLIT(strLine,";")
  for i = 0 to UBOUND(valArr)
      SQL = SQL & "'" & valArr(i) & "'"
    if( i <> UBOUND(valArr) ) then
        SQL = SQL & ", "
    end if
  next   
  SQL = SQL & ")"

  Conn.execute(SQL)
  response.write SQL &"<br>"
 
Wend
Conn.Close
set Conn = nothing 
 
 
response.write "<br><b>Alle data fra filen <u>" & strFileName & "</u> er importeret til tabellen Lagersalg</b><p>"


set myFile = Nothing

'sti = path & "txt\" & strFileName
'FSO.DeleteFile sti
'set FSO = Nothing
response.write "<br><b>All done!!</b>"

%>

Det virker uden probs.


Desuden, hvis de data som du har vist her på siden ligner den tekst-fil du skal have importeret skal du ændre lidt i den kode du har fået af "tmceu".

  S = TextStream.ReadLine
      myArr = Split(s, ",") ' returnerer et et-dimensionelt array med felter i linien

Skal ændres til:

  S = TextStream.ReadLine
      myArr = Split(s, ";") ' returnerer et et-dimensionelt array med felter i linien

Da det jo er semikolonsep. data du har angivet.


Håber du kan bruge det til noget.

suk.. jeg bruger Norton Antivirus.. der er en smart funktion der hedder Script Blocking.. denne får åbenbart scripts der bruger FileSystemObject til at gå ned...
http://support.microsoft.com/default.aspx?scid=kb;DA;q295375

så må du jo slå det fra :o)

Yup, done that og det funker også nu.
Det var bare en generel oplysning :o)

:) har også prøvet det...