topic-33498

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

transform records into dbf
Posted: Sun Jan 15, 2017 02:23 PM

I have a dbf with a field "etnombre"

with capitalized record. Is there a function to convert all records in lower case? except of course the first letter which must remain in uppercase

Code (fw): Select all Collapse

#include "Fivewin.ch"


Function Test()
cDesc:= ""
use soggetti alias so

GO TOP 

Do while ! so->(eof())
      

          cDesc :=  Stringlower( so->etnombre, " ")

replace so->etnombre with cDesc

so->(Dbskip())
Enddo
  xbrowse()
  return nil

//------------------------------------------------------//

STATIC  FUNCTION Stringlower( string, parser )
Local cStr:= "", nLenPar:= Len( parser )
Local commapos := 0

   If parser == NIL .OR. parser == "e"
     parser := " "
   EndIf

   Do While Len( string ) > 0
      commapos := at( parser, string )
      IF commapos > 0
         cStr+= Lower(Left( string, commapos - 1 )) + " "
         string := Lower(SubStr( string, commapos + Len( parser ) ))
     ELSE
         cStr+= string
         string := ''
     ENDIF
  ENDDO

RETURN( cStr )

But I hae all record on lower case as you can see on this picture

I wish Have the first letter on uppercase

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: transform records into dbf ( resolved)
Posted: Sun Jan 15, 2017 02:59 PM

resolved

Code (fw): Select all Collapse

 
#include "Fivewin.ch"


Function Test()
   cDesc:= ""
   cDesc2:= ""
   cFirst :=""
   cStringa := ""
use soggetti alias so

GO TOP 

Do while ! so->(eof())
      
   cDesc := so->etnombre
   nLen:=Len(cDesc)
   cFirst := Upper(Left(cDesc,1))

   cDesc2 :=  Right(Stringlower( cDesc, " "),nLen-1)


   cStringa:= cFirst+cDesc2

replace so->etnombre with cStringa

so->(Dbskip())
Enddo
  xbrowse()
  return nil

//------------------------------------------------------//

STATIC  FUNCTION Stringlower( string, parser )
Local cStr:= "", nLenPar:= Len( parser )
Local commapos := 0

   If parser == NIL .OR. parser == "e"
     parser := " "
   EndIf

   Do While Len( string ) > 0
      commapos := at( parser, string )
      IF commapos > 0
         cStr+= Lower(Left( string, commapos - 1 )) + " "
         string := Lower(SubStr( string, commapos + Len( parser ) ))
     ELSE
         cStr+= string
         string := ''
     ENDIF
  ENDDO

RETURN( cStr )

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: transform records into dbf
Posted: Sun Jan 15, 2017 09:19 PM

Same thing can be done with one line of program

Code (fw): Select all Collapse

   GO TOP
   DBEVAL( { || FIELD->ETNOMBRE := TokenUpper( Lower( FIELD->ETNOMBRE ) ) } )

Regards

G. N. Rao.

Hyderabad, India

Marc Venken

Posts: 1487

Joined: Tue Jun 14, 2016 07:51 AM

Re: transform records into dbf
Posted: Sun Jan 15, 2017 10:46 PM

nageswaragunupudi wrote:Same thing can be done with one line of program
Code (fw): Select all Collapse
   GO TOP
   DBEVAL( { || FIELD->ETNOMBRE := TokenUpper( Lower( FIELD->ETNOMBRE ) ) } )

I've seen you using this kind of functions many time

DBEVAL()
AEVAL()

On the FW Wiki they are not listed
On Harbour I only see AEVAL()

TokenUpper() I'v also not found.

Where is the right location of finding ALL RECENT functions of FW?

Marc Venken

Using: FWH 23.08 with Harbour

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: transform records into dbf
Posted: Sun Jan 15, 2017 10:58 PM

All these functions are from (x)Harbour. Not FWH.
These functions have been there from the times of 16-bit Clipper days.

Regards

G. N. Rao.

Hyderabad, India

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: transform records into dbf
Posted: Mon Jan 16, 2017 12:05 PM

thanks I allready resolved

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

ADutheil

Posts: 368

Joined: Sun May 31, 2009 06:25 PM

Re: transform records into dbf
Posted: Mon Jan 16, 2017 01:37 PM

Marc Venken wrote:Where is the right location of finding ALL RECENT functions of FW?

Have a look at: https://harbour.github.io/doc/

Regards,

André Dutheil

FWH 13.04 + HB 3.2 + MSVS 10

Marc Venken

Posts: 1487

Joined: Tue Jun 14, 2016 07:51 AM

Re: transform records into dbf
Posted: Mon Jan 16, 2017 11:02 PM

Ok. Thanks.

Marc Venken

Using: FWH 23.08 with Harbour

FiveTech Support Forums

Continue the discussion