code:

---

$variable = what to look for
$file = file to open 
open $file
$line = readline (1)
$x = 1
$result = $x # of times found
open $file
while @error = 0
if instr($line,$variable)
$result = $x
endif
$line = readline(1)
$x = $x + 1
loop
close $file
? $result
  

---

code:

---

$file="c:\temp.txt"
$string="whatever"
$length=len($string)

$count=0

$=open(1,$file,1)
$line=readline(1)
while @error=0
	:lookagain
	$pos=instrrev($line,$string)
	if $pos
		$count=$count+1
		$string=left($string,$pos)
		goto lookagain
		endif
	$line=readline(1)
	loop
$=close(1)
? $count

---

code:

---

  
$file="%temp%\text.txt"
$string="*"
$length=len($string)
$count=0
$=open(1,$file,1)
$line=readline(1)
while @error=0
	:lookagain
	$pos=instrrev($line,$string)
	if $pos
		$count=$count+1
		$string=left($string,$pos)
		goto lookagain
		endif
	$line=readline(1)
	loop
$=close(1)
? $count

---

code:

---

  $string=left($string,$pos)
 

---

code:

---

  $line=left($line,$pos)
 

---

code:

---

 
$file="%temp%\text.txt"
$string="*"
$length=len($string)
$count=0
$=open(1,$file,1)
$line=readline(1)
while @error=0
	:lookagain
	$pos=instrrev($line,$string)
	if $pos
		$count=$count+1
		;$string=left($string,$pos)
                $line=left($line,$pos)
                goto lookagain
	endif
	$line=readline(1)
	loop
$=close(1)
? $count 

---

code:

---

$line=left($line,$pos)  

---

code:

---

$line=left($line,$pos-1)  

---

code:

---

$=open(1,$file,1)  

---

code:

---

$=open(1,$file,2)  

---

code:

---

  
$file="%temp%\text.txt"
$string="*"
$length=len($string)
$count=0
$=open(1,$file,2)
$line=readline(1)
while @error=0
	:lookagain
	$pos=instrrev($line,$string)
	if $pos
		$count=$count+1
		;$string=left($string,$pos)
                $line=left($line,$pos-1)
                goto lookagain
        endif
	$line=readline(1)
loop
$=close(1)
? $count

---

code:

---

break on
$file="c:\data\scripts\junk.txt"
$string="*"
$length=len($string)
$count=0
$=open(1,$file,2)
$line=readline(1)
while @error=0
   :lookagain
   $pos=instrrev($line,$string)
   if $pos
      $count=$count+1
      $line=left($line,$pos-1)
      goto lookagain
   endif
   $line=readline(1)
   loop
$=close(1)
? "Count of '" + $string + "' = " + $count

  

---