How to remove one additional loop

[jaryszek]

Hi Guys,

i have code:

Please Login or Register  to view this content.

and function:

Please Login or Register  to view this content.

what i am doing here is creating dictionary for t_loop table.
For each row in this table i will be creating new workbook with data.

Next i am creating dictionary for t_cource - this is my dictionary data.

And problem is within looping within my dictionary (From for each vakeytop in DicLoop).

For each variable in t_source Atributes column i am searching for matching string within each row in t_loop table.
(If InStr(DicLoop(varkeytop), LandscapeVar) > 0 Then)
example:

For system in second column in t_source table i will check this if:
If InStr(DicLoop(varkeytop), LandscapeVar) > 0 Then, --> here LandscapeVar is "System" so if statement will go further and find which system number should be taken (SystemVar)

For object i will check this if also, and for Method i will check this if also.
It is ok for ID1 in t_loop because i have 3 variables there inputed by user.

Problem is with ID2 where there are only 2 variables: Object1 and System1.
Here i want only run my if statement for System and Object from table t_source.
I do not want to loop unnecessarily also for Method value here...

How can i do it?
Maybe it is better way then looping always for each value in t_source table?

Please help,
Jacek

[jaryszek]

anyone?

Jacek

[jaryszek]

I have idea for this.

I can loop somehow trough each item for each key.
And if it will be matching with t_souce table i can take data from there.

Problem is... how to loop through items within dictionary key?

And if item1 from dictionary key1 = System1, how to find that in t_source there is in second column row with value System (not in first column but in second)
I do not want to here have loops, only something like exists or maybe find (but find is slow i think).
Create also dictionary there or maybe a class?

Best,
Jacek

[jindon]

What are you trying to do actually?

You have 2 tables and what is the relation between the 2?
What is the outcome you expect?

[jaryszek]

Hi jindon,

tables are related by text.
In C column in t_source you have System, Object and Method strings and there are the same (almost) like inputed values in t_loop.
System1 is referencing to System, Method5 is referencing to Methos and so on....

I am looping through each row in t_loop table and mathing data from t_source.
So what i want:
1. For each value in t_loop, for example for Object2 i want to get easily access to all data in 2nd row within table in t_source (Topic2 and B2 in this case).

Thank you for your hepl and support,
Jacek

[jindon]

So, no key column in t_loop and no exact match?

Method2, Method5 should match to Method?

Please Login or Register  to view this content.

[jaryszek]

thank you jindon!

what does it mean?

Please Login or Register  to view this content.

Here we have two loops like in my code.

It is possible to elimate one loop here:

Please Login or Register  to view this content.

using maybe arraylist or something like that?
To show exactly one match value and referencing row for it ?

Best,
Jacek

[jindon]

Because your match rule is not EXACT match, it should loop through the keys in dictionary and find the LIKE value.

eg

System1 Like "System*" = True..etc.

[jaryszek]

So "*" means & ?

Thank you,
jindon.

Unfortunatelty there is no exact match here.

Jacek

[jindon]

You need to learn wild card characters.

* = none or many characters
? = any one character
# = one numerical character

### matches to 3 numerical characters like 123
###? matches to 3 numerical characters & one any character
###* matches to 3 characters and with or without any number of character(s).

[jaryszek]

thank you jindon,

i know wildcars but here is not understandable for me:

if (a(i, ii) <> "") * (a(i, ii)

If System1 is different from "" AND (a(i, ii) Like ....

Jacek

[jindon]

I don't understand what you don't understand...

[jaryszek]

Here i know that you are checking:

If (a(i, ii) <> "") * (a(i, ii) Like e & "*")

If it is not empty and has value Like e do something

aa you have () * () i am wondering what this star mean here?

It is also wildcard?

Jacek

[jindon]

Ahhh, that means "And"

equivalent to

Please Login or Register  to view this content.

In vba, True = -1, False = 0
also evaluate 0 = False, other than 0 is True.

(True) * (True) returns <>0 means True
(True) * (False) returns 0 means False

+ means "Or"
(True) + (False) returns -1 returns True.
(False) + (False) returns 0, means False.

[jaryszek]

Thank you !!

Now fully undestood this

Jacek