c829c49c07
* examples/hbextern/hbextern.prg
* Excluding all HB_ARCHITECTURE dirs explicitly.
(this resolves the recursion problem)
* Excluding fcomma.prg explicitly.
- Deleted 'example' from exclusion list.
- source/rdd/usrrdd/example
+ tests/usrrdd
* Moved examples under test dir.
45 lines
963 B
Plaintext
45 lines
963 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
|