code:

---

READLINE
Action
Reads a line from a file.

Syntax
READLINE (file number)

Parameter
File number
A numeric expression indicating the file number of the file to open. Possible values range from 1 to 10.

Remarks
READLINE reads a string ending in a carriage return. If successful, the function 
returns the string without a carriage return. If it encounters an error, @ERROR returns an error code.

Returns
-4	File not open for reading
-3	File number not open
-2	Invalid file number specified
-1	End of file
0	Line read successfully

Example
IF Open(3, @LDRIVE + "\CONFIG\SETTINGS.INI")  = 0
   $x = ReadLine(3)
   WHILE @ERROR = 0
      ? "Line read: [" + $x + "]"
      $x = ReadLine(3)
   LOOP
   Close (3)
ELSE
   BEEP
   ? "Config file not opened, error code: [" + @ERROR + "]"
ENDIF

---

code:

---

$search_for_line="our text we are looking for"
$file="c:\temp\our_file.txt"
;
IF (Open(1,$file,1) = 0)
   $line=ReadLine(1)
   $found="no"
   WHILE (@error = 0)
      IF (Instr($line,$search_for_line) <> 0)
         $found="yes"
      ENDIF
      $line=ReadLine(1)
   LOOP
   IF Close(1)
   ENDIF
   ;
   ; - append to file -
   ;
   IF (found <> "yes")
      IF (Open(1,$file,5) = 0)
         IF (WriteLine(1,$search_for_line+@crlf) <> 0)
            ? "Warning KIX-WriteLine: error @error (@serror)."
         ENDIF
         IF Close(1)
         ENDIF
      ENDIF
   ENDIF
ENDIF

---