306fdd0446
* package/*
* src/compiler/harbour.y
* src/compiler/harbour.yyc
* src/macro/macro.y
* src/macro/macro.yyc
* src/pp/hbpp.1
* tests/*/*
* utils/*
* stripped svn header manually
* tests/hbdocext.hb
* tests/lang2po.hb
* tests/big5_gen.prg
* tests/uc16_gen.prg
* do not add svn ids to generated sources
+ tests/stripsvn.hb
+ added script to strip svn header from sources
42 lines
966 B
Plaintext
42 lines
966 B
Plaintext
|
|
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
|