log file von Roboter einlesen und durchsuchen

Hi alle,
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

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Gernot
Warum zeichnest Du nicht einfach auf:

Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;c:\robot.log" _
, Destination:=Range("A1"))
.Name = "robot.log"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
Hiervon ist noch vieles entbehrlich und es geht wesentlich schneller.
Grüße aus dem sonnendurchfluteten Ruhrpott.

Beliebteste Forumthreads (12 Monate)

log file von Roboter einlesen und durchsuchen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread