Generating a readable text string from an array

HMG Samples and Enhancements

Moderator: Rathinagiri

Post Reply
HGAutomator
Posts: 191
Joined: Thu Jul 16, 2020 5:42 pm
DBs Used: DBF

Generating a readable text string from an array

Post by HGAutomator »

Still working on this, but need to break for a day or two.

Next TODO is to indent and CRLF some of the subarrays and/or elements, in a way that makes sense to the human eye.

This is different from many of the Array2File or Array2String modules, in that it's strictly textual and readable. At least, that's the goal.

In case anyone wants to take a look, this is a work in progress.

Code: Select all

#define CRLF CHR(10) + CHR(13)

STATIC MultiDimensionalArray_s := ""

Function ConvertArrayToString()
	Local ArrayString_s := ""
  Local SampleArray_a := ;
   { ;
      {"One", "Two", "Three", { "Four", "Five" } }, ;
      { "Six", "Seven" }, ;
      {"Eight", "Nine"} ;
   }

	SampleArray_a := ;
	{ ;
		{"One", "Two", "Three", { "Four", "Five" } }, ;
		{ { "Dummy1", "Dummy2" }, "Six", "Seven" }, ;
		{"Eight", "Nine"} ;
	}

  ArrayString_s := "{ " + CRLF + WriteArray( SampleArray_a, 1 ) + CRLF + " }"

	// Send ArrayString_s to file SAMPLEARRAY.TXT

	SET CONSOLE OFF
	SET PRINTER ON
	SET PRINTER TO SAMPLEARRAY.TXT
	? ArrayString_s
	SET PRINTER OFF
	SET PRINTER TO
	SET CONSOLE ON

Return Nil


FUNCTION WriteArray(aArray, Level_n )
LOCAL TypeOfElement_s := ""
LOCAL NthElement_n := 0
LOCAL LengthOfArray_n := 0

LengthOfArray_n := LEN(aArray)

MultiDimensionalArray_s := MultiDimensionalArray_s + Space( Level_n )

FOR NthElement_n = 1 TO LengthOfArray_n
   TypeOfElement_s = VALTYPE(aArray[NthElement_n])
   DO CASE
      CASE TypeOfElement_s = 'A'
         If NthElement_n == 1
            MultiDimensionalArray_s := MultiDimensionalArray_s + " { " + CRLF
         Else
            If NthElement_n < LengthOfArray_n
               MultiDimensionalArray_s := MultiDimensionalArray_s + " { "
            Else
               If NthElement_n == LengthOfArray_n
                  MultiDimensionalArray_s := MultiDimensionalArray_s + " { " + CRLF
               EndIf
            EndIf
         EndIf

         WriteArray(aArray[NthElement_n], Level_n + 1)

         IF ( NthElement_n == 1 .AND. NthElement_n < LengthOfArray_n )
            MultiDimensionalArray_s := MultiDimensionalArray_s + " },  " + CRLF
         Else
            If NthElement_n < LengthOfArray_n
               MultiDimensionalArray_s := MultiDimensionalArray_s + " }, "
            Else
               If NthElement_n == LengthOfArray_n
                  MultiDimensionalArray_s := MultiDimensionalArray_s + " } " + CRLF
               EndIf
            EndIf
         EndIf

      CASE TypeOfElement_s = 'C'
          If NthElement_n < LengthOfArray_n
            MultiDimensionalArray_s := MultiDimensionalArray_s + aArray[NthElement_n] + ", "
         Else
            MultiDimensionalArray_s := MultiDimensionalArray_s + aArray[NthElement_n] + " "
         EndIf

      CASE TypeOfElement_s = 'D'
          MultiDimensionalArray_s := MultiDimensionalArray_s + DTOC(aArray[NthElement_n]) + " "

      CASE TypeOfElement_s = 'L'
          MultiDimensionalArray_s := MultiDimensionalArray_s + IF(aArray[NthElement_n], 'T', 'F') + " "

      CASE TypeOfElement_s = 'N'
          MultiDimensionalArray_s := MultiDimensionalArray_s + LTRIM(STR(aArray[NthElement_n] ) ) + " "
      OTHERWISE
          MultiDimensionalArray_s := MultiDimensionalArray_s + 'X' + " "
    ENDCASE
NEXT

