FiveTech Software tech support forums

give me 1 instead of zero Because that is the correct answer. aLines  := HB_ATokens( "one", "|" )? aLines // -> { "one" } I not Know how I Have on String now I made aLines := hb_ATokens( cString,"|" ) if empty(aLines[1] ) alines:= {} Endif

local cString:=""
aLines := hb_ATokens( cString,"|" )

?len(aLines)


give me 1 instead of zero

why ?

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?

Simpler way is: oCol:cEditPicture := "###gg" run only the last element https://i.postimg.cc/jqckNKDN/kio.png sample cstring:= "30/60/90" aData := hb_ATokens(cString,"/") @ 10, 5 XBROWSE oBrw OF oDlg ; COLUMNS 1,2; HEADERS "gg","" ; C...

Gracias le encontre la solucion

aLines := hb_ATokens( MemoRead( xFile ), Chr(10))
For a:=1 To Len( aLines )
?aLines[a]
Next

No comprendo. ¿Tienes un ejemplo completo para probar? Saludos. Gracias por responder. #include 'fivewin.ch' REQUEST DBFCDX //----------------------------------------------------------------------------// function Main() local oWnd, oBar SET DATE ITALIAN SET CENTURY ON RDDSETDEFAULT( "DBFCDX&q...

... Language Reference 1.1 HB_ATokens( <cString> , ; [<cDelimiter>] , ; [<lSkipQuotes>] , ; [<lDoubleQuotesOnly>] ) --> aTokens <cDelimiter> A single character can be specified as delimiter used to tokenize the string <cString>. It defaults to a blank space ...

hi, However hb_atokens() only accepts a single character for the delimiter. So can't pass CRLF to it https://github.com/Petewg/harbour-core/wiki/hb_A#hb_atokenscstring-cdelimiterleol-lskipstrings-ldoublequoteonly--atokens ...

Thanks for the tip of using hb_regexSplit().
However hb_atokens() only accepts a single character for the delimiter.
So can't pass CRLF to it

Another way:

hb_ATokens( cText, hb_Eol() )

Para que quede para referencias futuras... resuelto, aunque con maña, como los detail band son los unicos que son capaces de crar tantas paginas como sea necesario.... tome el texto, lo separe en párrafos con la funcion hb_atokens obtengo un arreglo unidimensional, luego lo paso a un arrego de dos d...

I changed one of my project so that it is using hb_atokens now and it works very well, thank you!

EMG

Dear Otto, You can use StrTran( cText, Chr( 13 ) + Chr( 10 ), Chr( 10 ) ) to go from Windows to Linux but to go from Linux to Windows I think you can not use StrTran() or you will go into an endless loop as it will never stop: StrTran( cText, Chr( 10 ), Chr( 13 ) + Chr( 10 ) ) So from Linux to Windo...

Dear Enrico,

MemoLine() is extremelly slow.

Better use this technique:
local aLines := hb_ATokens( MemoRead( "test.txt" ), CRLF )

lines length will not be an issue then

Podrias probar pasando primero el archivo CSV a un array ya que esto lo hace bien rapido. #include "FIVEWIN.CH" FUNCTION Main() LOCAL cMsgRun := "Procedure in execution; please Wait...", cMsgArrayData := "Creating CSV array data; please wait..." LOCAL nStart := Seconds(...