code:

---

  
IF Open(1,"c:\sync-c.log") = 0
Endif
$line = Readline(1)
WHILE @ERROR = 0
$line = Readline(1)
IF substr($line,1,8)='sending '
$prevline=$line
$line=substr($line,9)
$dot=instr($line,'.')
$line=substr($line,1,$dot + 3)
$sentfile=$line
$line5 = Readline(1)   <--Returns a blank line

if substr($line5,1,11)='FAILED SEND' $failfile=$sentfile

---

code:

---

IF Open(1,"c:\sync-c.log") = 0
  $currentline = ReadLine(1)
  WHILE @ERROR = 0
    $lastline=$currentline
    $currentline = ReadLine(1)
    if instr($lastline,'sending') and instr($currentline,'failed send')
      ; failed to send
    endif
  LOOP
  Close (1)
endif

---

quote:

---

Status OK when sending 9372410_ASC_DfESXXX_001.ERR (new file)
Status OK when sending 9372410_ASC_DfESXXX_001.NUM (new file)
Status OK when sending 9372410_ASC_DfESXXX_001.SUM (new file)
Status OK when sending 9372410_ASC_DfESXXX_001.XML (new file)
Status OK when receiving KSM12410.MTF (new file)
Status OK when receiving SEN2410.CSV (new file)
Status OK when receiving BLLIT241.TXT (new file)
Status OK when receiving BLMAT241.TXT (new file)
Failed when sending file ims_archive.bat (new file). Error follows:
: HOST:425 Can't open data connection.
: DLL:425 Can't open data connection.
Failed when sending file IMS_Sync.lnk (new file). Error follows:
: HOST:425 Can't open data connection.
: DLL:425 Can't open data connection.
Failed when sending file ims_transfer.bat (new file). Error follows:
: HOST:425 Can't open data connection.
: DLL:425 Can't open data connection.
Failed when sending file archive.kix (new file). Error follows:
: HOST:425 Can't open data connection.
: DLL:425 Can't open data connection.

---

code:

---

$sLogFile="C:\sync-c.log"
$fdLogFile=1
$iLine=0
	
If Open($fdLogFile,$sLogFile)
	"Error opening file " $sLogFile ?
	@ERROR ": " @SERROR ?
	Exit 1
EndIf
	
$sLogEntry=Readline($fdLogFile)
While @ERROR=0
	$iLine=$iLine+1
	$sKeyWord=Split($sLogEntry)[0]
	Select
	Case $sLogEntry="" OR $sKeyWord="#"
		; Ignore blank lines
	Case $sKeyWord="sending" OR $sKeyWord="receiving"
		If $sMode<>""
			"Status OK when " $sMode " " $sFile ?
		EndIf
		$sFile=SubStr($sLogEntry,Len($sKeyWord)+2)
		$sMode=$sKeyWord
	Case $sKeyWord="FAILED"
		"Failed when " $sMode " file " $sFile ". Error follows:" ?
		$sMode=""
	Case "True"
		If $sMode=""
			" : " $sLogEntry ?
		Else
			"Log file parse error line " $iLine " : Unknown log file entry:" $sLogEntry ?
		EndIf
	EndSelect
	$sLogEntry=Readline($fdLogFile)
Loop

---