RETURN MultiDimensionalArray_s
Top
User avatar
SALINETAS24
Posts: 667
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Contact:
Contact SALINETAS24

Re: Generating a readable text string from an array

Post by SALINETAS24 »

HGAutomator wrote: ↑Fri Oct 14, 2022 5:00 pm Still working on this, but need to break for a day or two.

Next TODO is to indent and CRLF some of the subarrays and/or elements, in a way that makes sense to the human eye.

This is different from many of the Array2File or Array2String modules, in that it's strictly textual and readable. At least, that's the goal.

In case anyone wants to take a look, this is a work in progress.......


RETURN MultiDimensionalArray_s
[/code]
Hola, no tengo claro lo quieres hacer. Mi inglés es malo. :?:
No obstante te paso un programa que te convierte una ARRAY multi en una cadena de caracteres y que la muestra con los distintos niveles. Espero que te sirva para algo.
Saludos cordiales y cervezas virtuales .... :lol:
Attachments
ARRAYCADENA.rar
(852 Bytes) Downloaded 95 times
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:
Top
HGAutomator
Posts: 191
Joined: Thu Jul 16, 2020 5:42 pm
DBs Used: DBF

Re: Generating a readable text string from an array

Post by HGAutomator »

Hi Salinet,

I haven't tested your code yet, but it does look good.

Will check it out in a few days, after catching up on other stuff.


Regards,



SALINETAS24 wrote: ↑Mon Oct 17, 2022 7:08 pm
HGAutomator wrote: ↑Fri Oct 14, 2022 5:00 pm Still working on this, but need to break for a day or two.

Next TODO is to indent and CRLF some of the subarrays and/or elements, in a way that makes sense to the human eye.

This is different from many of the Array2File or Array2String modules, in that it's strictly textual and readable. At least, that's the goal.

In case anyone wants to take a look, this is a work in progress.......


RETURN MultiDimensionalArray_s
[/code]
Hola, no tengo claro lo quieres hacer. Mi inglés es malo. :?:
No obstante te paso un programa que te convierte una ARRAY multi en una cadena de caracteres y que la muestra con los distintos niveles. Espero que te sirva para algo.
Saludos cordiales y cervezas virtuales .... :lol:
Top
HGAutomator
Posts: 191
Joined: Thu Jul 16, 2020 5:42 pm
DBs Used: DBF

Re: Generating a readable text string from an array

Post by HGAutomator »

Salinet,

Not quite. Your code lines up the elements of the array nicely, but doesn't generate the braces.

Still busy, haven't had a chance to do any more coding this week so far. But the resultant string has to look something like this:


{;
{"One", "Two", "Three",
{ "Four", "Five" } }, ;
{
{ "Dummy1", "Dummy2" },
"Six", "Seven" }, ;
{"Eight", "Nine"} ;
}

Anyway, I'll share when it's done, thanks.
Top
HGAutomator
Posts: 191
Joined: Thu Jul 16, 2020 5:42 pm
DBs Used: DBF

Re: Generating a readable text string from an array

Post by HGAutomator »

Not finished yet, but some progress:

Code: Select all

