fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

See ChangeLog entry 2002-09-13 23:25 UTC-0400 David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2002-09-14 03:30:42 +00:00
parent ac57c9dcdd
commit 4d71cbc443
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2002-09-13 23:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* source/rtl/dbdelim.prg
! Bug fix for fields that have an embedded delimiter.
2002-09-13 22:20 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* source/rtl/dbdelim.prg
! Bug fixes for consecutive blank fields in a record and for

4
harbour/source/rtl/dbdelim.prg
View File

@@ -298,7 +298,7 @@ row:=row+cSeparator
nPosSep:=1
nPosNextSep:=at(cSeparator,row) // seek the first Separator eg. ,
nPos1Deli:=at(cDelim,row) // seek the first delimiter "
nPos2Deli:=at(cDelim,row,nPos1Deli+1) // seek the second delimiter "
nPos2Deli:=at(cDelim+cSeparator,row,nPos1Deli+1) // seek the second delimiter "
if nPos1Deli > 0 .and. nPos2Deli > 0
if nPosNextSep>nPos1Deli .and. nPosNextSep<nPos2Deli
nPosSep:=nPos1Deli
@@ -313,7 +313,7 @@ do while .t.
exit
endif
nPos1Deli:=at(cDelim,row,nPosSep) // seek the first delimiter "
nPos2Deli:=at(cDelim,row,nPos1Deli+1) // seek the second delimiter "
nPos2Deli:=at(cDelim+cSeparator,row,nPos1Deli+1) // seek the second delimiter "
if nPos1Deli > 0 .and. nPos2Deli > 0
if nPosNextSep>nPos1Deli .and. nPosNextSep<nPos2Deli
nPosSep=nPos1Deli