Files
harbour-core/contrib/hbnf/tests/at2.prg
Przemysław Czerpak 96ca3fe470 2014-01-21 20:41 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* Makefile
  * config/*
  * contrib/*
  * doc/*
  * extras/*
  * include/*
  * lib/*
  * package/*
  * src/*
  * tests/*
  * utils/*
    * removed empty lines left after removed '$' + 'Id' + '$' identifiers
2014-01-21 20:41:05 +01:00

29 lines
598 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