---

Hej!
Jeg har fået udleveret en tekstfil med 1000 pinkoder, som skal læses ind i
min MS SQL databasen. Filen ser ud som følger:

---------------------
456378
234664
234345
678674
345456

---------------------

Hver pinkode står altså på hver sin linie, og sidste pinkode afsluttes med
{ENTER}, den allersidste linie er altså blank, men eksisterende.

Nogen der har forslag til, hvordan jeg klarer denne opgave?

---

"Jesper Nielsen" <nospam@nielsenit.dk> wrote
> Jeg har fået udleveret en tekstfil med 1000 pinkoder, som skal læses ind i
> min MS SQL databasen. Filen ser ud som følger:

Noget ala dette:

<%
Option Explicit
Dim objFS, objFiles, objTXT, strSti, strLinje
strSti = Server.MapPath("koder.txt")
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Set objTXT = objFS.OpenTextFile(strSti, 1)
do while not objTXT.AtEndOfLine
strLinje = objTXT.ReadLine
if Len(strLinje) > 1 Then
' Indsæt variablen strLinje i databasen.
End if
loop

Set objTXT = Nothing
Set objFS = Nothing
%>

--
Jakob Andersen
FAQ for webdesign gruppen på
<http://www.usenet.dk/oss/dk.edb.internet.webdesign>
"Det er rart at være vigtig, men det er vigtigere at være rar "jjk

---

> > Jeg har fået udleveret en tekstfil med 1000 pinkoder, som skal læses ind
i
> > min MS SQL databasen. Filen ser ud som følger:
>
> Noget ala dette:
>
> <%
> Option Explicit
> Dim objFS, objFiles, objTXT, strSti, strLinje
> strSti = Server.MapPath("koder.txt")
> Set objFS = Server.CreateObject("Scripting.FileSystemObject")
> Set objTXT = objFS.OpenTextFile(strSti, 1)
> do while not objTXT.AtEndOfLine
> strLinje = objTXT.ReadLine
> if Len(strLinje) > 1 Then
> ' Indsæt variablen strLinje i databasen.
> End if
> loop
>
> Set objTXT = Nothing
> Set objFS = Nothing
> %>

Det var lige hvad jeg skulle bruge.
Tak!

/jesper/