How to extract element in array

[nodochau]

Hello All,
I want to extract the element in array if I know the name of it. Thanks for your help.
MDL just returns me a text info_1
Here is my simple code:

Code: Select all

ArrayDim>Names,3
Let>Names_1=A
Let>Names_2=B
Let>Names_3=C

ArrayDim>ID,3
Let>ID_1=123
Let>ID_2=456
Let>ID_3=789

ArrayDim>Status,3
Let>Status_1=Pass
Let>Status_2=Pendding
Let>Status_3=Fail

Let>a=0
Let>text=I need to know data
Position>data,text,1,n_pos
If>n_pos>0
  If>a=0
    Let>info=Names
    MDL>info_1
  Endif
  If>a=1
    Let>info=ID
     MDL>info_1
  Endif
  If>a=2
    Let>info=Status
     MDL>info_1
  Endif
Endif

[Grovkillen]

Code: Select all

ArrayDim>Names,3
Let>Names_1=A
Let>Names_2=B
Let>Names_3=C

ArrayDim>ID,3
Let>ID_1=123
Let>ID_2=456
Let>ID_3=789

ArrayDim>Status,3
Let>Status_1=Pass
Let>Status_2=Pendding
Let>Status_3=Fail

Let>a=0
Let>text=I need to know data
Position>data,text,1,n_pos
If>n_pos>0
  If>a=0
    Let>info=Names
    Let>Temp=%info%_1
    MDL>Temp
  Endif
  If>a=1
    Let>info=ID
    Let>Temp=%info%_1
    MDL>Temp
  Endif
  If>a=2
    Let>info=Status
    Let>Temp=%info%_1
    MDL>Temp
  Endif
Endif

[nodochau]

Thank you for your help.
I tried and I got <array>_1 from MDL.
Did I miss something?

[Grovkillen]

Ah, yes the "info" variable is assigned an array... so you need to declare it like this:

Code: Select all

ArrayDim>Names,3
Let>Names_1=A
Let>Names_2=B
Let>Names_3=C

ArrayDim>ID,3
Let>ID_1=123
Let>ID_2=456
Let>ID_3=789

ArrayDim>Status,3
Let>Status_1=Pass
Let>Status_2=Pendding
Let>Status_3=Fail

Let>a=0
Let>text=I need to know data
Position>data,text,1,n_pos
If>n_pos>0
  If>a=0
    Let>info={"Names"}
    Let>Temp=%info%_1
    MDL>Temp
  Endif
  If>a=1
    Let>info={"ID"}
    Let>Temp=%info%_1
    MDL>Temp
  Endif
  If>a=2
    Let>info={"Status"}
    Let>Temp=%info%_1
    MDL>Temp
  Endif
Endif

[nodochau]

Thanks a lot. It worked.

[nodochau]

I change my code a little bit. And why the repeat loop does not work though??
I create 3 array first and then go to sub program to add values in each array.

Code: Select all

Let>text1=Names
Let>text2=ID
Let>text3=Status

Let>k=0
Repeat>k
  Add>k,1
  Let>text=text%k%
  ArrayDim>%text%,3
  Gosub>text
Until>k=3

SRT>Names
  Let>Names_1=A
  Let>Names_2=B
  Let>Names_3=C
END>Names

SRT>ID
  Let>ID_1=123
  Let>ID_2=456
  Let>ID_3=789
END>ID

SRT>Status
  Let>Status_1=Pass
  Let>Status_2=Pendding
  Let>Status_3=Fail
END>Status

[Grovkillen]

I never use the ArrayDim command. I rely on either Separate or RegEx to break a string into an array:

Code: Select all

Let>ARRAY_NAMES=names|id|status
Let>ARRAY_VALUES_names=A|B|C
Let>ARRAY_VALUES_id=123|456|789
Let>ARRAY_VALUES_status=Pass|Pending|Fail

Separate>ARRAY_NAMES,|,TEMP_array_names
If>TEMP_array_names_COUNT>0
  Let>k=0
  Repeat>k
    Let>k=k+1
    Let>TEMP_name=TEMP_array_names_%k%
    GoSub>ADD_VALUES_TO_ARRAY,{%TEMP_name%}
  Until>k=TEMP_array_names_COUNT
Endif>

SRT>ADD_VALUES_TO_ARRAY
  Separate>ARRAY_VALUES_%ADD_VALUES_TO_ARRAY_Var_1%,|,TEMP_array_name
  ArrayRename>TEMP_array_name,,ADD_VALUES_TO_ARRAY_Var_1
END>ADD_VALUES_TO_ARRAY


**BREAKPOINT**