- Code: Select all Expand view
local csvfile:=".\csv\PianoDeiConti.csv"
Local cSymbol := ","
Local cText := StrTran( MemoRead( csvfile ), CHR( 10 ), Chr(1) )
Local aData := HB_ATokens( cText, Chr(1), .t., .t. )
AEval( aData, { |c,i| c := StrTran( c, Chr(1), CRLF ), aData[ i ] := HB_ATokens( c, cSymbol, .t., .t. ) } )
if len( ATail( aData ) ) < 2
ASize( aData, Len( aData ) - 1 )
endif
XBROWSER aData
it save on array the first line
How I can resolve ?