4f330c58bc
* common.mak
* source/rtl/Makefile
- source/rtl/persist.prg
+ source/rtl/tpersist.prg
- source/rtl/symbol.prg
+ source/rtl/tsymbol.prg
* source/rtl/achoice.prg
* source/rtl/browse.prg
* source/rtl/dbedit.prg
* source/rtl/dircmd.prg
* source/rtl/einstv52.prg
* source/rtl/einstvar.prg
* source/rtl/hbini.prg
* source/rtl/tbrowse.prg
* source/rtl/tclass.prg
* source/rtl/tget.prg
* source/rtl/tgetint.prg
* source/rtl/tlabel.prg
* source/rtl/tobject.prg
* source/rtl/treport.prg
* source/rtl/typefile.prg
* source/rtl/valtoexp.prg
* source/rdd/usrrdd/example/exhsx.prg
* source/rdd/usrrdd/example/exfcm.prg
* source/rdd/usrrdd/rdds/hscdx.prg
* Some formattings and cleanup.
* source/rtl/tclass.prg
% ValType() optimizations.
* source/rtl/tlabel.prg
* source/rtl/treport.prg
* Trim() -> RTrim()
* source/rtl/treport.prg
! Hard-coded Chr(13)+Chr(10) fixed in treport.prg.
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
|