outlook vba - Create CSV from array in VBA -

-

i'm novice programmer trying automate repetitive workplace tasks should done clever script instead of humans. i've done vba , java, basic stuff.

we have data generated validated online form gets emailed mailbox, , filter in mail client (outlook 2010) puts particular folder. intention write vba when triggered check contents of folder, , each mail item, message body text string, create array, , write array contents .csv file. i'll have app (imacros firefox) read csv , interact in-house corporate webapp rest.

i think can of except write array contents csv.

i work best looking @ code examples (i try understand ms object model documentation), best can find writing vba array csv like:

  'save file   open sfilename output #7   n = 0 ubound(myarray, 1)     print #7, format(myarray(n, 0), "0.000000e+00")   next n   close #7

i think vb , not vba, general idea here valid? or if else has code sample me started or other pointers i'd grateful.

ps have seen how save 2-dimensional array csv file? can't understand it.

the code below works converting 2d arrays in csv. have not written code, have tested , works!

' saveascsv saves array csv file. choosing delimiter different comma, optional. ' ' syntax: ' saveascsv dmyarray, smyfilename, [smydelimiter] ' ' examples: ' saveascsv dchrom, app.path & "\demo.csv"       --> comma delimiter ' saveascsv dchrom, app.path & "\demo.csv", ";"  --> semicolon delimiter ' ' rev. 1.00 [8 jan 2003] ' written p. wester ' wester@kpd.nl   public sub saveascsv(myarray() variant, sfilename string, optional sdelimiter string = ",")  dim n long 'counter dim m long 'counter dim scsv string 'csv string print  on error goto errhandler_saveascsv   'check extension , correct if needed if instr(sfilename, ".csv") = 0   sfilename = sfilename & ".csv" else   while (len(sfilename) - instr(sfilename, ".csv")) > 3     sfilename = left(sfilename, len(sfilename) - 1)   wend end if  'if multidimensional(myarray()) = false '1 dimension    'save file '  open sfilename output #7 '  n = 0 ubound(myarray(), 1) '    print #7, format(myarray(n, 0), "0.000000e+00") '  next n '  close #7  'else 'more dimensional    'save file   open sfilename output #7   n = 1 ubound(myarray(), 1)     scsv = ""     m = 1 ubound(myarray(), 2)       scsv = scsv & format(myarray(n, m)) & sdelimiter     next m     scsv = left(scsv, len(scsv) - 1) 'remove last delimiter     print #7, scsv   next n   close #7  'end if  exit sub   errhandler_saveascsv:   close #7

Comments

Post a Comment

Popular posts from this blog

android - Spacing between the stars of a rating bar? -

-
ho can set spacing beween stars? thats ratingbar: ratingbar = (ratingbar) inflater.inflate(r.layout.ratingbar, null); ratingbar.setlayoutparams(new layoutparams(layoutparams.wrap_content, layoutparams.wrap_content)); the layout: <?xml version="1.0" encoding="utf-8"?> <ratingbar xmlns:android="http://schemas.android.com/apk/res/android" style="@style/mystyle" android:layout_alignparentright="true" android:layout_height="19dp" android:layout_width="wrap_content" android:numstars="5"> </ratingbar> the style: <style name="mystyle" parent="@android:style/widget.ratingbar"> <item name="android:progressdrawable">@drawable/android_r2_ratingstar_yellow</item> <item name="android:indeterminatedrawable">@drawable/android_r2_ratingstar_grey</item> </style> thanks, cheers you have
Read more

aspxgridview - Devexpress grid - header filter does not work if column is initially hidden -

-
i'm using devexpress grid , i'm trying 'country' column display header filter properly: <dx:gridviewdatacolumn caption="country" fieldname="countryname" showincustomizationform="true" visible="false"> <settings allowheaderfilter="true"/> </dx:gridviewdatacolumn> if 'country' column set visible='true', header filter displayed should(it shows value option list). however, want 'country' column hidden, available in customization window(like in code above). in case, when column dragged outside customization window , grid , header filter clicked, javascript error encountered: element null element.addeventlistener(eventname, func, true); is known bug? there workarounds? set aspxgridview.settings.showheaderfilterbutton property true resolve problem. the following markup works fine me (i using dxperience 10.1.7): <asp:accessdatasource id="accessda
Read more

c# - How to execute a particular part of code asynchronously in a class -

-
i creating speech recognition engine that's going respond user commands.i have created button enable , disable speech recognition per user convenience.i have used dispose() of speech engine disable speech recoginition.here code private void button1_click(object sender, routedeventargs e) { engineon = !engineon; if (engineon) { speechengine = speech.createspeechengine(); //speech class creates , returns new speech engine. speechengine.audiolevelupdated += new eventhandler<audiolevelupdatedeventargs>(speechengine_audiolevelupdated); // use system's default microphone speechengine.setinputtodefaultaudiodevice(); speechengine.loadgrammar(new dictationgrammar()); // start listening speechengine.recognizeasync(recognizemode.multiple); } else { speechclass.myengine.dispose(); } } but disposal of speech obj
Read more