20020126 050633 [CAT] 5/21/00 9:41 AM [ID:80D7,SESSION:2] is merged.(files=105)
20020126 050633 [CAT] 5/21/00 9:41 AM [ID:80D7,SESSION:3] is merged.(files=1)
20020126 050633 [CAT] 5/21/00 9:41 AM [ID:80D7,SESSION:4] is merged.(files=1)
20020126 050633 [CAT] 5/21/00 9:41 AM [ID:80D7,SESSION:5] is merged.(files=0)
20020126 050634 [CAT] 5/21/00 9:41 AM [ID:80D7,SESSION:6] is merged.(files=1)
20020126 050634 [CAT] 5/21/00 9:41 AM [ID:80D7,SESSION:7] is merged.(files=0)

code:

---

Break on
$CRLF=CHR(13)+CHR(10)
If Exist("c:\kix4.02\newlog.txt")
  Del "c:\kix4.02\newlog.txt"
EndIf
If Open(1,"c:\kix4.02\newlog.txt",5) <> 0
  ? "Newlog file not opened, error code: [" + @ERROR + "]"
  GoTo skip
EndIf
If Open(2,"c:\kix4.02\log.txt") = 0
  $line = ReadLine(2)
  WHILE @ERROR = 0
    ? "Line read: [" + $line + "]"
    If instr($line, "20020126") <> 0
      WriteLine(1,$Line+$CRLF)
    Endif
    $line = ReadLine(2)
  LOOP
  Close (2)
ELSE
  BEEP
  ? "Log file not opened, error code: [" + @ERROR + "]"
EndIf

:skip
Close (1)
get $_

---

Thanks a million!
Chris

First, the $CRLF variable is simply created to be used later in WriteLine(). It's not necessary to make it a variable, just a common practice. I could just as easily have used "WriteLine(1,$Line+CHR(13)+CHR(10))"

The If Open() statements are just standard error trapping. They are not nested but branched, as there is no point in proceeding if the first Open() fails.

You need two Open() statements, one for the Newlog in "create/write" mode (hence the "5"), and the second for log.txt in "read" (hence no 3rd par). The "5" is really 1 (If the file does not exist, OPEN will create a new file) + 4 (Opens the file for write access).

[ 27 January 2002: Message edited by: LLigetfa ]

An easy way of extracting todays log-entries would be to shell out and use the Find command
to look for date on the format YYYYMMDD and pipe the result to 'todays' logfile
(This can be done because each log entry always contains the date)

Example:

code:

---

$LogFile = "c:\program files\somedir\log.txt"
$YYYYMMDD = Left(@Date, 4) + SubStr(@Date, 5, 2) + Right(@Date, 2)
$TodayLog = "c:\program files\somedir\" + $YYYYMMDD + ".txt"
Shell '%COMSPEC% /C Type "$LogFile" | Find "$YYYYMMDD" > "$TodayLog"'

---

In order to retrieve yesterdays log you have to do some date calculations. If you use Kix version 4
you can do that using the UDF SerialDate()

Example:

code:

---

$TodayInt = SerialDate(@Date) ; Convert date to number
$YesterdayInt = $TodayInt - 1 ; Subtract 1 from date = yesterday
$DateSep = SerialDate($YesterdayInt) ; Convert to date on format: YYYY/MM/DD
$YYYYMMDD = Left($DateSep, 4) + SubStr($DateSep, 5, 2) + Right($DateSep, 2)
$LogFile = "c:\program files\somedir\log.txt"
$DayLog = "c:\program files\somedir\" + $YYYYMMDD + ".txt"
Shell '%COMSPEC% /C Type "$LogFile" | Find "$YYYYMMDD" > "$DayLog"'
Return
 
function SerialDate($ExpD)
	; Author: ScriptLogic Corporation
	; parameter ($ExpD) must be a date (in the form of yyyy/mm/dd)
	; or an integer previously derived by this function.
	; if passed a date, it returns an integer.
	; If passed an integer, it returns the date.
	; Integers can be used for general-purpose math computations on dates
	; and then converted back to dates by calling this function again.
	; Algorithms were obtained from: http://www.capecod.net/~pbaum/date/date0.htm  
	dim $z,$h,$a,$b,$c,$y,$m,$d
	if instr($ExpD,'/') ; date passed
		$y=val(substr($ExpD,1,4))
		$m=val(substr($ExpD,6,2))
		$d=val(substr($ExpD,9,2))
		if $m<3
			$m=$m+12
			$y=$y-1
		endif
		; return an integer
		$SerialDate=$d+(153*$m-457)/5+365*$y+$y/4-$y/100+$y/400-306
	else ; integer passed
		$z=0+$ExpD+306 ; force numeric
		$h=100*$z-25
		$a=$h/3652425
		$b=$a-$a/4
		$y=(100*$b+$h)/36525
		$c=$b+$z-365*$y-$y/4
		$m=(5*$c+456)/153
		$d=$c-(153*$m-457)/5
		if $m>12
			$y=$y+1
			$m=$m-12
		endif
		if $m<=9
			$m='0'+$m
		endif
		if $d<=9
			$d='0'+$d
		endif
		 ; return a string date
		$SerialDate=''+$y+'/'+$m+'/'+$d
	endif
