skille tekstfil og lægge i DB On-line!

hvor kommer denne data fra (tekst-fil?)

Ja - den bliver uploadet til serveren som xxx.txt

Meyer

okey trylle trylle ...

<%
'åbner databasen
set DB = Server.CreateObject("ADODB.Connection")
DB.open "Driver={Microsoft Access Driver (*.mdb)};"&_
"DBQ="&server.mappath("./xxx.mdb")&";"&_
"DefaultDir="&server.mappath("./")&";FIL=MS Access;"

SQL = "SELECT * FROM xxx"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, DB, 3, 3

Set op = CreateObject("Scripting.FileSystemObject")
Set fil = op.GetFile(server.mappath("./xxx.txt"))

do while not fil.AtEndOfStream
    Line = fil.readline
    LineSplit = split(Line,";")

    RS.Addnew
    RS("felt1") = split(0)
    RS("felt2") = split(1)
    RS("felt3") = split(2)
    RS("felt4") = split(3)
    RS.Update
loop

set fil = nothing
set RS = nothing

Ser GENIALT ud :o), men jeg får denne her:

Objektet understøtter ikke denne egenskab eller metode: 'fil.AtEndOfStream'

:o(
Meyer

..heller ikke: fil.readline

Meyer

jeg kikker lige på det

det er klart ( I fucked up )
det skal være
Set fil = op.OpenTextFile(server.mappath("./xxx.txt"))
istedet for
Set fil = op.GetFile(server.mappath("./xxx.txt"))

Ok, det ser bedre ud, men 2 fejl:

RS("felt1") = split(0) virker med:
RS("felt1") = Linesplit(0) - ER DET RIGTIGT??

Og den skal kun skrive teksten ind:
"til-felt1";"til-felt2";"til-felt3";"tilfelt4"
altså - til-felt1  til-felt2 osv. ikke ""

Men ellers er det helt Genialt :o)

Meyer

ja det er rigtigt (det gik vist lidt for hurtig)

LineSplit = Replace(split(Line,";"), """","")

det skulle løse "" problemmet (og de """" er rigtige)