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 °
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
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
Hier ein kleines bsp
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(), ", ")
Hallo lumbumba,
vielen Dank werde es am Wochenende ausprobieren !!!!!!