STATIC FUNCTION WriteArray( _a, Level_n )
   LOCAL ElementType_s, NthElement_n, ArrayLength_n := Len( _a )

   MultiDimensionalArray_s := MultiDimensionalArray_s + Space( Level_n )

   FOR NthElement_n = 1 TO ArrayLength_n
      ElementType_s = ValType( _a[ NthElement_n ] )
      DO CASE
      CASE ElementType_s = 'A'
         IF NthElement_n == 1
            MultiDimensionalArray_s := MultiDimensionalArray_s + "{ " + CRLF
         ELSE
            IF NthElement_n < ArrayLength_n
               MultiDimensionalArray_s := MultiDimensionalArray_s + "{ "
            ELSE
               IF NthElement_n == ArrayLength_n
                  MultiDimensionalArray_s := MultiDimensionalArray_s + "{ " + CRLF
               ENDIF
            ENDIF
         ENDIF

         WriteArray( _a[ NthElement_n ], Level_n + 1 )

         IF NthElement_n == 1 .AND. NthElement_n < ArrayLength_n
            MultiDimensionalArray_s := MultiDimensionalArray_s + CRLF + " }, "
         ELSE
            IF NthElement_n < ArrayLength_n
               MultiDimensionalArray_s := MultiDimensionalArray_s + " }, "
            ELSE
               IF NthElement_n == ArrayLength_n
                  MultiDimensionalArray_s := MultiDimensionalArray_s + CRLF +  " }"
               ENDIF
            ENDIF
         ENDIF

      CASE ElementType_s = 'C'
         OutDebug( _a[ NthElement_n ] )
         IF NthElement_n < ArrayLength_n
            MultiDimensionalArray_s := MultiDimensionalArray_s + Chr(34) + _a[ NthElement_n ] + Chr(34) + ", "
         ELSE
            MultiDimensionalArray_s := MultiDimensionalArray_s + Chr(34) + _a[ NthElement_n ] + Chr(34) +  " "
         ENDIF

      CASE ElementType_s = 'D'
         OutDebug( DToC( _a[ NthElement_n ] ) )
         MultiDimensionalArray_s := MultiDimensionalArray_s + DToC( _a[ NthElement_n ] ) + " "

      CASE ElementType_s = 'L'
         OutDebug( IF( _a[ NthElement_n ], 'T', 'F' ) )
         MultiDimensionalArray_s := MultiDimensionalArray_s + IF( _a[ NthElement_n ], 'T', 'F' ) + " "

      CASE ElementType_s = 'N'
         OutDebug( LTrim( Str(_a[ NthElement_n ] ) ) )
         MultiDimensionalArray_s := MultiDimensionalArray_s + LTrim( Str( _a[ NthElement_n ] ) ) + " "

      CASE ElementType_s = 'B'
         OutDebug( LTrim( Str(_a[ NthElement_n ] ) ) )
         MultiDimensionalArray_s := MultiDimensionalArray_s + 'B' + " "

      OTHERWISE
         OutDebug( 'X' )
         MultiDimensionalArray_s := MultiDimensionalArray_s + 'X' + " "
      ENDCASE
   NEXT

RETURN MultiDimensionalArray_s
Top
HGAutomator
Posts: 191
Joined: Thu Jul 16, 2020 5:42 pm
DBs Used: DBF

Re: Generating a readable text string from an array

Post by HGAutomator »

Much closer, to what we're trying to accomplish:

Code: Select all

   SampleArray_a := ;
      { ;
      { "One", "Two", "Three", { "Four", "Five" } }, ;
      { { "Dummy1", "Dummy2" }, "Six", "Seven" }, ;
      { "Eight", "Nine", Date(), 123, { || dummyfunc() } }, ;
      { .F., .T. } ;
      }
      
   ArrayString_s := "{ " + CRLF + WriteArray( SampleArray_a, 1 ) + CRLF + "}"

