9094676888
* contrib/hbamf/tests/tstendin.prg
* contrib/hbnf/floptst.prg
* contrib/hbtip/tests/base64.prg
* contrib/hbtip/tests/ftpadv.prg
* contrib/hbtip/tests/httpadv.prg
* contrib/hbtip/tests/tipmail.prg
* contrib/hbtip/tests/tipmime.prg
* contrib/hbtip/tests/tipmmail.prg
* contrib/hbtip/tests/tiptest.prg
* contrib/rddads/tests/datad.prg
* doc/codebloc.txt
* tests/hbpptest/pp_test.prg
* tests/testwarn.prg
* tests/usrrdd/exarr.prg
* tests/usrrdd/exfcm.prg
* tests/usrrdd/exhsx.prg
* tests/usrrdd/exlog.prg
* tests/usrrdd/exmemo.prg
* tests/usrrdd/exrlx.prg
* formatting
* ChangeLog
* marked TOFIX in '2012-06-17 11:41 UTC+0200' DONE
(fixed in '2012-09-25 13:29 UTC+0200')
45 lines
975 B
Plaintext
45 lines
975 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
REQUEST FCOMMA
|
|
|
|
PROCEDURE Main()
|
|
|
|
USE test.csv VIA "FCOMMA"
|
|
? "ALIAS", ALIAS(), "RECNO", RECNO(), ;
|
|
"BOF", BOF(), "EOF", EOF(), "LASTREC", LASTREC()
|
|
? RECNO(), '"' + FIELD->LINE + '"'
|
|
DBGOBOTTOM()
|
|
? RECNO(), '"' + FIELD->LINE + '"'
|
|
DBGOTOP()
|
|
? RECNO(), '"' + FIELD->LINE + '"'
|
|
WAIT
|
|
DO WHILE !EOF()
|
|
? RECNO(), '"' + FIELD->LINE + '"'
|
|
IF RECNO() == 20
|
|
INKEY( 0 )
|
|
ENDIF
|
|
DBSKIP()
|
|
ENDDO
|
|
? "ALIAS", ALIAS(), "RECNO", RECNO(), ;
|
|
"BOF", BOF(), "EOF", EOF(), "LASTREC", LASTREC()
|
|
WAIT
|
|
DBGOBOTTOM()
|
|
? "ALIAS", ALIAS(), "RECNO", RECNO(), ;
|
|
"BOF", BOF(), "EOF", EOF(), "LASTREC", LASTREC()
|
|
WAIT
|
|
DO WHILE !BOF()
|
|
? RECNO(), '[' + FIELD->LINE + ']'
|
|
IF RECNO() == LASTREC() - 20
|
|
INKEY( 0 )
|
|
ENDIF
|
|
DBSKIP( -1 )
|
|
ENDDO
|
|
? "ALIAS", ALIAS(), "RECNO", RECNO(), ;
|
|
"BOF", BOF(), "EOF", EOF(), "LASTREC", LASTREC()
|
|
WAIT
|
|
BROWSE()
|
|
|
|
RETURN
|