36 lines
871 B
Plaintext
36 lines
871 B
Plaintext
// example from clipper reference guide
|
|
|
|
procedure main()
|
|
local aArr1 := { "Tom", "Mary", "Sue" }
|
|
local aArr2 := { "Tom", "Mary", "Sue", "Mary" }
|
|
local aArr3 := {}
|
|
local nLen, nStart := 1, nPos
|
|
|
|
QOut( "Search 'Mary' in 'Tom, Mary, Sue' => " )
|
|
QQOut( AScan( aArr1, "Mary" ) )
|
|
QOut( "Search 'mary' in 'Tom, Mary, Sue' => " )
|
|
QQOut( AScan( aArr1, "mary" ) )
|
|
|
|
nLen := Len( aArr2 )
|
|
do while ( nPos := AScan( aArr2, "Mary", nStart ) ) > 0
|
|
QOut( "Search 'Mary' in 'Tom, Mary, Sue, Mary' from ", nStart, " => " )
|
|
QQOut( nPos, aArr2[ nPos ] )
|
|
nStart := nPos + 1
|
|
if nStart > nLen
|
|
exit
|
|
endif
|
|
enddo
|
|
|
|
AAdd( aArr3, { "one", "two" } )
|
|
AAdd( aArr3, { "three", "four" } )
|
|
AAdd( aArr3, { "five", "six" } )
|
|
QOut( AScan( aArr3, { | aVal | Dump( aVal ) } ) )
|
|
|
|
return
|
|
|
|
function Dump( aVal )
|
|
|
|
QOut( ValType( aVal ) )
|
|
|
|
return
|