transform records into dbf

[Silvio.Falconi]

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: Select all  Expand view

#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

[Silvio.Falconi]

resolved

Code: Select all  Expand view

#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 )


 

[nageswaragunupudi]

Same thing can be done with one line of program

Code: Select all  Expand view

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

[Marc Venken]

Same thing can be done with one line of program

Code: Select all  Expand view

  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?

[nageswaragunupudi]

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

[Silvio.Falconi]

thanks I allready resolved

[ADutheil]

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

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

[Marc Venken]

Ok. Thanks.