VBscript searching value in 2d array -


i have 2d array parced xml. example of xml:

  <string-array name="array1">     <field name="city" type="string">moscow</field>     <field name="id" type="number">10</field> (p.s. id unique within array)     <field name="version" type="number">2</field>     .......   </string-array>

parcing it:

for i=0 nodek.length-1     array1(0,i)=nodek(i).getattribute("name")     array1(1,i)=nodek(i).text next

so 2d array looks like:

array1(0,0)="city" array1(1,0)="moscow" array1(0,1)="id" array1(1,1)=10 array1(0,2)="version" array1(1,2)=2

the task pick value id use (in sysid variable) further. following code not work properly

for i=lbound(array1,1) ubound (array1,1)     j=lbound(array1,2) ubound(array1,2)         if j=0             if  array(i,0)="id"                   sysid=array(i,1)                 msgbox "new id is: " & id, 64             end if         end if     next next

once value (id=10 in our case) found loop should exit. thank in advance!

just write array table

city    id  version moscow  10  2

then see need loop on 'cols of row 0' find key , address corresponding 'col of row 1' value.

in code:

option explicit  dim array1(1, 2) array1(0,0)="city" array1(1,0)="moscow" array1(0,1)="id" array1(1,1)=10 array1(0,2)="version" array1(1,2)=2  dim sfnd : sfnd = "id"  dim = 0 ubound(array1, 2)     wscript.echo array1(0, i)     if sfnd = array1(0, i)        wscript.echo array1(0, i), "=>", array1(1, i)        exit     end if next

output:

cscript 22862344.vbs city id id => 10

Comments

Post a Comment

Popular posts from this blog

apache - Remove .php and add trailing slash in url using htaccess not loading css -

i have add following code htaccess file removing .php extension , add trailing slash urls. worked fine reduced page loading speed , css code not loading @ all. pages ugly. please help rewriteengine on rewritebase / ## hide .php extension snippet # externally redirect /dir/foo.php /dir/foo rewritecond %{the_request} ^[a-z]{3,}\s([^.]+)\.php [nc] rewriterule ^ %1/ [r,l] # add trailing slash rewritecond %{request_filename} !-f rewritecond %{request_uri} !/$ rewriterule . %{request_uri}/ [l,r=301] # internally forward /dir/foo /dir/foo.php rewritecond %{request_filename} !-d rewritecond %{request_filename}.php -f rewriterule ^(.*?)/?$ $1.php [l] we can rewrite urls using .htaccess files. before writing in .htaccess files need verify kind of server using. can check server adding a <?php phpinfo(); ?> in php page. ensure mod_rewrite module enabled in apache server. can identified checking phpinfo included page. common methods used url rewriting follows ...
Read more

inno setup - TLabel or TNewStaticText - change .Font.Style on Focus like Cursor changes with .Cursor -

is possible change .font.style on focus tlabel or tnewstatictext happens cursor when use .cursor ? there no built-in support track mouse hovering in inno setup @ time. however, intercepting window procedure of controls can track yourself. following example need innocallback library: [setup] appname=my program appversion=1.5 defaultdirname={pf}\my program outputdir=userdocs:inno setup examples output [files] source: "innocallback.dll"; destdir: "{tmp}"; flags: dontcopy [code] #ifdef unicode #define aw "w" #else #define aw "a" #endif const gwl_wndproc = -4; wm_mousemove = $0200; type wparam = uint_ptr; lparam = longint; lresult = longint; twindowproc = function(hwnd: hwnd; umsg: uint; wparam: wparam; lparam: lparam): lresult; function setcapture(hwnd: hwnd): hwnd; external 'setcapture@user32.dll stdcall'; function releasecapture: bool; external 'releasecapture@user32.dll stdcall'; func...
Read more