Strange error to converte a file

Post Reply
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Strange error to converte a file

Post by Silvio.Falconi »

If I compile a run the test it run ok

If insert the test on my application give me an error at this line

if cBuf[ -1 ] == 26 // check and remove Ctrl-Z



Function test()
local cFile:= cGetFile( "Timbrature (*.csv) | *.csv", "Selezionare un file", 1, )
local aData:={}
aData:= Csv_To_Data(cfile)

xbrowser adata
return nil




Function Csv_To_Data(cfile)
local cBuf, i,nFLines
local aTmp, aHeaders

// carico file csv
nFLines := FLineCount( cFile )
i := 1

cBuf := MemoRead( cFile )
cBuf := STRTRAN(cBuf,",",";")
cBuf := STRTRAN(cBuf,'"','')

// parse and make a multi dimentional array
if cBuf[ -1 ] == 26 // check and remove Ctrl-Z <--------------------
cBuf := Left( cBuf, Len( cBuf ) - 1 )
endif

if Right( cBuf, 2 ) != CRLF
// pad with CRLF if needed, not to miss the last line
cBuf += CRLF
endif
cBuf := StrTran( cBuf, CRLF, Chr( 10 ) )
aTmp := hb_aTokens( cBuf, Chr(10) )
AEval( aTmp, { |c,i| aTmp[ i ] := hb_aTokens( c, ';' ) } )
aHeaders := aTmp[ 1 ]
aTmp := ADel( aTmp, 1 )
aSize( aTmp, Len( aTmp ) - 1 )
return aTmp


the file csv

Code: Select all

"UserName","Activity","Work Date","Time Worked"
"Falconi Silvio","In","30-12-2020","08:07"
"Falconi Silvio","Out","30-12-2020","14:12"
"Falconi Silvio","In","29-12-2020","08:05"
"Falconi Silvio","Out","29-12-2020","14:22"
"Falconi Silvio","In","28-12-2020","08:02"
"Falconi Silvio","Out","28-12-2020","14:02"
"Falconi Silvio","In","23-12-2020","07:57"
"Falconi Silvio","Out","23-12-2020","14:01"
"Falconi Silvio","In","22-12-2020","08:04"
"Falconi Silvio","Out","22-12-2020","14:02"
"Falconi Silvio","In","21-12-2020","08:10"
"Falconi Silvio","Out","21-12-2020","14:00"
"Falconi Silvio","In","18-12-2020","08:10"
"Falconi Silvio","Out","18-12-2020","14:09"
"Falconi Silvio","In","17-12-2020","08:11"
"Falconi Silvio","Out","17-12-2020","14:03"
"Falconi Silvio","In","16-12-2020","08:01"
"Falconi Silvio","Out","16-12-2020","14:04"
"Falconi Silvio","In","15-12-2020","08:02"
"Falconi Silvio","Out","15-12-2020","14:05"
"Falconi Silvio","In","14-12-2020","07:56"
"Falconi Silvio","Out","14-12-2020","14:11"
"Falconi Silvio","In","12-12-2020","08:18"
"Falconi Silvio","Out","12-12-2020","14:05"
"Falconi Silvio","In","11-12-2020","07:58"
"Falconi Silvio","Out","11-12-2020","14:02"
"Falconi Silvio","In","10-12-2020","08:09"
"Falconi Silvio","Out","10-12-2020","14:10"
"Falconi Silvio","In","9-12-2020","08:15"
"Falconi Silvio","Out","9-12-2020","14:03"
"Falconi Silvio","In","7-12-2020","07:59"
"Falconi Silvio","Out","7-12-2020","14:03"
"Falconi Silvio","In","5-12-2020","08:07"
"Falconi Silvio","Out","5-12-2020","14:13"
"Falconi Silvio","In","4-12-2020","07:59"
"Falconi Silvio","Out","4-12-2020","14:04"
"Falconi Silvio","In","3-12-2020","07:56"
"Falconi Silvio","Out","3-12-2020","14:00"
"Falconi Silvio","In","2-12-2020","08:11"
"Falconi Silvio","Out","2-12-2020","14:00"
"Falconi Silvio","In","1-12-2020","07:59"
"Falconi Silvio","Out","1-12-2020","14:02"
 

