Excel VBA Sentence Case Funtion Needs Fine Tuning -


below function built others changes text sentence case (first letter of each sentence capitalized). function works nicely except doesn't capitalize first letter of first word. issue if sentence entered in caps, function nothing. i'm looking assistance in tweaking function correct these issues. 

option explicit  function propercaps(strin string) string  dim objregex object dim objregmc object dim objregm object  set objregex = createobject("vbscript.regexp") strin = lcase$(strin)  objregex     .global = true     .ignorecase = true     .pattern = "(^|[\.\?\!\r\t]\s?)([a-z])"      if .test(strin)         set objregmc = .execute(strin)          each objregm in objregmc             mid$(strin, objregm.firstindex + 1, objregm.length) = ucase$(objregm)         next     end if end  propercaps = strin end function

thanks, gary

i renamed function sentencecase() , made few more adjustments:

public function sentencecase(byval str string) string     dim regex object, regexm object, indx object, indxs object     set regex = createobject("vbscript.regexp")     str = replace$(str, vbnullchar, vblf)     str = replace$(str, vbback, vblf)     str = ltrim$(lcase$(str))     regex         .ignorecase = true         .multiline = true         .global = true         .pattern = "(^|[\n\f\r\t\v\.\!\?]\s*)(\w)"         if .test(str)             set indxs = .execute(str)             each indx in indxs                 mid$(str, indx.firstindex + 1, indx.length) = ucase$(indx)             next         end if     end     sentencecase = str end function

this tested with:

msgbox sentencecase(" upper case sentence." & _                     vbcrlf & "next line!next sentence" & _                     vbcr & "cr ! lower case" & _                     vblf & "lf .new sentence" & _                     vbnullchar & " null?null char" & _                     vbnullstring & "nullstring  spaces" & _                     vbtab & "tab char.ttt" & _                     vbback & "back?  char" & _                     vbformfeed & "ff  ff words" & _                     vbverticaltab & "vertical tab.| lower .case words")

results:

test 1

test 2

test 3

you can find more details here: microsoft - regular expressions


-

Comments

Post a Comment

Popular posts from this blog

OpenCV OpenCL: Convert Mat to Bitmap in JNI Layer for Android -

there several posts converting mat bitmap using utils.mattobitmap() function. i'm assuming function can called in java layer after importing utils class. i want transfer data memory address pointed uint32_t* bmpcontent; in code below. jniexport void jnicall java_com_nod_nodcv_nodcvactivity_runfilter( jnienv *env, jclass clazz, jobject outbmp, jbytearray indata, jint width, jint height, jint choice, jint filter) { int outsz = width*height; int insz = outsz + outsz/2; androidbitmapinfo bmpinfo; if (androidbitmap_getinfo(env, outbmp, &bmpinfo) < 0) { throwjavaexception(env,"gaussianblur","error retrieving bitmap meta data"); return; } if (bmpinfo.format != android_bitmap_format_rgba_8888) { throwjavaexception(env,"gaussianblur","expecting rgba_8888 format"); return; } uint32_t* bmpcontent; if (androidbitmap_lockpixels(env, outbmp,(void**)&bmpcontent)...
Read more

android - org.xmlpull.v1.XmlPullParserException: expected: START_TAG {http://schemas.xmlsoap.org/soap/envelope/}Envelope -

i trying hit soap api in application login purpose , getting above mentioned error , can 1 tell me going wrong , first time soap apis. here code hit soap :- vector<object> args = new vector<object>(); hashtable<string, object> hashtable = new hashtable<string, object>(); hashtable.put("email", "mss.siddhart28@gmail.com"); hashtable.put("password", "siddharth"); args.add(hashtable); soapserializationenvelope envelope = new soapserializationenvelope( soapenvelope.ver11); envelope.dotnet = true; envelope.xsd = soapserializationenvelope.xsd; envelope.enc = soapserializationenvelope.enc; (new marshalhashtable()).register(envelope); httptransportse androidhttptransport = new httptransportse( "http://tempuri.org/", 15000); androidhttptransport.debug = true; string result = ""; try { soapobject request = new soapobject("http:...
Read more

python - How to remove the Xframe Options header in django? -

i have made page has iframe . inside iframe want show multiple different links article facebook, or news, or youtube video or other possible url. but, due xframe header, unable so. referred following link: https://docs.djangoproject.com/en/1.8/ref/clickjacking/ , django xframeoptionsmiddleware (x-frame-options) - allow iframe client ip but didn't help. my settings.py file's middleware_classes is: middleware_classes = ( 'django.contrib.sessions.middleware.sessionmiddleware', 'django.middleware.common.commonmiddleware', 'django.middleware.csrf.csrfviewmiddleware', 'django.contrib.auth.middleware.authenticationmiddleware', 'django.contrib.auth.middleware.sessionauthenticationmiddleware', 'django.contrib.messages.middleware.messagemiddleware', 'django.middleware.clickjacking.xframeoptionsmiddleware', ) from http://django-secure.readthedocs.org/en/latest/middleware.html , found using ...
Read more