loops - Iterate through two Arrays VBscript -

-

i have 2 arrays, first 1 has similar values, , in sorted order, second array csv map. want how concatenate values in first array, grouped together, based on second value of map

what have:

arr1                            map ----                            ---  x                              x, 1  x                              y, 1  x                              z, 2  y  y  z

what want:

    newarr                                 ----                              x x x y y, 1                                                           z , 2

my code:

for each x in arr1     each y in map         line = split(y, ",")         if instr(x, line(0))             redim preserve newarr(i)             newarr(i) = newarr(i) & x         elseif instr(x, line(1))             redim preserve newarr(i)             newarr(i) = newarr(i) & x         else             = + 1         end if     next next

my logic compare val in arr1 map(0), if there similarities, put in array, if there aren't, check map(1), if there match there, append value in newarr(i). iterate if there no matches. code not doing that. thoughts?

the op asked if array sorted alphabetically based of map.

arr1 = array("x","x","x","y","y","z") map = array("x,b","y,b","z,a")

enter image description here

dim indexlist, dictkeys set indexlist = createobject("system.collections.arraylist") set dictkeys = createobject("scripting.dictionary")  dim arr1, map, newarr, temp, x, y arr1 = array("x","x","x","y","y","z") map = array("x,b","y,b","z,a")  each y in map     line = split(y, ",")     if not indexlist.contains(cstr(line(1))) indexlist.add  cstr(line(1)) next   indexlist.sort  each y in map     line = split(y, ",")     if not dictkeys.exists(line(0)) dictkeys.add  line(0), indexlist.lastindexof(cstr(line(1))) next   redim newarr(indexlist.count - 1)  each y in arr1     if isempty(newarr(dictkeys(y)))         redim temp(0)     else         temp = newarr(dictkeys(y))         redim preserve temp(ubound(temp) + 1)     end if     temp(ubound(temp))= y     newarr(dictkeys(y))  = temp next   = 0 ubound(newarr)     temp = newarr(i )     redim preserve temp(ubound(temp) + 1)     temp(ubound(temp))= + 1     newarr(i ) = temp   next  each x in newarr     wscript.echo join(x , ",") next

Comments

Post a Comment

Popular posts from this blog

mysql - Dreamhost PyCharm Django Python 3 Launching a Site -

-
i'm new python/django , created simple django website using pycharm. site works fine running on computer, i'm lost when comes taking site onto host (dreamhost). i'm able upload files correct directories fine, , believe made correct changes database on mysql. i'm not sure go there though. right now, page shows files rather site. direction appreciated. much! you should not run django application using python manage.py runserver on production. how run application on django depends on server (apache, nginx) want use for apache - https://docs.djangoproject.com/en/1.10/howto/deployment/wsgi/modwsgi/ for nginx - https://www.digitalocean.com/community/tutorials/how-to-serve-django-applications-with-uwsgi-and-nginx-on-ubuntu-14-04 the mysql database should, of course, exist , have correct credentials. or, if choose use sqlite, file should accessible, readable , writable www-user (may different depending on linux distributive)
Read more

java - Sending SMS with SMSLib and Web Services -

-
i have made rest web service send smss using hsdpa usb modem. using smslib in java send smss. every time web service invoked, create gateway start service, send message, stop service , remove gateway. takes 20 seconds each message. found starting service takes lot of time. part of code use send smss service.getinstance().addgateway(gateway); service.getinstance().startservice(); outboundmessage msg = new outboundmessage(phonenumber, message); if (service.getinstance().sendmessage(msg)) { result = "message sent successfully!!"; } else { result = "could not send message."; } service.getinstance().stopservice(); service.getinstance().removegateway(gateway);//remove gateway is there way can start service once if not started , use send message when ever web service invoked? why dont group messages , send in 1 go? service.getinstance().sendmessages(messa...
Read more

python 3.5 - Pyqtgraph string in x tick -

-
Image
so have been playing pyqtgraph , came problem needed add strings x axis tick label (instead of default float). looked around , found show string values on x-axis in pyqtgraph the solution kind of need (the first solution on page, second 1 cause problems because on python 3.5). tried modified first solution, did not work. from pyqt4 import qtcore import pyqtgraph pg x = ['a', 'b', 'c', 'd', 'e', 'f'] y = [1, 2, 3, 4, 5, 6] xdict = dict(enumerate(x)) win = pg.graphicswindow() stringaxis = pg.axisitem(orientation='bottom') stringaxis.setticks([xdict.items()]) plot = win.addplot(axisitems={'bottom': stringaxis}) curve = plot.plot(xdict.keys(),y) if __name__ == '__main__': import sys if sys.flags.interactive != 1 or not hasattr(qtcore, 'pyqt_version'): pg.qtgui.qapplication.exec_() the error getting typeerror: 'dict_keys' object not support indexing on line curve = plot.plo...
Read more