the error.log

Code: Select all

Application
===========
   Path and name: C:\Work\Prg\TimeCard\Timecard.Exe (32 bits)
   Size: 7,936,512 bytes
   Compiler version: Harbour 3.2.0dev (r1904111533)
   FiveWin  version: FWH 20.12
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.1, Build 7600 

   Time from start: 0 hours 0 mins 12 secs 
   Error occurred at: 04-01-2021, 09:37:10
   Error description: Error BASE/1068  Parametro errato: accesso all'array
   Args:
     [   1] = C   UserName;Activity;Work Date;Time Worked
Falconi Silvio;In;30-12-2020;08:07
Falconi Silvio;Out;30-12-2020;14:12
Falconi Silvio;In;29-12-2020;08:05
Falconi Silvio;Out;29-12-2020;14:22
Falconi Silvio;In;28-12-2020;08:02
Falconi Silvio;Out;28-12-2020;14:02
Falconi Silvio;In;23-12-2020;07:57
Falconi Silvio;Out;23-12-2020;14:01
Falconi Silvio;In;22-12-2020;08:04
Falconi Silvio;Out;22-12-2020;14:02
Falconi Silvio;In;21-12-2020;08:10
Falconi Silvio;Out;21-12-2020;14:00
Falconi Silvio;In;18-12-2020;08:10
Falconi Silvio;Out;18-12-2020;14:09
Falconi Silvio;In;17-12-2020;08:11
Falconi Silvio;Out;17-12-2020;14:03
Falconi Silvio;In;16-12-2020;08:01
Falconi Silvio;Out;16-12-2020;14:04
Falconi Silvio;In;15-12-2020;08:02
Falconi Silvio;Out;15-12-2020;14:05
Falconi Silvio;In;14-12-2020;07:56
Falconi Silvio;Out;14-12-2020;14:11
Falconi Silvio;In;12-12-2020;08:18
Falconi Silvio;Out;12-12-2020;14:05
Falconi Silvio;In;11-12-2020;07:58
Falconi Silvio;Out;11-12-2020;14:02
Falconi Silvio;In;10-12-2020;08:09
Falconi Silvio;Out;10-12-2020;14:10
Falconi Silvio;In;9-12-2020;08:15
Falconi Silvio;Out;9-12-2020;14:03
Falconi Silvio;In;7-12-2020;07:59
Falconi Silvio;Out;7-12-2020;14:03
Falconi Silvio;In;5-12-2020;08:07
Falconi Silvio;Out;5-12-2020;14:13
Falconi Silvio;In;4-12-2020;07:59
Falconi Silvio;Out;4-12-2020;14:04
Falconi Silvio;In;3-12-2020;07:56
Falconi Silvio;Out;3-12-2020;14:00
Falconi Silvio;In;2-12-2020;08:11
Falconi Silvio;Out;2-12-2020;14:00
Falconi Silvio;In;1-12-2020;07:59
Falconi Silvio;Out;1-12-2020;14:02
     [   2] = N   -1

