Logdatei in Access Datensätze wandeln

[datenfehler]

Hallo wie kann ich in Access diese Zeilen in einen Datensatz bringen. z.B. ST20002428 ist ein Teil mit 8 Räumen
Sollte so aussehen  2428  0,06  0,09  0,21  4,60  0,29  0,11  0,07  6,94

Danke !!!!!!!!!!

27.08.2010   14:32:43   St200002428 DQ200 4B71; 2B40/2B42    E5   P01   LR  =    0,06   [cm³/min]   IO     5,9982   [bar]   10,0   50,0   -3,0   D1 43,0   D2 41,1   0,0000   0,00   °         
27.08.2010   14:32:43   St200002428 DQ200 4B72; 2B44/2B46    E6   P01   LR  =    0,09   [cm³/min]   IO     5,9990   [bar]   10,0   50,0   -3,0   D1 26,8   D2 24,3   0,0000   0,00   °         
27.08.2010   14:32:43   St200002428 DQ200 3B67; 3B5/2B77    E7   P01   LR  =    0,21   [cm³/min]   IO     5,9986   [bar]   10,0   50,0   -3,0   D1 52,7   D2 43,9   0,0000   0,00   °         
27.08.2010   14:32:43   St200002428 DQ200 Innenraum    E8   P01   LR  =    4,60   [cm³/min]   IO     6,0248   [bar]   10,0   50,0   -6,0   D1 19,1   D2 -40,6   0,0000   0,00   °         
27.08.2010   14:33:01   St200002428 DQ200 3B65; 2B39/2B41    E5   P02   LR  =    0,29   [cm³/min]   IO     5,9999   [bar]   10,0   50,0   -3,0   D1 36,1   D2 27,3   0,0000   0,00   °         
27.08.2010   14:33:01   St200002428 DQ200 3B66; 2B43/2B45    E6   P02   LR  =    0,11   [cm³/min]   IO     5,9995   [bar]   10,0   50,0   -3,0   D1 5,9   D2 2,6   0,0000   0,00   °         
27.08.2010   14:33:01   St200002428 DQ200 2B67/2B95/2B105    E7   P02   LR  =    0,07   [cm³/min]   IO     5,9996   [bar]   10,0   50,0   -3,0   D1 50,0   D2 35,9   0,0000   0,00   °         
27.08.2010   14:33:21   St200002428 DQ200 Getriebeflansch    E8   P02   LR  =    6,94   [cm³/min]   IO     5,9743   [bar]   10,0   50,0   -6,0   D1 15,7   D2 -48,9   0,0000   0,00   °

[Hondo]

Hallo,
du kannst nur per Code die Datei öffnen und zeilenweise auslesen und mit einer entsprechenden Logig das bewerkstelligen.
Ist aber ziemlich aufwendig und sicherlich einiges an Code.
Handeingabe ist vermutlich schneller als da was zu entwickeln.

Andreas

[datenfehler]

Hallo, erst einmal Danke für die Antwort !!!!!!!

Ich habe aber jeden Tag cirka 2000 Teile die ich in di Datenbank einlesen muss, das kann ich mit einer Handeingabe nicht schaffen.
Mit einem Code zum einlesen würde funktionieren, hat vielleicht einer ein Beispiel das ich mir dann umschreiben kann.

Gruß Datenfehler

[lumbumba]

Hier ein kleines bsp

Code (aber ohne Gewähr) [Auswählen] Erweitern


    Dim s As String
    Dim r As RegExp
    Dim ms As MatchCollection
    Dim m As Match
    Dim ff As Integer
    Dim i As Long
    ReDim sLR(1 To 1) As String
    ff = FreeFile
    Open "DerPathUndNameZuDeinerDatei" For Input As #ff
        Do While EOF(ff) = False
            Line Input #ff, s
            sDatum = Left(s, 24)
            sRaum = Mid(s, 25, 11)
            i = i + 1
            ReDim Preserve sLR(1 To i)
            Set r = New RegExp
            r.Pattern = "LR  =([0-9, ]+)"
            Set ms = r.Execute(s)
            If ms.Count > 0 Then
                Set m = ms.Item(0)
                sLR(i) = Trim(Mid(m.Value, 6))
            End If
           
            Set m = Nothing
            Set ms = Nothing
            Set r = Nothing
        Loop
    Close #ff
    Msgbox sDatum & " " & sRaum  & " " & Join(sLR(), ", ")

[datenfehler]

Hallo lumbumba,

vielen Dank werde es am Wochenende ausprobieren !!!!!!