function to create a string

[Silvio.Falconi]

Is there a function to save a string like "30/60/90" from an array?

i.e. to create an array I made aData := hb_ATokens(cString,"/")

Does the reverse function exist?

[cmsoft]

No conozco una que te devuelva la inversa, pero podrias usar algo asi:

Code: Select all  Expand view

#include "fivewin.ch"

function Main()
local cString := "30/60/90", aData := hb_ATokens(cString,"/")

cString := ""
AEval(aData, {|a| cString := cString + a + "/" })
cString := substr(cString,1,len(cString)-1)

? cString
RETURN nil
 

[nageswaragunupudi]

Code: Select all  Expand view

cStr := FW_ArrayAsList( aData, [cDelim], [lTrim]

In this case:

Code: Select all  Expand view

aData := FW_ListAsArray( "30/60/90", "/" )
? aData
cStr := FW_ArrayAsList( aData, "/" )

Eg.

Code: Select all  Expand view

? cStr := FW_ArrayAsList( { Date(), "TEXT       ", 234.56 }, ";", .T. )
//--> "12-12-2023;TEXT;234.56"

[Silvio.Falconi]

I was convinced there was a function that did the opposite but I really didn't remember, thanks everyone for the help

[cmsoft]

Muchas gracias Mr Rao...
Desde que version de Fivewin existen esas funciones?

[nageswaragunupudi]

February 2013.
More than 10 years back.

These functions are in \source\function\valtostr.prg.
These functions are extensively used by FWH in its own modules (around 16 modules)

[cmsoft]

Excelente! Muchas gracias Mr. Rao!!