Avatar billede yuksel Nybegynder
03. maj 2005 - 08:35 Der er 9 kommentarer og
1 løsning

import textfil til access tabel.

Hej til alle.

Jeg er igang med at importer fra en tekstfil.
min kode ser sådan ud :

Open filnavn For Input As #1
'If Not filnavn.EOF Then filnavn.MoveFirst
'filnavn.MoveNext

Do While Not EOF(1)
Line Input #1, line
    fields = Split(line, ",")
    MsgBox fields(0)
    MsgBox fields(1)
Loop
Close #1

End Sub

min problem er så den første linie indholder navn osv, den vil jeg gerne springe over men hvordan kan man det  ?
har prøvet med movenext osv. det virker ikke :(


min næste problem er at de tal der skal importeres er : 104.45
og access aceptere ikke . men , istedet for hvordan kan jeg formatere det ? det er fields(0) og fields(1) ?
Avatar billede yuksel Nybegynder
03. maj 2005 - 09:07 #1
skal jeg afsætte flere poin ?
Avatar billede sjap Praktikant
03. maj 2005 - 10:41 #2
Kan det ikke klares med en ekstra "Line Input" udenfor din loop?
Open filnavn For Input As #1
'If Not filnavn.EOF Then filnavn.MoveFirst
'filnavn.MoveNext

Line Input #1, line
Do While Not EOF(1)
Line Input #1, line
    fields = Split(line, ",")
    MsgBox fields(0)
    MsgBox fields(1)
Loop
Close #1

End Sub
Avatar billede yuksel Nybegynder
03. maj 2005 - 10:58 #3
hvad med talformtering det med . der skal erstates med , ?
har du en forslag til dette  også :) `?
Avatar billede yuksel Nybegynder
03. maj 2005 - 11:04 #4
min næste problem er at de tal der skal importeres er : 104.45
og access aceptere ikke . men , istedet for hvordan kan jeg formatere det ? det er fields(0) og fields(1) ?
Avatar billede sjap Praktikant
03. maj 2005 - 11:10 #5
Hvad med Val eller Cdbl funktionen:

    MsgBox Val(fields(0))
    MsgBox Val(fields(1))

eller

    MsgBox CDbl(fields(0))
    MsgBox CDbl(fields(1))
Avatar billede yuksel Nybegynder
03. maj 2005 - 11:14 #6
dette er fra tekstfilen        = 0.0100
og med val kommer der ud sådan = 0,01
Men det skal jo komme sådan ud  = 0,0100
Avatar billede yuksel Nybegynder
03. maj 2005 - 11:16 #7
CDbl virker ikke rigtigt på den
Avatar billede sjap Praktikant
03. maj 2005 - 11:44 #8
Jamen du får det jo rigtigt nok ud. Der er jo ikke nogen matematisk forskel på 0,01 og 0,0100.

De manglende nuller er blot et spørgsmål om formatering:

Format(Val(fields(1)), "0.0000")
Avatar billede yuksel Nybegynder
03. maj 2005 - 12:09 #9
takker mange gange :)
Avatar billede kabbak Professor
03. maj 2005 - 14:52 #10
jeg bruger denne til at sætte ind i tabel

DoCmd.TransferText [transfertype][, specificationname], tablename, filename[, hasfieldnames][, HTMLtablename][, codepage]

mit eksempel

DoCmd.TransferText acImportDelim, "New_CARBOE importspecifikation", "CARBOE", fil, False, , 865
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester