alle xBase Dialekte sind Cl*pper kompatible ... aber einige können "mehr"
Code: Alles auswählen
At( <cSubString>, <cString>, [<nStartPos>] ) --> nPosition
Code: Alles auswählen
FUNCTION Countat( cString, cSign )
LOCAL nRet := 0
LOCAL nPosi := 1
LOCAL nMax := LEN( cString )
DO WHILE nPosi > 0
nPosi := AT( cSign, cString, nPosi + 1 )
IF nPosi > 0
nRet ++
ELSE
EXIT
ENDIF
ENDDO
RETURN nRet
p.s. ich möchte NICHT den Code ändern sondern eine "andere" Function AT() schreiben die Cl*pper kompatible sein muss.