endfunction

---

-Erik

[ 27 January 2002: Message edited by: kholm ]

quote:

---

Microsoft Windows 2000 [Version 5.00.2195]
(C) Copyright 1985-2000 Microsoft Corp.

C:\KiX4.02>C:\KiX4.02\kix32.exe C:\KiX4.02\test.kix /d

---

Thanks again,
Chris

code follows:
If Open(1,"c:\Progra~1\Comput~1\ArcServ\ArcServ.log",5) <> 0

endcode:

what about when copying could I use

code follows:

$dest = chr(34) + "c:\Long dir name with spaces\another LDNWS\" + chr(34)
shell "%comspec% /c copy c:\*.txt $dest"

endcode:

what about the If Open command though is the above alright. (the code with the ~1 in the names?

signed,
very confused newbie

Just to be certain, Itested the following with both 4.02 and 3.62 and there was no prob.

code:

---

Break on
$CRLF=CHR(13)+CHR(10)
If Exist("C:\Documents and Settings\Admin\Desktop\new extra long log.txt")
  Del "C:\Documents and Settings\Admin\Desktop\new extra long log.txt"
EndIf
If Open(1,"C:\Documents and Settings\Admin\Desktop\new extra long log.txt",5) <> 0
  ? "Newlog file not opened, error code: [" + @ERROR + "]"
  GoTo skip
EndIf
If Open(2,"C:\Documents and Settings\Admin\Desktop\log.txt") = 0
  $line = ReadLine(2)
  WHILE @ERROR = 0
    ? "Line read: [" + $line + "]"
    If instr($line, "20020126") <> 0
      WriteLine(1,$Line+$CRLF)
    Endif
    $line = ReadLine(2)
  LOOP
  Close (2)
ELSE
  BEEP
  ? "Log file not opened, error code: [" + @ERROR + "]"
EndIf

:skip
Close (1)
get $_

---

Look over your code carefully and make sure you don't have an odd number of quotes or an if without an endif etc. Download KiXStripxxx from http://home.wanadoo.nl/scripting/ and use it to check your code.

[ 28 January 2002: Message edited by: LLigetfa ]

Best regards,
Chris

If Open(2,"c:\logs\currentlog.txt") = 0
$line = ReadLine(2)
WHILE @ERROR = 0
? "Line read: [" + $line + "]"
If instr($line, "Jan-26") <> 0
WriteLine(1,$Line+$CRLF)
Endif
$line = ReadLine(2)
LOOP
Close (2)
ELSE
BEEP ? "Log file not opened, error code: [" + @ERROR + "]"
EndIf

Chris

KiX has macros that can return the full month name @Month and month day number @MDayNo. You could build an array of abreviations and use @MonthNo to pull the current one.

Thanks,
Chris

Thanks,
Chris

$MDayNo = Val(@MDayNo)
If $MDayNo < 10
$MDayNo = "0" + $MDayNo
EndIf

$MonthNo = Val(@MonthNo)
$AllMonths = "JanFebMarAprMayJunJulAugSepOctNovDec"
$Search = SubStr($AllMonths,($MonthNo * 3 - 2),3) + "-" + $MDayNo

? "$$MDayNo = " + $MDayNo
? "$$MonthNo = " + $MonthNo
? "$$Search = " + $Search

For the YYYYMMDD format

$Date = @Date
$Sdate = (Substr($Date,1,4)+Substr($Date,6,2)+Substr($Date,9,2))
$Search = $Sdate

Then all you need do is substitute the hard coded search criteria with $Search and you're good to go.

If instr($line, $Search) <> 0

This of course is only if you run the script on the day the log entry was created. If you run it on the following day then you'll need to do date math as Erik suggested.

p.s. I'm learning little by little.

Tak or
Dank je wel?,
Chris