Stack Calls
===========
   Called from: source\PWeb.prg => TIMEIMPORT( 82 )
   Called from: source\PWeb.prg => (b)WEBCONVERSIONE( 39 )
   Called from: .\source\classes\DIALOG.PRG => (b)TDIALOG( 97 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:DISPLAY( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1127 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
   Called from: source\PWeb.prg => WEBCONVERSIONE( 40 )
   Called from: source\Main.prg => (b)TAPPLICATION_BUILDBTNBAR( 765 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 713 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 999 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1817 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2051 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1097 )
   Called from: source\Main.prg => TAPPLICATION:ACTIVATE( 407 )
   Called from: source\Main.prg => MAIN( 52 )

System
======
   CPU type: Intel(R) Core(TM) i7 CPU       Q 740  @ 1.73GHz 1850 Mhz
   Hardware memory: 8117 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 5
      1 ,                                                                                                     
      2 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7600.16385_none_421189 
      3 , C:\Windows\syswow64\SHLWAPI.dll                                                                     
      4 , C:\Work\Prg\TimeCard\Timecard.Exe                                                                   
      5 GDI+ Window, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7600.16385_none_72fc7cbf861225 

Variables in use
================
   Procedure     Type   Value
   ==========================
   TIMEIMPORT
     Param   1:    O    Class: ERROR
   (b)WEBCONVERSIONE
     Param   1:    O    Class: TPROGRESS
     Param   2:    O    Class: TSAY
     Param   3:    C    "C:\Users\silvio\Downloads\timbrature_2021-01-04.csv"
     Local   1:    C    "UserName;Activity;Work Date;Time Worked
Falconi Silvio;In;30-12-2020;08:07
Falconi Silvio;Out;30-12-2020;14:12
Falconi Silvio;In;29-12-2020;08:05
Falconi Silvio;Out;29-12-2020;14:22
Falconi Silvio;In;28-12-2020;08:02
Falconi Silvio;Out;28-12-2020;14:02
Falconi Silvio;In;23-12-2020;07:57
Falconi Silvio;Out;23-12-2020;14:01
Falconi Silvio;In;22-12-2020;08:04
Falconi Silvio;Out;22-12-2020;14:02
Falconi Silvio;In;21-12-2020;08:10
Falconi Silvio;Out;21-12-2020;14:00
Falconi Silvio;In;18-12-2020;08:10
Falconi Silvio;Out;18-12-2020;14:09
Falconi Silvio;In;17-12-2020;08:11
Falconi Silvio;Out;17-12-2020;14:03
Falconi Silvio;In;16-12-2020;08:01
Falconi Silvio;Out;16-12-2020;14:04
Falconi Silvio;In;15-12-2020;08:02
Falconi Silvio;Out;15-12-2020;14:05
Falconi Silvio;In;14-12-2020;07:56
Falconi Silvio;Out;14-12-2020;14:11
Falconi Silvio;In;12-12-2020;08:18
Falconi Silvio;Out;12-12-2020;14:05
Falconi Silvio;In;11-12-2020;07:58
Falconi Silvio;Out;11-12-2020;14:02
Falconi Silvio;In;10-12-2020;08:09
Falconi Silvio;Out;10-12-2020;14:10
Falconi Silvio;In;9-12-2020;08:15
Falconi Silvio;Out;9-12-2020;14:03
Falconi Silvio;In;7-12-2020;07:59
Falconi Silvio;Out;7-12-2020;14:03
Falconi Silvio;In;5-12-2020;08:07
Falconi Silvio;Out;5-12-2020;14:13
Falconi Silvio;In;4-12-2020;07:59
Falconi Silvio;Out;4-12-2020;14:04
Falconi Silvio;In;3-12-2020;07:56
Falconi Silvio;Out;3-12-2020;14:00
Falconi Silvio;In;2-12-2020;08:11
Falconi Silvio;Out;2-12-2020;14:00
Falconi Silvio;In;1-12-2020;07:59
Falconi Silvio;Out;1-12-2020;14:02"
     Local   2:    N    1
     Local   3:    N    42
     Local   4:    U    
     Local   5:    U    
     Local   6:    A    Len:    2
     Local   7:    U    
     Local   8:    U    
     Local   9:    U    
     Local  10:    U    
     Local  11:    U    
     Local  12:    U    
     Local  13:    U    
     Local  14:    U    
     Local  15:    U    
     Local  16:    L    .F.
     Local  17:    L    .F.
     Local  18:    C    "UserName;Activity;Work Date;Time Worked
Falconi Silvio;In;30-12-2020;08:07
Falconi Silvio;Out;30-12-2020;14:12
Falconi Silvio;In;29-12-2020;08:05
Falconi Silvio;Out;29-12-2020;14:22
Falconi Silvio;In;28-12-2020;08:02
Falconi Silvio;Out;28-12-2020;14:02
Falconi Silvio;In;23-12-2020;07:57
Falconi Silvio;Out;23-12-2020;14:01
Falconi Silvio;In;22-12-2020;08:04
Falconi Silvio;Out;22-12-2020;14:02
Falconi Silvio;In;21-12-2020;08:10
Falconi Silvio;Out;21-12-2020;14:00
Falconi Silvio;In;18-12-2020;08:10
Falconi Silvio;Out;18-12-2020;14:09
Falconi Silvio;In;17-12-2020;08:11
Falconi Silvio;Out;17-12-2020;14:03
Falconi Silvio;In;16-12-2020;08:01
Falconi Silvio;Out;16-12-2020;14:04
Falconi Silvio;In;15-12-2020;08:02
Falconi Silvio;Out;15-12-2020;14:05
Falconi Silvio;In;14-12-2020;07:56
Falconi Silvio;Out;14-12-2020;14:11
Falconi Silvio;In;12-12-2020;08:18
Falconi Silvio;Out;12-12-2020;14:05
Falconi Silvio;In;11-12-2020;07:58
Falconi Silvio;Out;11-12-2020;14:02
Falconi Silvio;In;10-12-2020;08:09
Falconi Silvio;Out;10-12-2020;14:10
Falconi Silvio;In;9-12-2020;08:15
Falconi Silvio;Out;9-12-2020;14:03
Falconi Silvio;In;7-12-2020;07:59
Falconi Silvio;Out;7-12-2020;14:03
Falconi Silvio;In;5-12-2020;08:07
Falconi Silvio;Out;5-12-2020;14:13
Falconi Silvio;In;4-12-2020;07:59
Falconi Silvio;Out;4-12-2020;14:04
Falconi Silvio;In;3-12-2020;07:56
Falconi Silvio;Out;3-12-2020;14:00
Falconi Silvio;In;2-12-2020;08:11
Falconi Silvio;Out;2-12-2020;14:00
Falconi Silvio;In;1-12-2020;07:59
Falconi Silvio;Out;1-12-2020;14:02"
     Local  19:    N    -1
     Local  20:    U    
     Local  21:    U    
   (b)TDIALOG
     Param   1:    U    
   TDIALOG:DISPLAY
     Param   1:    O    Class: TDIALOG
   TDIALOG:HANDLEEVENT
   DIALOGBOXINDIRECT
     Param   1:    N    15
     Param   2:    N    0
     Param   3:    N    0
   TDIALOG:ACTIVATE
     Param   1:    N    4194304
     Param   2:    C    "€ È€       ñ e     U n   m o m e n t o   p e r   f a v o r e       V        m T B I T M A P            P       q  n S T A T I C   I m p o r t a n d o   f i l e   R e p o r t . . .          P     / Z  o S T A T I C                                                                     P     9 È  p m s c t l s _ p r o g r e s s 3 2         "
     Param   3:    N    5506110
     Param   4:    O    Class: TDIALOG
   WEBCONVERSIONE
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .T.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    L    .F.
     Param  13:    O    Class: TDIALOG
     Param  14:    U    
     Local   1:    N    5506110
     Local   2:    S    
     Local   3:    O    Class: TDIALOG
   (b)TAPPLICATION_BUILDBTNBAR
     Local   1:    O    Class: TDIALOG
     Local   2:    O    Class: TBITMAP
     Local   3:    O    Class: TSAY
     Local   4:    O    Class: TPROGRESS
     Local   5:    C    "C:\Users\silvio\Downloads\timbrature_2021-01-04.csv"
   TBTNBMP:CLICK
     Param   1:    O    Class: TBTNBMP
   TBTNBMP:LBUTTONUP
   TCONTROL:HANDLEEVENT
     Param   1:    N    32
     Param   2:    N    21
     Param   3:    N    0
     Local   1:    L    .T.
     Local   2:    N    0
     Local   3:    S    
   TBTNBMP:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    2097173
     Local   1:    U    
   _FWH
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    2097173
   WINRUN
     Param   1:    N    2097173
     Param   2:    N    514
     Param   3:    N    0
     Param   4:    N    2097173
     Param   5:    N    8
     Local   1:    O    Class: TBTNBMP
   TWINDOW:ACTIVATE
     Param   1:    N    5506110
   TAPPLICATION:ACTIVATE
     Param   1:    C    "NORMAL"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    B    {|| ... }
     Param   6:    B    {|| ... }
     Param   7:    U    
     Param   8:    B    {|| ... }
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    B    {|| ... }
     Param  18:    U    
     Param  19:    U    
     Param  20:    L    .F.
     Local   1:    O    Class: TWINDOW
     Local   2:    U    
     Local   3:    U    
   MAIN
     Local   1:    O    Class: TAPPLICATION

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFCDX
   DBFNTX

DataBases in use
================

  1:    TI                                 RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            0      .T.   .T.

     Indexes in use                        TagName
        => VAL(Codice)                        PRCODIGO

     Relations in use

  2:    PR                                 RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            4      .F.   .F.

     Indexes in use                        TagName
        => VAL(Codice)                        PRCODIGO
           UPPER(Descri)                      PRDESC

     Relations in use

  3: => PE                                 RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          3            3      .F.   .F.

     Indexes in use                        TagName
        => CODICE                             DPCODICE
           NOMEINTERO                         DPNOME

     Relations in use

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 TAPPLICATION
     5 TFONT
     6 TWINDOW
     7 TCONTROL
     8 TBITMAP
     9 TIMAGE
    10 TINI
    11 TRECT
    12 TGET
    13 TMULTIGET
    14 TCOMBOBOX
    15 TICON
    16 TBRUSH
    17 TMENU
    18 TREG32
    19 TMENUITEM
    20 TMSGBAR
    21 TMSGITEM
    22 TTIMER
    23 TCURSOR
    24 TBAR
    25 TBTNBMP
    26 TDIALOG
    27 TSAY
    28 TPROGRESS
    29 TSTRUCT

Memory Analysis
===============
      736 Static variables

   Dynamic memory consume:
      Actual  Value:    1769472 bytes
      Highest Value:    1769472 bytes
Any solution pls ?
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
Top
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Strange error to converte a file

Post by cnavarro »

Try with

Code: Select all

AEval( aTmp, { |c,i| aTmp[ i ] := hb_aTokens( c, ',' ) } )
 
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Top
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: Strange error to converte a file

Post by Silvio.Falconi »

cnavarro wrote:Try with

Code: Select all

AEval( aTmp, { |c,i| aTmp[ i ] := hb_aTokens( c, ',' ) } )
 

Sorry the error in here

if cBuf[ -1 ] == 26 / // check and remove Ctrl-Z Line 3800
cBuf := Left( cBuf, Len( cBuf ) - 1 )
endif

log file

Code: Select all

Application
===========
   Path and name: C:\Work\Prg\TimeCard\Timecard.Exe (32 bits)
   Size: 7,934,464 bytes
   Compiler version: Harbour 3.2.0dev (r1904111533)
   FiveWin  version: FWH 20.12
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.1, Build 7600 

   Time from start: 0 hours 0 mins 58 secs 
   Error occurred at: 05-01-2021, 12:05:52
   Error description: Error BASE/1068  Parametro errato: accesso all'array
   Args:
     [   1] = C   UserName;Activity;Work Date;Time Worked
Falconi Silvio;In;30-12-2020;08:07
Falconi Silvio;Out;30-12-2020;14:12
Falconi Silvio;In;29-12-2020;08:05
Falconi Silvio;Out;29-12-2020;14:22
Falconi Silvio;In;28-12-2020;08:02
Falconi Silvio;Out;28-12-2020;14:02
Falconi Silvio;In;23-12-2020;07:57
Falconi Silvio;Out;23-12-2020;14:01
Falconi Silvio;In;22-12-2020;08:04
Falconi Silvio;Out;22-12-2020;14:02
Falconi Silvio;In;21-12-2020;08:10
Falconi Silvio;Out;21-12-2020;14:00
Falconi Silvio;In;18-12-2020;08:10
Falconi Silvio;Out;18-12-2020;14:09
Falconi Silvio;In;17-12-2020;08:11
Falconi Silvio;Out;17-12-2020;14:03
Falconi Silvio;In;16-12-2020;08:01
Falconi Silvio;Out;16-12-2020;14:04
Falconi Silvio;In;15-12-2020;08:02
Falconi Silvio;Out;15-12-2020;14:05
Falconi Silvio;In;14-12-2020;07:56
Falconi Silvio;Out;14-12-2020;14:11
Falconi Silvio;In;12-12-2020;08:18
Falconi Silvio;Out;12-12-2020;14:05
Falconi Silvio;In;11-12-2020;07:58
Falconi Silvio;Out;11-12-2020;14:02
Falconi Silvio;In;10-12-2020;08:09
Falconi Silvio;Out;10-12-2020;14:10
Falconi Silvio;In;9-12-2020;08:15
Falconi Silvio;Out;9-12-2020;14:03
Falconi Silvio;In;7-12-2020;07:59
Falconi Silvio;Out;7-12-2020;14:03
Falconi Silvio;In;5-12-2020;08:07
Falconi Silvio;Out;5-12-2020;14:13
Falconi Silvio;In;4-12-2020;07:59
Falconi Silvio;Out;4-12-2020;14:04
Falconi Silvio;In;3-12-2020;07:56
Falconi Silvio;Out;3-12-2020;14:00
Falconi Silvio;In;2-12-2020;08:11
Falconi Silvio;Out;2-12-2020;14:00
Falconi Silvio;In;1-12-2020;07:59
Falconi Silvio;Out;1-12-2020;14:02
     [   2] = N   -1

Stack Calls
===========
   Called from: source\PCartellino.prg => CSV_TO_DATA( 3800 )
   Called from: source\PCartellino.prg => CARICOFROMWEB( 3535 )
   Called from: source\PCartellino.prg => (b)CARTELLINO( 614 )
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
Top
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Strange error to converte a file

Post by karinha »

Legal! No me genera error.

https://i.imgur.com/2Lyllej.png

Image

Regards.
João Santos - São Paulo - Brasil
Top
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Strange error to converte a file

Post by FranciscoA »

karinha wrote:Legal! No me genera error.
Regards.
Here it does not generate errors either.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
Top
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Strange error to converte a file

Post by karinha »

FranciscoA wrote:
karinha wrote:Legal! No me genera error.
Regards.
Here it does not generate errors either.
Teste este también Francisco, porfa.

Code: Select all

#include "FiveWin.ch"

FUNCTION test()

   LOCAL cFile := cGetFile( "Timbrature (*.csv) | *.csv", "Selezionare un file", 1, )
   LOCAL aData := {}

   aData := Csv_To_Data( cfile )

   xBrowse( adata )

RETURN nil

FUNCTION Csv_To_Data( cfile )

   LOCAL cBuf, i, nFLines, aTmp, aHeaders

   // carico file csv
   nFLines := FLineCount( cFile )

   i := 1

   cBuf := MemoRead( cFile )

   cBuf := TiraTraco( cBuf )

   // parse and make a multi dimentional array
   IF cBuf[ -1 ] == 26 // check and remove Ctrl-Z <--------------------

      cBuf := Left( cBuf, Len( cBuf ) - 1 )

   ENDIF

   IF Right( cBuf, 2 ) != CRLF

      // pad with CRLF if needed, not to miss the last line
      cBuf += CRLF

   ENDIF

   cBuf := StrTran( cBuf, CRLF, Chr( 10 ) )

   aTmp := hb_aTokens( cBuf, Chr( 10 ) )

// AEval( aTmp, { |c, i| aTmp[ i ] := hb_aTokens( c, ';' ) } )
   AEval( aTmp, { |c, i| aTmp[ i ] := hb_aTokens( c, ',' ) } )

   aHeaders := aTmp[ 1 ]

   aTmp := ADel( aTmp, 1 )

   aSize( aTmp, Len( aTmp ) - 1 )

RETURN aTmp

Function TiraTraco(xStr)

   xStr := StrTran(xStr,"-","")
   xStr := StrTran(xStr,",",";")
   xStr := StrTran(xStr, '"', '' )
   xStr := StrTran(xStr,";",",")

Return(xStr)
 
Regards, Saludos.
João Santos - São Paulo - Brasil
Top
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: Strange error to converte a file

Post by Silvio.Falconi »

karinha wrote:Legal! No me genera error.

https://i.imgur.com/2Lyllej.png

Image

Regards.
as I explain above it create error on my application , it not create error if i use it alone
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
Top
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Strange error to converte a file

Post by FranciscoA »

karinha wrote:
FranciscoA wrote:
karinha wrote:Legal! No me genera error.
Regards.
Here it does not generate errors either.
Teste este también Francisco, porfa.

Code: Select all

#include "FiveWin.ch"

FUNCTION test()

   LOCAL cFile := cGetFile( "Timbrature (*.csv) | *.csv", "Selezionare un file", 1, )
   LOCAL aData := {}

   aData := Csv_To_Data( cfile )

   xBrowse( adata )

RETURN nil

FUNCTION Csv_To_Data( cfile )

   LOCAL cBuf, i, nFLines, aTmp, aHeaders

   // carico file csv
   nFLines := FLineCount( cFile )

   i := 1

   cBuf := MemoRead( cFile )

   cBuf := TiraTraco( cBuf )

   // parse and make a multi dimentional array
   IF cBuf[ -1 ] == 26 // check and remove Ctrl-Z <--------------------

      cBuf := Left( cBuf, Len( cBuf ) - 1 )

   ENDIF

   IF Right( cBuf, 2 ) != CRLF

      // pad with CRLF if needed, not to miss the last line
      cBuf += CRLF

   ENDIF

   cBuf := StrTran( cBuf, CRLF, Chr( 10 ) )

   aTmp := hb_aTokens( cBuf, Chr( 10 ) )

// AEval( aTmp, { |c, i| aTmp[ i ] := hb_aTokens( c, ';' ) } )
   AEval( aTmp, { |c, i| aTmp[ i ] := hb_aTokens( c, ',' ) } )

   aHeaders := aTmp[ 1 ]

   aTmp := ADel( aTmp, 1 )

   aSize( aTmp, Len( aTmp ) - 1 )

RETURN aTmp

Function TiraTraco(xStr)

   xStr := StrTran(xStr,"-","")
   xStr := StrTran(xStr,",",";")
   xStr := StrTran(xStr, '"', '' )
   xStr := StrTran(xStr,";",",")

Return(xStr)
 
Regards, Saludos.
Karinha:
Your code reproduces the error mentioned by Silvio.
Error description: Error BASE/1070 Argument error: ==
Args:
[ 1] = C
[ 2] = N 26

Regards.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
Top
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Strange error to converte a file

Post by FranciscoA »

Karinha:
My mistake. Your code works fine.

The error occurs when the .csv file cannot be found.
I had not created it.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
Top
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Strange error to converte a file

Post by karinha »

Entonces, debrias ser asi mi amigo Francisco? Ó Tiéns algo mejor?

Code: Select all

// arquivo c:\fwh\samples\SILVIO.CSV - SILVIOCS.PRG

#include "FiveWin.ch"

FUNCTION SILVIO_CSV()

   LOCAL cFile := cGetFile( "Timbrature (*.csv) | *.csv", "Selezionare un file", 1, )
   LOCAL aData := {}

   IF .NOT. EMPTY( cFile )

      aData := Csv_To_Data( cfile )

      xBrowse( adata )

   ELSE

      MsgInfo( "Selezionare un file", "Selezionare un file" )

   ENDIF

RETURN nil

FUNCTION Csv_To_Data( cfile )

   LOCAL cBuf, i, nFLines, aTmp, aHeaders

   // carico file csv
   nFLines := FLineCount( cFile )

   i := 1

   cBuf := MemoRead( cFile )

   cBuf := TiraTraco( cBuf )

   // parse and make a multi dimentional array
   IF cBuf[ -1 ] == 26 // check and remove Ctrl-Z <--------------------

      cBuf := Left( cBuf, Len( cBuf ) - 1 )

   ENDIF

   IF Right( cBuf, 2 ) != CRLF

      // pad with CRLF if needed, not to miss the last line
      cBuf += CRLF

   ENDIF

   cBuf := StrTran( cBuf, CRLF, Chr( 10 ) )

   aTmp := hb_aTokens( cBuf, Chr( 10 ) )

// AEval( aTmp, { |c, i| aTmp[ i ] := hb_aTokens( c, ';' ) } )
   AEval( aTmp, { |c, i| aTmp[ i ] := hb_aTokens( c, ',' ) } )

   aHeaders := aTmp[ 1 ]

   aTmp := ADel( aTmp, 1 )

   aSize( aTmp, Len( aTmp ) - 1 )

RETURN aTmp

Function TiraTraco(xStr)

   xStr := StrTran(xStr,"-","")
   xStr := StrTran(xStr,",",";")
   xStr := StrTran(xStr, '"', '' )
   xStr := StrTran(xStr,";",",")

Return(xStr)
 
Regards, saludos.
João Santos - São Paulo - Brasil
Top
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: Strange error to converte a file

Post by Silvio.Falconi »

often my name is used in this forum too many times to take the piss out of me, now if I insert something immediately my name becomes a function or you do the chorus to tell me that the function works very well,

but the problem is not the function used alone but in context within an application, that csv file is taken from the internet where I created a small program for the acquisition of work access times for a small company.

As I have already explained above if I use it as a simple test it does not make any errors, if instead I insert it into a program I get that error maybe somewhere there is a cbuf that has another value
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
Top
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:
Contact nageswaragunupudi

Re: Strange error to converte a file

Post by nageswaragunupudi »

if cBuf[ -1 ] == 26
This works in xHarbour but does not work in Harbour.

So, instead of this code (which works with xHarbour, but not with Harbour)

Code: Select all

if cBuf[ -1 ] == 26 // check and remove Ctrl-Z <--------------------
cBuf := Left( cBuf, Len( cBuf ) - 1 )
endif
 
use

Code: Select all

if Right( cBuf, 1 ) == Chr( 26  )// check and remove Ctrl-Z <--------------------
cBuf := Left( cBuf, Len( cBuf ) - 1 )
endif
 
or much simpler

Code: Select all

cBuf := RemRight( cBuf, 26 )
 
Regards

G. N. Rao.
Hyderabad, India
Top
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: Strange error to converte a file

Post by Silvio.Falconi »

It's right
thanks mr Rao the old app was compiled with xharbour

I not saw it
the function of csv was by otto and i taken it on forum

Regards
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
Top
Post Reply

Return to “FiveWin for Harbour/xHarbour”