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 

---