topic-27777

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

string to array
Posted: Fri Dec 06, 2013 11:16 AM

I have this string
|First|== exactamente igual|frank

and I wish create an array 4 columns
cOperator := ALLTRIM( StrToken( aRighefiltro[k],1 , "|" ) )
cField := ALLTRIM( StrToken( aRighefiltro[k], 2, "|" ) )
cCondition := LEFT(ALLTRIM( StrToken( aRighefiltro[k], 3, "|" ) ),2)
cEspressione := ALLTRIM( StrToken( aRighefiltro[k], 4, "|" ) )

    RowData :=   { cOperator, cField, cCondition,  cEspressione}
AaDd(aRighe, RowData)

xbrowser aRighe

IF the first value is Empty the array aRighe not calculate the exact column

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

sambomb

Posts: 389

Joined: Mon Oct 13, 2008 11:26 AM

Re: string to array
Posted: Fri Dec 06, 2013 01:59 PM

Try this:

Code (fw): Select all Collapse

aTokens := HB_aTokens( cString, "|" )

cOperator := aTokens[1]
cField := aTokens[2]
cCondition := aTokens[3]
cEspressione := aTokens[4]

Email: SamirSSabreu@gmail.com
xHarbour 1.2.3 + Fwhh 20.2

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: string to array
Posted: Sat Dec 07, 2013 04:50 AM

aString := StringToArray( cString, "|" )

FUNCTION StringToArray( cString, cSeparator )
LOCAL nPos
LOCAL aString := {}
DEFAULT cSeparator := ";"
cString := ALLTRIM( cString ) + cSeparator
DO WHILE .T.
nPos := AT( cSeparator, cString )
IF nPos = 0
EXIT
ENDIF
AADD( aString, SUBSTR( cString, 1, nPos-1 ) )
cString := SUBSTR( cString, nPos+1 )
ENDDO
RETURN ( aString )

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

FiveTech Support Forums

Continue the discussion