Udtræk fra .dat eller .txt filer med varierende indholdsstruktur

Det skulle nok være muligt via en makro i Excel.
Behersker du VBA?

og så velkommen til Eksperten..

Hej supertekst

Nej det gør jeg desværre ikke :-(

Mvh.
Jens Peter

Prøv at sende et eksempel på råfilen og det ønskede udtræk sådan som det skal se ud i Excel.

Hvilken Office-version anvender du? Anvender selv 2007.

@-adresse under min profil.

Rem Indtil videre aktiveres kode med Alt+F8 / Afspil makroen opDelingAfDat

Dim sti As String, filnavn As String, linje As String, tabel As Variant
Dim række As Long
Public Sub opdelingAfDat()
    sti = ActiveWorkbook.Path
    række = 2                                      'overskrift i række 1
   
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(sti)
    Set fc = f.Files
   
Rem traverser den aktuelle mappe - find filer med extension .dat
    For Each f1 In fc
        filnavn = LCase(f1.Name)
        If LCase(Right(filnavn, 4)) = ".dat" Then
            udtrækFraDat filnavn
        End If
    Next
   
    MsgBox "Gennemløb afsluttet"
End Sub
Private Sub udtrækFraDat(filnavn)
Dim parts As String
    Open sti & "\" & filnavn For Input As #1
    While Not EOF(1)
        Input #1, linje
        tabel = Split(linje, "&")
       
        For parts = 0 To UBound(tabel)
            del = tabel(parts)
           
            If InStr(del, "Date") = 1 Then
                Range("A" & række) = Mid(del, 6)        'dato
            Else
                If InStr(del, "Total") = 1 Then
                    Range("B" & række) = Mid(del, 7)    'total
                    række = række + 1
                End If
            End If
        Next
    Wend
    Close #1
End Sub

Kunne det anvendes?