regex - VBA macro in Excel 2007. I want to use Regular Expressions in Excel VBA to replace "He" with "She", "he" with "she", "Him" with "her" - 


sub test()   dim strtest string   dim strtemp string    strtest = sheet1.cells(1, 1).value   msgbox re6(strtest)   sheet1.cells(2, 1).value = re6(strtest) end sub  function re6(strdata string)          dim re object 'rematches object      dim p string, string      dim q string, b string      dim r string, c string      dim s string, d string      dim t string, e string      dim u string, f string      dim v string, g string      dim w string, h string      dim n integer      set re = createobject("vbscript.regexp")       p = "(?:^|\b)he"     = "she"      q = "(?:^|\b)he"     b = "she"      r = "(?:^|\b)him"     c = "her"      s = "(?:^|\b)him"     d = "her"      t = "(?:^|\b)himself"     e = "herself"      u = "(?:^|\b)himself"     f = "herself"      v = "(?:^|\b)his"     g = "her"      w = "(?:^|\b)his"     h = "her"  'this section replaces "he" with"she"     re         .multiline = true         .global = true         .ignorecase = false         .pattern = p        end     re6 = re.replace(strdata, a)  'this section replaces "he" "she"       re         .multiline = true         .global = true         .ignorecase = false      .pattern = q     end     re6 = re.replace(strdata, b) ' 'this section replaces "him" "her"    re         .multiline = true         .global = true         .ignorecase = false         .pattern = r     end     re6 = re.replace(strdata, c)   'this section replaces "him" "her"    re         .multiline = true         .global = true         .ignorecase = false         .pattern = s     end     re6 = re.replace(strdata, d)  'this section replaces "himself" "herself"    re         .multiline = true         .global = true         .ignorecase = false         .pattern = t     end     re6 = re.replace(strdata, e)  'this section replaces "himself" "herself"    re         .multiline = true         .global = true         .ignorecase = false         .pattern = u     end     re6 = re.replace(strdata, f)  'this section replaces "his" "her"    re         .multiline = true         .global = true         .ignorecase = false         .pattern = v     end     re6 = re.replace(strdata, g)  'this section replaces "his" "her"    re         .multiline = true         .global = true         .ignorecase = false         .pattern = w '     re6 = re.replace(strdata, h)     end  end function

when run code on piece of text:

james has settled effortlessly in new class. has shown seriousness , demonstrated traits of serious student in first half of term. optimistic positive attitude towards work, if not relent, yield positive dividends. however, james needs respond positively prompts on getting himself better organised in school. wish him, him best in second half of term.

i "his" replaced "her". if comment out last bit "him" replaced "her". welcome.

the issue repeatedly replacement on strdata, opposed result of each replacement; is, take original string, replace "he" "she", , store in re6. take original string again, replace "he" "she", , store in re6, overwriting first replacement, , on , on.. why see results of last replacement.

to fix it, leave first replacement 

re6 = re.replace(strdata, a)

but change of other replacements 

re6 = re.replace(re6, b) <-- b-h

this give desired output.


Comments

Post a Comment

Popular posts from this blog

image - ClassNotFoundException when add a prebuilt apk into system.img in android -

i'm in trouble add prebuilt apk system.img based taiwan mtk android phone platform, when push apk onto device,after reboot phone,the apk can installed succecessfully,but if add apk alps/out/target/product/$prj/system/app or vendor/mediatek/$prj/artifacts/out/target/product/$prj/system/app ,and produce system.img,the apk can't installed normally,the logcat say: a.lang.runtimeexception: unable instantiate activity componentinfo{com.sec.android.widgetapp.ap.hero.accuweather.widget/com.sec.android.widgetapp.ap.hero.accuweather.widget.weatherclock}: java.lang.classnotfoundexception: com.sec.android.widgetapp.ap.hero.accuweather.widget.weatherclock. can tell me what's problem ? when package manager installs apps part of system partition different installing apps on data partition. looks app using libraries somewhere else. when install on data lib directory created in apps data directory , symlinked /data/app-lib/. when apps installed on system it's expecte...
Read more

I need to import mysql 5.1 to 5.5? -

i have mysql 5.1 database , need import localhost running 5.5. how import 5.5 or downgrade mysql? install phpmyadmin 5.1 os: http://www.wikihow.com/install-phpmyadmin-on-your-windows-pc or https://www.digitalocean.com/community/articles/how-to-install-and-secure-phpmyadmin-on-ubuntu-12-04 then login, click on database, hit export, , export in sql format (quick fine). import .sql file 5.5 server (after installing phpmyadmin) logging in clicking database , hit import. hope helps!
Read more

Java, Hibernate, MySQL - store UTC date-time -

i saw here on few related questions (like this one , of course, this one )... essentially, want store date-time utc, , let application user choose time zone wants display date-time in. since seems date-time fields affected underlying jdbc driver, wonder if acceptable way go storing utc date-time: set both mysql , application server machine utc time zone (no need separate) both mysql , jvm should pick underlying system time settings (if not instructed otherwise) use datetime table columns on mysql side use java.util.date corresponding mapping on hibernate side (i guess java.sql.timestamp used too) let application worry interpreting date-time fields - i.e. let user choose preferred time zone is ok? edit clarify - here meant refer timestamps created strictly on server (e.g.date-time of record creation). application server instantiates date objects (new date() equals current date-time on server, , time zone agnostic). if client user wants supply date searching/filte...
Read more