Dechifrering af filer (ind i Access)

Because the layout of th efile follows no standard it would require special programming (as far as I can make out) which would very likely take a number of hours work before its running correctly.

You also say "Jeg har en fil..." but actually you show two files, maybe there are others, and maybe the layout isnat exactly the same (number of lines may differ?)

If there was only these two files it would be faster just entering them manually

Du er nød til at hente det ind i en temptabel med 1 kolonne, som er et tekstfelt og så klare resten i vba...

Jeg prøver lige!~)

Det er ligesom tv-køkkenet, jeg har snydt og lavet lidt i derhjemmefra!~)

Hvis du laver en autoimport, hvor du rykker det hele ind i en temp tabel med et felt:

TempTabel:
Tekstfelt

og så har din slut tabel:

DinNyTabel:
Fakture
Navn
Indestaaende
BytningAfKroner
NySaldo

Så vil flytning kunne gøres således!~)

Private Sub RunVBA_Click()
Dim db As DAO.Database
Dim r As DAO.Recordset
Set db = CurrentDb()
Set r = db.OpenRecordset("TempTabel")
Dim a As Long, b As String, c As String, d As Double, e As Double, f As Double, g As Double
Dim rSQL As String
With r
.MoveFirst
a = Mid(!tekstfelt, 12) 'Fakturenr
.MoveNext
b = Mid(!tekstfelt, 9) 'Navn1
.MoveNext
c = Mid(!tekstfelt, 9) 'Navn2
.MoveNext
.MoveNext
d = Mid(!tekstfelt, (Len(b) + 5)) 'Saldo1
.MoveNext
e = Mid(!tekstfelt, (Len(c) + 5)) 'Saldo2
.MoveNext
.MoveNext
.MoveNext
.MoveNext
.MoveNext
f = Mid(!tekstfelt, (Len(b) + 9)) 'NySaldo1
.MoveNext
g = Mid(!tekstfelt, (Len(c) + 9)) 'Nysaldo2
.Close
End With
DoCmd.SetWarnings False
rSQL = "INSERT INTO DinNyTabel ( Fakture, Navn, Indestaaende, BytningAfKroner, NySaldo ) SELECT " & a & ", '" & b & "', " & d & ", " & (f - d) & ", " & f & ";"
DoCmd.RunSQL rSQL
rSQL = "INSERT INTO DinNyTabel ( Fakture, Navn, Indestaaende, BytningAfKroner, NySaldo ) SELECT " & a & ", '" & c & "', " & e & ", " & (g - e) & ", " & g & ";"
DoCmd.RunSQL rSQL
rSQL = "DELETE TempTabel.* FROM TempTabel;"
DoCmd.RunSQL rSQL
DoCmd.SetWarnings True
End Sub

Hej

Tak for jeres svar. Jeg er dog ikke den hurtigste knallert på havnen, så jeg har behov for lidt mere hjælp ;-)


1) Hvad mener du med "rykker det hele ind i en temp tabel med et felt" ?
2) Hvordan aktivere jeg koden? Via en batch fil?

Endnu engang tak for svaret.

Ikke den hurtigste knallert på havnen!~)

Du kan f.eks. lave en knap, som først importerer en fil og så kører koden....

Importen kommer lidt an på antallet af filer, hvordan de navngives osv.. Koden er lavet, så at hvis du får importeret en fil ind i en tabel, som du kalder TempTabel i et tekstfelt, som jeg har kaldt Tekstfelt (meget opfindsomt!~) så kan du køre koden. I dette eksempel har jeg har jeg brugt en knap kaldt RunVBA til at køre koden, du kan se eksemplet her:

www.spgprogramming.com/access/Eksperten/spm813472.mdb

Husk at se indholdet af tabellen TempTabel inden du trykker på knappen!~)

Hvis du så har en tekstfil eller lign. så burde du kunne gå i access og vælge filer/hent eksterne data/importer
Vælg filformat find fil
og så
Fast bredde
Avanceret
Slet alle felter pånær felt1
Sæt bredden så alle data kommer med
Feltnavn skriv Tekstfelt iflg. mit eksempel
Gem Som
Et eller andet importspecifikation
OK
og så Annuller

Herefter kan du f.eks. lave en knap og ligge flg. kode:

DoCmd.TransferText acImportFixed, "Et eller andet importspecifikation", "TempTabel", "Sti til filen", False

Held og lykke!~)

Bingo, Hr. spg.

Tak for hjælpen