Deconstruct string

[Danton]

Hi All,

I'd like to deconstruct a string and get all the variables contained with in it.


I'm sure there's a "clever" way to do it.

The pattern is always the same; the variables are contained within quotes after the "=", separated by the &.

The name at the begining can change and is not that important the number of variables can also change.


eg CUST="26082"&"29185"&"35247"&"45407"&"65488"&"72471"&"110082"



Thanks
Danton

[adroege]

Try this:

Code: Select all

Let>String=CUST="26082"&"29185"&"35247"&"45407"&"65488"&"72471"&"110082"
Position>=",String,1,nPos,TRUE
Add>nPos,1
Length>String,nLength
MidStr>String,nPos,nLength,strSub
Separate>strSub,&,Items

This will return an array of variables, i.e.

ITEMS_1="26082"
ITEMS_2="29185"
ITEMS_3="35247"
ITEMS_4="45407"
ITEMS_5="65488"
ITEMS_6="72471"
ITEMS_7="110082"

And also return a variable with the count of the items, i.e.

ITEMS_COUNT=7

[Danton]

Try this:

Code: Select all

Let>String=CUST="26082"&"29185"&"35247"&"45407"&"65488"&"72471"&"110082"
Position>=",String,1,nPos,TRUE
Add>nPos,1
Length>String,nLength
MidStr>String,nPos,nLength,strSub
Separate>strSub,&,Items

This will return an array of variables, i.e.

ITEMS_1="26082"
ITEMS_2="29185"
ITEMS_3="35247"
ITEMS_4="45407"
ITEMS_5="65488"
ITEMS_6="72471"
ITEMS_7="110082"

And also return a variable with the count of the items, i.e.

ITEMS_COUNT=7

Great, thanks, that works!!

[Danton]

Try this:

Code: Select all

Let>String=CUST="26082"&"29185"&"35247"&"45407"&"65488"&"72471"&"110082"
Position>=",String,1,nPos,TRUE
Add>nPos,1
Length>String,nLength
MidStr>String,nPos,nLength,strSub
Separate>strSub,&,Items

This will return an array of variables, i.e.

ITEMS_1="26082"
ITEMS_2="29185"
ITEMS_3="35247"
ITEMS_4="45407"
ITEMS_5="65488"
ITEMS_6="72471"
ITEMS_7="110082"

And also return a variable with the count of the items, i.e.

ITEMS_COUNT=7

Thanks again,

I tried the next step myself but I've been pulling my hair out trying to get it to work.

Ideally I'd like to post this array to excel using DDEPoke


DDERequest>Excel,%filename%,R1C1,strData,10
Let>String=strData
Position>=",String,1,nPos,TRUE
Add>nPos,1
Length>String,nLength
MidStr>String,nPos,nLength,strSub
Separate>strSub,&,Items

Let>xlRow=%xlRow%+1
DDEPoke>Excel,%filename%,R%xlRow%C1,%ITEMS_1%
Let>xlRow=%xlRow%+1
DDEPoke>Excel,%filename%,R%xlRow%C1,%ITEMS_2%



I can get this to work, but it's clumsy. I'd like to use a loop and repeat until the end of the array. Basically can we have a count with the items_x variable?

Thanks again
Danton

[Marcus Tettmar]

The count is in items_count. Separate produces items_1 ... items_n plus items_count

So you can loop through the array:

Code: Select all

Let>k=0
Repeat>k
  Let>k=k+1
  Let>this_item=items_%k%
  ...
Until>k=items_count

And I would use XLGetCell and XLSetCell rather than DDERequest/DDEPoke

[Danton]

Thanks,

I'm learning
I got close in my attempt, but not close enough.

Thanks for the tip on xlGetcell too..


Danton

[Danton]

The count is in items_count. Separate produces items_1 ... items_n plus items_count

So you can loop through the array:

Code: Select all

Let>k=0
Repeat>k
  Let>k=k+1
  Let>this_item=items_%k%
  ...
Until>k=items_count

And I would use XLGetCell and XLSetCell rather than DDERequest/DDEPoke

Strange. For some reason DDERequest has suddenly stopped working. It worked flawlessly on a previous script in the past and was working earlier today and now it's not working on either the new or old script I get a "strdata=DDE_service_invalid"