9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
30 lines
599 B
Plaintext
30 lines
599 B
Plaintext
|
|
#require "hbnf"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL cSearch, cTarget, var0
|
|
|
|
CLS
|
|
? "TEST TO DEMONSTRATE EXAMPLES OF FT_AT2"
|
|
?
|
|
cSearch := "t"
|
|
? "Find occurrences of 't' in: "
|
|
cTarget := "This is the day that the Lord has made."
|
|
?? cTarget
|
|
?
|
|
var0 := ft_At2( cSearch, cTarget )
|
|
? PadR( "ft_At2( cSearch, cTarget ) -> ", 40 )
|
|
?? var0
|
|
?
|
|
var0 := ft_At2( cSearch, cTarget, 2 )
|
|
? PadR( "ft_At2( cSearch, cTarget, 2 ) -> ", 40 )
|
|
??var0
|
|
?
|
|
var0 := ft_At2( cSearch, cTarget, 2, .F. )
|
|
? PadR( "ft_At2( cSearch, cTarget, 2, .F. ) -> ", 40 )
|
|
??var0
|
|
?
|
|
|
|
RETURN
|