03. januar 2006 - 15:39
Der er
4 kommentarer og
1 løsning
Indlæse fil i bidder
Tja, min fil er en .txt fil, som indeholder 0 eller flere linier som består af 0 eller flere elementer, adskildt af komma og omkranset af ".
Eksempel:
"051024","0729","232321870000013846","04343012841657"
"051024","0800","223012870000013453","02301487416557"
"051024","0829","225018700001432860","02301287416457"
"051024","0900","223340187030001277","01273433446557"
Sommetider, hvis et eller andet går galt, kan en linie se sådan her ud:
"051024", "0523", "324234322
Jeg skal altså bruge en løkke, som løber filen igennem, linie for linie, læser linien ind i 0 eller flere variabler (op til 4) og fjerner "'ene.
03. januar 2006 - 15:48
#2
p.t. bruger jeg
DoCmd.TransferText acImportDelim, bla bla...
men det virker ikke når jeg kopierer databasen til Terminal Server (med Access XP Runtime), så lukker programmet ned når det når til ovenstående linie! :(
03. januar 2006 - 17:07
#3
Eksempel:
Sub Indlæs()
Dim s As String
Dim a As Variant
Dim i As Integer
Open "C:\Temp\Fil4.txt" For Input As #1
While Not EOF(1)
Line Input #1, s
a = Split(s, ",")
For i = 0 To UBound(a)
Debug.Print a(i),
Next i
Debug.Print
Wend
Close 1
End Sub
Så kan du i øvrigt teste på UBound(a) for at tjekke, om alle 4 elementer var der.
