regex - RunTime Error on VBA Macro -


i working on vba code grab text outlook email , place in excel sheet have set up. using excel 2010. email contains following information:

company: abc company
class period: 2013-10-29 through 2014-10-22

i have set loop go through email , insert company name in column a, first date (2013-10-29) in column b , other date (2014-10-22) in column c. when run code receive error states: run-time error 5: invalid procedure call or argument on below line of code: vtext2 = trim(m.submatches(2))

could please let me know doing wrong. part of code below. let me know if need provide additional information.

stext = olitem.body  set reg1 = createobject("vbscript.regexp")  = 1 3  reg1 select case case 1 .pattern(company\s[:]+\s(\w*\s*\w*\s*\w*\s*\w*\s*\w*\s*\w*\s*\w*\s*\w*\s*\w*\s*)\n)" .global = false case 2 .pattern = "(class period\s*[:]+\s*([\d-\s]*))" .global = false case 3 .pattern = "(through+\s*([\d-\s]*))" .global = false end select  end  if reg1.test(stext)  set m1 = reg1.execute(stext) each m in m1 vtext = trim(m.submatches(1)) vtext2 = trim(m.submatches(2)) vtext3 = trim(m.submatches(3)) next end if next  xlsheet.range("a" & rcount) = vtext xlsheet.range("b" & rcount) = vtext2 xlsheet.range("c" & rcount) = vtext3  xlwb.close 1

the error saying argument gave (the index) invalid submatches collection because exceeds count of items in collection.

remember submatches index starts @ "0". i'm assuming intentionally skipped first item in favor of second through fourth items in collection.

i think expecting adding match collection each time runs through loop. that's not case. new match replacing old match ever have 1 result work @ time.

try instead:

private sub commandbutton1_click()     stext = "company: abc company" & vbnewline & "class period: 2013-10-29 through 2014-10-22" & vbnewline     set reg1 = createobject("vbscript.regexp")      vtext = "missing"     vtext2 = "missing"     vtext3 = "missing"      = 1 3          reg1             select case             case 1                 .pattern = "(company)\w*[:](.*?)\n"                 .global = false             case 2                 .pattern = "(class period\s*[:]+\s*([\d-\s]*))"                 .global = false             case 3                 .pattern = "(through+\s*([\d-\s]*))"                 .global = false             end select          end           if reg1.test(stext)             set m1 = reg1.execute(stext)             each m in m1                 if m.submatches.count > 0                     select case                     case 1                         vtext = trim(m.submatches(1))                     case 2                         vtext2 = trim(m.submatches(1))                     case 3                         vtext3 = trim(m.submatches(1))                     end select                 end if             next         end if          next          xlsheet.range("a" & rcount) = vtext         xlsheet.range("b" & rcount) = vtext2         xlsheet.range("c" & rcount) = vtext3          xlwb.close 1      end sub

note had change company regex work too. original 1 wasn't working me.


Comments

Post a Comment

Popular posts from this blog

powershell Start-Process exit code -1073741502 when used with Credential from a windows service environment -

i'm running strange behavior powershell start-process call. here call: $process = start-process ` "c:\somepath\mybinary.exe" ` -passthru ` -credential $defaultcredential ` -wait ` -workingdirectory "c:\somepath" ` -loaduserprofile if ($process.exitcode -ne 0) { #do } this call return exit code - 1073741502 . after quick search, exit code seems related generic error when program not load required dll (aka. status_dll_init_failed ). when run without -credential $credential program runs correctly. in order isolate problem, manually launched some.exe in prompt target credential , runs smoothly. so problem seems come way start-process cmdlet launch process. i found potential solutions problem tried apply no luck : link , link . would have idea of what's going on here ? edit 1: run proc mon monitoring program activities when launched directly or via powershell script. problem seems occur when loading kernelbase
Read more

twig - Using Twigbridge in a Laravel 5.1 Package -

i'm trying create laravel 5.1 package uses twigbridge instead of .php views. can normal .php views display fine, when try make use of .twig templates i'm met error. possible use twigbridge templates when creating views laravel package or pretty stuck blade , php ? edit 1: loading twig template without extending works. it's when start using {% extends 'file' %} error comes out. i error error loading /virtual/laravel/packages/username/mypackage/src/views/sample.twig: template "templates.master" not defined () in "/virtual/laravel/packages/username/mypackage/src/views/sample.twig" @ line 1. my folders username |_ mypackage |_ src |_ controllers - samplecontroller.php |_ views |_ templates - master.twig - sample.twig twig template sample.twig {% extends 'templates.master' %} {% block content %} {{ parent()
Read more

c# - LINQ join Entities from HashSet's, Join vs Dictionary vs HashSet performance -

i have hashset's each stores t, have written test application compares different relation algorithms can think of, i'm not pleased results getting. does there exist more efficient ways of achieving object relations, once testing? using system; using system.collections.generic; using system.linq; using system.text; using system.threading.tasks; using system.diagnostics; namespace linqtests { class program { static void main(string[] args) { hashset<user> usertable = new hashset<user>(); hashset<userproperty> userpropertytable = new hashset<userproperty>(); #region lets create dummy data. console.writeline("please wait while creating dummy data, can take while..."); console.writeline(""); int rows = 1000000; for(int x = 0; x < rows; x++) { random rnd = new random(); // ad
Read more