FUNCTION WriteArray( _a, Level_n )
   LOCAL ElementType_s, NthElement_n, ArrayLength_n := Len( _a )

   MultiDimensionalArray_s := MultiDimensionalArray_s + Space( Level_n )

   FOR NthElement_n = 1 TO ArrayLength_n
      ElementType_s = ValType( _a[ NthElement_n ] )
      DO CASE
      CASE ElementType_s = 'A'
         IF NthElement_n == 1
            MultiDimensionalArray_s := MultiDimensionalArray_s + "{ " + CRLF
         ELSE
            IF NthElement_n < ArrayLength_n
               MultiDimensionalArray_s := MultiDimensionalArray_s + "{ "
            ELSE
               IF NthElement_n == ArrayLength_n
                  MultiDimensionalArray_s := MultiDimensionalArray_s + "{ " + CRLF
               ENDIF
            ENDIF
         ENDIF

         WriteArray( _a[ NthElement_n ], Level_n + 1 )

         IF NthElement_n == 1 .AND. NthElement_n < ArrayLength_n
            MultiDimensionalArray_s := MultiDimensionalArray_s + CRLF + " }, "
         ELSE
            IF NthElement_n < ArrayLength_n
               MultiDimensionalArray_s := MultiDimensionalArray_s + " }, "
            ELSE
               IF NthElement_n == ArrayLength_n
                  MultiDimensionalArray_s := MultiDimensionalArray_s + CRLF +  " }"
               ENDIF
            ENDIF
         ENDIF

      CASE ElementType_s = 'C'
         IF NthElement_n < ArrayLength_n
            MultiDimensionalArray_s := MultiDimensionalArray_s + Chr(34) + _a[ NthElement_n ] + Chr(34) + ", "
         ELSE
            MultiDimensionalArray_s := MultiDimensionalArray_s + Chr(34) + _a[ NthElement_n ] + Chr(34) +  " "
         ENDIF

      CASE ElementType_s = 'D'
         IF NthElement_n < ArrayLength_n
            MultiDimensionalArray_s := MultiDimensionalArray_s + DToC( _a[ NthElement_n ] ) + ", "
         ELSE
            MultiDimensionalArray_s := MultiDimensionalArray_s + DToC( _a[ NthElement_n ] ) + " "
         ENDIF

      CASE ElementType_s = 'L'
         IF NthElement_n < ArrayLength_n
            MultiDimensionalArray_s := MultiDimensionalArray_s + IF( _a[ NthElement_n ], 'T', 'F' ) + ", "
         ELSE
            MultiDimensionalArray_s := MultiDimensionalArray_s + IF( _a[ NthElement_n ], 'T', 'F' ) + " "
         ENDIF

      CASE ElementType_s = 'N'
         IF NthElement_n < ArrayLength_n
            MultiDimensionalArray_s := MultiDimensionalArray_s + LTrim( Str( _a[ NthElement_n ] ) ) + ", "
         ELSE
            MultiDimensionalArray_s := MultiDimensionalArray_s + LTrim( Str( _a[ NthElement_n ] ) ) + " "
         ENDIF

      CASE ElementType_s = 'B'
         IF NthElement_n < ArrayLength_n
            MultiDimensionalArray_s := MultiDimensionalArray_s + 'B' + ", "
         ELSE
            MultiDimensionalArray_s := MultiDimensionalArray_s + 'B' + " "
         ENDIF
      OTHERWISE
         IF NthElement_n < ArrayLength_n
            MultiDimensionalArray_s := MultiDimensionalArray_s + 'X' + ", "
         ELSE
            MultiDimensionalArray_s := MultiDimensionalArray_s + 'X' + " "
         ENDIF


      ENDCASE
   NEXT

RETURN MultiDimensionalArray_s

So, for the sample array

Code: Select all

      { ;
      { "One", "Two", "Three", { "Four", "Five" } }, ;
      { { "Dummy1", "Dummy2" }, "Six", "Seven" }, ;
      { "Eight", "Nine", Date(), 123, { || dummyfunc() } }, ;
      { .F., .T. } ;
      }

, the function generates the string

Code: Select all

{ 
 { 
  "One", "Two", "Three", { 
   "Four", "Five" 
 }
 }, {   { 
   "Dummy1", "Dummy2" 
 }, "Six", "Seven"  }, {   "Eight", "Nine", 10/19/22, 123, B  }, { 
  F, T 
 }
}
Top
User avatar
SALINETAS24
Posts: 667
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Contact:
Contact SALINETAS24

Re: Generating a readable text string from an array

Post by SALINETAS24 »

HGAutomator wrote: ↑Wed Oct 19, 2022 10:41 pm Much closer, to what we're trying to accomplish: .....
Hola HGAutomator, después de unos ajustes este es el resulado

Code: Select all

{
{"One", "Two", "Three", 
{ "Four", "Five" } }, 

{ 
{ "Dummy1", "Dummy2" }, 
"Six", "Seven" }, ;
{"Eight", "Nine",10/20/22,123,B} ,
{F, T}
}
Vamos con una cervecita fresquita para todo el personal.....
Attachments
PROBA.rar
(1.21 MiB) Downloaded 111 times
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:
Top
HGAutomator
Posts: 191
Joined: Thu Jul 16, 2020 5:42 pm
DBs Used: DBF

Re: Generating a readable text string from an array

Post by HGAutomator »

Yep, that seems to work.

SALINETAS24 wrote: ↑Thu Oct 20, 2022 6:51 pm
HGAutomator wrote: ↑Wed Oct 19, 2022 10:41 pm Much closer, to what we're trying to accomplish: .....
Hola HGAutomator, después de unos ajustes este es el resulado

Code: Select all

{
{"One", "Two", "Three", 
{ "Four", "Five" } }, 

{ 
{ "Dummy1", "Dummy2" }, 
"Six", "Seven" }, ;
{"Eight", "Nine",10/20/22,123,B} ,
{F, T}
}
Vamos con una cervecita fresquita para todo el personal.....
Top
Post Reply

Return to “HMG Samples”