Hur skrivar jag koden i VB 6 för att kunna läsa in en semikolonseparerad textfil till Access databas.
Vore bra om det finns ett bra förslag.
LP

Testa detta........byt ut Lf mot ; i splitten. / Alex


Public Sub Hämta_loggfil()

' Lite deklarationer

Dim intFilenum1 As Integer ' Nummer för att hämta loggfilen
intFilenum1 = FreeFile
Dim strLineIn As String ' LineIn från loggfilen
Dim UnixArray() As String ' Array för att hantera lineIn
Dim i As Integer ' Räknare för att loopa genom loggfilen
Dim strorgFil As String ' Definierar de filer som skall läsas in

' -----------------------------------------------------------


Starta_filinläsning:


strorgFil = Dir(strLoggPath & "\ep*")

On Error GoTo Finns_ingen_fil

Open strLoggPath & strorgFil For Input As #intFilenum1

On Error GoTo Err_handler

strLineIn = Input$(LOF(intFilenum1), intFilenum1)

Close #intFilenum1


' Öppnar databasen och temp-tabellen
Set rs = db.OpenRecordset("TEMP", dbOpenTable)

' Splittar raderna vid varje Lf (Linefeed = UNIX-radslut)
UnixArray = Split(strLineIn, Chr$(10))

' Delar upp varje rad i rätt fält och lägger in i temp-tabellen
For i = 0 To UBound(UnixArray)


rs.AddNew

rs!Nr = Left(UnixArray(i), 4)
rs!Namn = Mid(UnixArray(i), 5, 24)
rs!ListNr = Mid(UnixArray(i), 70, 3)

rs.Update


Next ' Tar nästa rad i filen

Tack för hjälpen, det fungerade utmärkt.
LP