Jag har en textfil som är kommaseparerad, nedan skriver dom
något om detta som jag inte förstår!? Kan någon hälpa mig?

Jag borde kanske skriva att jag behöver hjälp med att läsa i en kommaseparerad textfil, skilja ut dom olika "fälten" :)

Mvh Fredde



<code>
ODBC för textfiler:


con.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=c:\somepath\;" & _
"Extensions=asc,csv,tab,txt;" & _
"Persist Security Info=False"
</code>

' Obs, skriv filnamnet i sql-frågan:
<code>
oRs.Open "Select * From customer.csv", _
con, adOpenStatic, adLockReadOnly, adCmdText
</code>

' Om du använder kommaseparerad fil, använd då en schema.ini filen
' och inkludera den i satsen "Format=TabDelimited".

Så här gör du för att lägga till en ny rad i en befintlig textfil.

Set Obj = CreateObject("Scripting.FileSystemObject")
CurrentFile = Server.MapPath("textfil.txt")

Set TS = Obj.OpenTextFile(CurrentFile, 8)
TS.WriteLine "ny textrad"
TS.Close
Set Obj = Nothing



Kodexemplet nedan läser in raderna i samma textfil och fyller en kombinationsruta med innehållet.

Set Obj = CreateObject("Scripting.FileSystemObject")
Currentfile = Server.MapPath("textfil.txt")
Set TS = Obj.OpenTextFile(Currentfile, 1)
%>

<p>
<SELECT NAME="items">
<%

Do While Not TS.AtEndOfStream
items= TS.ReadLine
arrayData = Split(items, vbCrLf)


For i = 0 To Ubound(arrayData)
%>
<OPTION><%=arrayData(i)%></OPTION>
<%Next%>

<%
Loop
TS.Close

Set Obj = Nothing
%>

</SELECT>