log file von Roboter einlesen und durchsuchen
20.01.2004 10:50:17
Gernot
ich habe hier einen Roboter stehen, der mir einen log file schreibt. Diesen log file will ich gerne von zeit zu zeit in ein Excel sheet einlesen und dabei
Thu Dec 18 12:18:20 2003]: waitfer succeeded -- Caution
[Thu Dec 18 12:18:28 2003]: (s=1; c=0x2; q=2; m=2; n=1): STARTING Put
[Thu Dec 18 12:18:46 2003]: (s=1; c=0x2; q=2; m=2; n=1): DONE Put
[Thu Dec 18 12:18:46 2003]: waitfer succeeded -- OK
[Thu Dec 18 12:18:46 2003]: (s=1; c=0x2; q=3; m=2; n=1): STARTING Incubate
[Thu Dec 18 12:18:52 2003]: waitfer succeeded -- OK
[Thu Dec 18 12:19:17 2003]: (s=1; c=0x2; q=3; m=2; n=1): DONE Incubate
[Thu Dec 18 12:19:17 2003]: (s=1; c=0x2; q=4; m=3; n=1): STARTING Get
[Thu Dec 18 12:19:35 2003]: (s=1; c=0x2; q=4; m=3; n=1): DONE Get
[Thu Dec 18 12:19:56 2003]: waitfer succeeded -- Caution
[Thu Dec 18 12:20:00 2003]: (s=2; c=0x2; q=9; m=2; n=1): STARTING Put
[Thu Dec 18 12:20:19 2003]: (s=2; c=0x2; q=9; m=2; n=1): DONE Put
[Thu Dec 18 12:20:19 2003]: waitfer succeeded -- OK
[Thu Dec 18 12:20:19 2003]: (s=2; c=0x2; q=10; m=2; n=1): STARTING Incubate
[Thu Dec 18 12:21:10 2003]: waitfer succeeded -- OK
[Thu Dec 18 12:21:19 2003]: (s=2; c=0x2; q=10; m=2; n=1): DONE Incubate
[Thu Dec 18 12:21:19 2003]: (s=2; c=0x2; q=14; m=3; n=1): STARTING Get
[Thu Dec 18 12:21:39 2003]: (s=2; c=0x2; q=14; m=3; n=1): DONE Get
[Thu Dec 18 12:21:48 2003]: waitfer succeeded -- Caution
[Thu Dec 18 12:21:59 2003]: (s=3; c=0x2; q=19; m=2; n=1): STARTING Put
[Thu Dec 18 12:22:17 2003]: (s=3; c=0x2; q=19; m=2; n=1): DONE Put
[Thu Dec 18 12:22:17 2003]: waitfer succeeded -- OK
[Thu Dec 18 12:22:17 2003]: (s=3; c=0x2; q=20; m=2; n=1): STARTING Incubate
[Thu Dec 18 12:23:13 2003]: waitfer succeeded -- OK
z. B. die Zeile
[Thu Dec 18 12:18:46 2003]: (s=1; c=0x2; q=3; m=2; n=1): STARTING Incubate
in einzelne Zellen aufteilen. Insbesondere S=1 und starting incubate sollen fuer sich stehen.
mit folgendem code habe ich schon alles eingelsen
Sub TextImport()
Dim intRow As Integer, intCol As Integer
Open "c:\robot.log" For Input As #1
Dim txt As String
Do Until EOF(1)
Line Input #1, txt
intRow = intRow + 1
Do Until txt = ""
intCol = intCol + 1
If InStr(txt, ";") Then
Cells(intRow, intCol) = Left(txt, InStr(txt, ";") - 1)
txt = Right(txt, Len(txt) - InStr(txt, ";"))
Else
Cells(intRow, intCol) = txt
txt = ""
End If
Loop
intCol = 0
Loop
Close
End
Sub
aber wie kann ich "=" und : als Trennzeichen einsetzen
Gruss aus Kopenhagen, Gernot