Import bestemt data

Kan du åbne filen i en teksteditor, fx Word og erstatte "Næste Post" med tvungen ny linje (¶) og alle "/" med fx semikolon (;)?

og gemme filen igen som en .txt-fil ?

Kender du feltnavnene på de enkelte felter i strengen? Hvis du gør det, så opret en tabel med disse felter.

Dernæst vælger du Eksterne Data | Tekstfil (o gruppen Import og sammenkæd) og følger vejledningen

i VBA skal du bruge kommadoen: DoDmd.TransferText  - stadig med den redigerede txt fil som inputfil.

Hvordan er datastrukturen i databasen.
Skal alt indsættes i en tabel??? - Måske ikke den mest hensigtsmæssige løsning!

Datastrukturen vil blive bestemt af hvordan jeg kan få data´en ind

Strukturen i input filen vil jeg helst ikke ændre i. Men hver line starter med et bogstav.

S/-/-/-/-/-/-/-/-/-/-/-/-/-/-//
L/-/-/-/-/-/-/-/-/-/-//
p/-/-/-/-/-/-/-/-//
B/-/-/-/-/-/-/-//

OSV. og de slutter altid med //.

Du kan "klippe linjen i stykker" med Split kommandoen.

Eksempel (se resultatet i Immediate vinduet, Ctrl-G):

Sub Afkod()
  Dim s As String
  Dim i As Integer
  Dim Felt
 
  Open "c:\Temp\Files\t.txt" For Input As #1
 
  Debug.Print "----------"
  Do Until EOF(1)
    Line Input #1, s
    If s = "'Næste post" Then
      Debug.Print s
    Else
      Felt = Split(s, "/")
      For i = 0 To UBound(Felt)
        Debug.Print "<"; Felt(i); ">"; Tab((i + 1) * 10);
      Next i
      Debug.Print
    End If
  Loop
 
  Close 1
End Sub

Takker for point ;O)