function to supress intermediate spaces

[elvira]

Dear friends,

Is there a function to remove the intermediate spaces from a string ?.

Very grateful;).

[Jack]

Try STRTRAN(var," ","")

Good luck

[elvira]

Thanks:

function QuitaEspacios( cCadena )

return strtran( cCadena, Space(1), Space(0) )

[nageswaragunupudi]

Also
CharRem( <cDelete>, <cString> ) --> cResult

Examples
CharRem( " ", "One Two Three" ) --> "OneTwoThree"
CharRem( "a", "Banana" ) --> "Bnn"

[carlos vargas]

Esta es una función que cambia espacios de mas de uno a uno.
lo uso mucho con instrucciones sql.

Code: Select all  Expand view

FUNCTION TrimSpace( cString )

   DO WHILE AtNum( "  ", cString ) > 0
      cString := StrTran( cString, "  ", " " )
   ENDDO

RETURN cString
 

[James Bott]

I vote for Jack's version:

STRTRAN(var," ","")

The simpler, the better.

[Enrico Maria Giordano]

Me too!

EMG

[sambomb]

Carlos Vargas solution is better

[nageswaragunupudi]

Esta es una función que cambia espacios de mas de uno a uno.
lo uso mucho con instrucciones sql.

Code: Select all  Expand view

FUNCTION TrimSpace( cString )

   DO WHILE AtNum( "  ", cString ) > 0
      cString := StrTran( cString, "  ", " " )
   ENDDO

RETURN cString
 

For this purpose you may consider using
CHARONE( ' ', cString )
This is a highly optimized function specially meant for removing adjacent duplicate characters.

I know the functions i am talking about are less familiar but the character functions of CT are highly optimized functions.

Full syntax:
CHARONE( [cDelete], cString )

Ex: CharOne( " *-", cStrings ) removes all duplicates of ' ', '*', '-' in one single call.

[sambomb]

Esta es una función que cambia espacios de mas de uno a uno.
lo uso mucho con instrucciones sql.

Code: Select all  Expand view

FUNCTION TrimSpace( cString )

   DO WHILE AtNum( "  ", cString ) > 0
      cString := StrTran( cString, "  ", " " )
   ENDDO

RETURN cString
 

For this purpose you may consider using
CHARONE( ' ', cString )
This is a highly optimized function specially meant for removing adjacent duplicate characters.

I know the functions i am talking about are less familiar but the character functions of CT are highly optimized functions.

Full syntax:
CHARONE( [cDelete], cString )

Ex: CharOne( " *-", cStrings ) removes all duplicates of ' ', '*', '-' in one single call.

Where I can find this function?

[James Bott]

Elvira said:
Is there a function to remove the intermediate spaces from a string ?

Nages said:
This is a highly optimized function specially meant for removing adjacent duplicate characters.

I took Elvira's statement to mean that he want to remove all spaces, but I admit it is not clear. Removing adjacent duplicates is a different task.

[nageswaragunupudi]

Mr James

Elvira's first posting was for removing all spaces.
StrTran( cString, ' '. '' ) is correct.
But CharRem() function specially made for such purposes and more efficient.

Mr Carlos Vargas' posting was to remove duplicate adjacent spaces. I suggested CharOne() for this instead of the code he was using.

These functions were from the 16-bit Clipper days, included in CA_Tools libaray. At that time, most of these functions were written in Assembly language and highly optimized for speed and size.

Now CT.LIB/HBCT.LIB includes all these functions written mostly in C for (x)Harbour.

Those of us who still have the old Clipper installation on our discs can find the documentation in \clipper\ng. This documentation requirs ng.exe or weg.exe to read.

xharbour.com provided a detailed help file (chm) which contains very good documentation. This is very useful

[Enrico Maria Giordano]

But CharRem() function specially made for such purposes and more efficient.

You're right! Look at this sample:

Code: Select all  Expand view

FUNCTION MAIN()

    LOCAL cSpaces := SPACE( 100000000 )

    LOCAL nSec := SECONDS()

    cSpaces = STRTRAN( cSpaces, " ", "" )

    ? SECONDS() - nSec, LEN( cSpaces )

    cSpaces = SPACE( 100000000 )

    nSec = SECONDS()

    cSpaces = CHARREM( cSpaces, " " )

    ? SECONDS() - nSec, LEN( cSpaces )

    INKEY( 0 )

    RETURN NIL

I get this:

Code: Select all  Expand view

        1.36          0
         0.00          0

Wow!

EMG

[cnavarro]

Wow! ++++1

[James Bott]

EMG,

Your computer is fast--2.4 times faster than mine. I get:

3.31
0.03

Either way, charRem() is 100 times faster than strtran().

Thanks Nages.

This is only available with xHarbour though?