2009 May 24 - Automation Beyond

Implementing optional and default parameters (QTP, ...

Posted by Albert Gareev on May 24, 2009

Original date: 16 Dec 2008, 1:14pm Service function Public Function AssociateParameters(ByVal strParams) Dim objDictionary, Values, strPair, Pair Dim intCount, i strParams = Replace(strParams, "\,", Chr(176)) strParams = Replace(strParams, "\=", Chr(187)) Values = Split(strParams, ",") intCount = UBound(Values) Set objDictionary = CreateObject("Scripting.Dictionary") For i=0 To ...

Posts Calendar

May 2009
Mon	Tue	Wed	Thu	Fri	Sat	Sun
« Jan		Jun »
	1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30	31

Flag Counter 2011-2012

	20648 (30 %)	34801 (30 %)
	16923 (25 %)	31350 (27 %)
	4808 (7 %)	7932 (7 %)
	3583 (5 %)	8138 (7 %)
	1819 (3 %)	3006 (3 %)
	1774 (3 %)	2946 (3 %)
	1215 (2 %)	1881 (2 %)
	1193 (2 %)	2175 (2 %)
	1160 (2 %)	1604 (1 %)
	1044 (2 %)	1737 (1 %)
	677 (1 %)	1051 (1 %)
	626 (1 %)	1031 (1 %)
	618 (1 %)	922 (1 %)
	584 (1 %)	828 (1 %)
	570 (1 %)	916 (1 %)
	537 (1 %)	915 (1 %)
	509 (1 %)	896 (1 %)
	494 (1 %)	751 (1 %)
	456 (1 %)	692 (1 %)
	454 (1 %)	771 (1 %)
	428 (1 %)	691 (1 %)
	419 (1 %)	685 (1 %)
	410 (1 %)	591 (1 %)
	339 (0 %)	498 (0 %)
	318 (0 %)	521 (0 %)