To Uwe

[ADutheil]

Direct reply to your "A xBrowse ASC-viewer ( DOWNLOAD )" post ends with error. You could try someting like this:

Code: Select all  Expand view

FUNCTION TEST
LOCAL nMaxiArray
LOCAL aPrint        := {}
LOCAL I
LOCAL cCHAR1 := "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
LOCAL cCHAR2 := "abcdefghijklmnopqrstuvwxyzß"
LOCAL cCHAR3 := "0123456789"
LOCAL cCHAR4 := removed because I think it´s being rejected by MySQL
LOCAL aArray1 := {}
LOCAL aArray2 := {}
LOCAL aArray3 := {}
LOCAL aArray4 := {}

I := 1
FOR I := 1 TO LEN( cCHAR1)
    AADD(aArray1, { SUBSTR(cCHAR1,I,1), ASC(SUBSTR(cCHAR1,I,1)) })
NEXT
nMaxiArray := I
I := 1
FOR I := 1 TO LEN( cCHAR2)
    AADD(aArray2, { SUBSTR(cCHAR2,I,1), ASC(SUBSTR(cCHAR2,I,1)) })
NEXT
nMaxiArray := max( nMaxiArray, I )
I := 1
FOR I := 1 TO LEN( cCHAR3)
    AADD(aArray3, { SUBSTR(cCHAR3,I,1), ASC(SUBSTR(cCHAR3,I,1)) })
NEXT
nMaxiArray := max( nMaxiArray, I )
I := 1
FOR I := 1 TO LEN( cCHAR4)
    AADD(aArray4, { SUBSTR(cCHAR4,I,1), ASC(SUBSTR(cCHAR4,I,1)) })
NEXT
nMaxiArray := max( nMaxiArray, I )

FOR I := 1 TO nMaxiArray
    IF I <= len( aArray1 )
        aAdd( aPrint, { aArray1[ I, 1 ], str( aArray1[ I, 2 ], 3 ) } )
    ELSE
        aAdd( aPrint, { space( 1 ), space( 4 ) } )
    ENDIF
    IF I <= len( aArray2 )
        aAdd( aTail( aPrint ), aArray2[ I, 1 ] )
        aAdd( aTail( aPrint ), str( aArray2[ I, 2 ], 3 ) )
    ELSE
        aAdd( aTail( aPrint ), space( 1 ) )
        aAdd( aTail( aPrint ), space( 4 ) )
    ENDIF
    IF I <= len( aArray3 )
        aAdd( aTail( aPrint ), aArray3[ I, 1 ] )
        aAdd( aTail( aPrint ), str( aArray3[ I, 2 ], 3 ) )
    ELSE
        aAdd( aTail( aPrint ), space( 1 ) )
        aAdd( aTail( aPrint ), space( 4 ) )
    ENDIF
    IF I <= len( aArray4 )
        aAdd( aTail( aPrint ), aArray4[ I, 1 ] )
        aAdd( aTail( aPrint ), str( aArray4[ I, 2 ], 3 ) )
    ELSE
        aAdd( aTail( aPrint ), space( 1 ) )
        aAdd( aTail( aPrint ), space( 4 ) )
    ENDIF
NEXT
xbrowse( aPrint )
RETURN NIL

[ukoenig]

André,

I'm busy, to complete the Viewer with many new functions :





Still some more work to finish the the Painter :



Best Regards
Uwe