2f285ca6c2
* contrib/hbamf/tests/tstendin.prg
* contrib/hbblat/blatcls.prg
* contrib/hbct/tests/ctwtest.prg
* contrib/hbct/tests/token2.prg
* contrib/hbhttpd/readme.txt
* contrib/hbhttpd/widgets.prg
* contrib/hbmisc/fileread.prg
* contrib/hbmisc/hbedit.prg
* contrib/hbmysql/diff-en.txt
* contrib/hbmysql/diff-es.txt
* contrib/hbmysql/tests/dbf2mysq.prg
* contrib/hbmysql/tmysql.prg
* contrib/hbmysql/tsqlbrw.prg
* contrib/hbnetio/tests/netiot03.prg
* contrib/hbnetio/tests/netiotst.prg
* contrib/hbnf/doc/en/fttext.txt
* contrib/hbodbc/browodbc.prg
* contrib/hbodbc/tests/odbcdemo.prg
* contrib/hbodbc/todbc.prg
* contrib/hbtip/ftpcli.prg
* contrib/hbwin/tests/olesrv1.prg
* contrib/rddads/ads.ch
* contrib/rddsql/readme.txt
* contrib/sddodbc/tests/test2.prg
* contrib/xhb/dbf2txt.c
* contrib/xhb/hbcompat.ch
* contrib/xhb/hblog.prg
* contrib/xhb/html.ch
* contrib/xhb/tfile.prg
* contrib/xhb/tframe.prg
* contrib/xhb/ttable.prg
* ChangeLog
* doc/en/dbdelim.txt
* doc/en/dbsdf.txt
* doc/en/rdddb.txt
* doc/en/terminal.txt
* extras/gtwvw/tests/wvt2wvw.ch
* extras/httpsrv/cookie.prg
* extras/httpsrv/modules/tableservletdb.prg
* extras/rddado/adordd.ch
* extras/rddado/adordd.prg
* include/assert.ch
* include/hbsix.ch
* src/debug/dbgbrwsr.prg
* src/debug/dbgtinp.prg
* src/rdd/*.prg
* src/rtl/*.prg
* tests/*.prg
* tests/rddtest/rddtst.prg
* tests/usrrdd/exarr.prg
* tests/usrrdd/exfcm.prg
* utils/hbtest/hbtest.prg
* more minor
45 lines
981 B
Plaintext
45 lines
981 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
|