वीबीए

Question

का उपयोग कर वाक्य के मामले में कनवर्ट करना मैं Google पर पेज के बाद पृष्ठ के माध्यम से ट्रैवल कर रहा हूं और यहां इस प्रतीत होता है कि यह सरल अनुरोध का समाधान ढूंढ रहा है, लेकिन इसका कोई फायदा नहीं हुआ। क्या vba का उपयोग कर स्ट्रिंग को वाक्य केस में बदलने के लिए किसी को विश्वसनीय तरीका पता है?

आदर्श रूप से मैं इसे एक फ़ंक्शन के बजाय उप में बनाउंगा, इसलिए जीयूआई से कॉल करना आसान है।

संदर्भ के लिए, मैं चाहता हूँ होगा:

यहाँ एक लंबे, बदसूरत अपरकेस वाक्य है। कृपया मुझे तुरंत आओ।

बनने के लिए:

यहाँ एक लंबे, बदसूरत अपरकेस वाक्य है। कृपया मुझे तुरंत संशोधित करें।

शीर्षक केस में कनवर्ट करना मुझे बेहद सरल मिला (क्योंकि इसके लिए एक अंतर्निहित कार्य है) लेकिन वाक्य के मामले में कनवर्ट करना वास्तव में वास्तव में मुश्किल साबित हुआ है।

मैं निम्न विधियों में से कुछ की कोशिश की लेकिन हर मोड़ पर त्रुटियों के साथ आए हैं:

• http://www.vbforums.com/showthread.php?t=536912
• http://vbamacros.blogspot.com/2007/09/sentence-case.html

मैं इस काम करने के लिए मिल सकता है?

Answer 1

आप और अधिक कुशलता से पार्स

कुछ इस तरह के लिए इस

Sub Tested() 
    Call ProperCaps("HERE IS A LONG, UGLY UPPERCASE SENTENCE. PLEASE AMEND ME IMMEDIATELY." & vbCrLf & "next line! now") 
End Sub 

Function ProperCaps(strIn As String) As String 
    Dim objRegex As Object 
    Dim objRegMC As Object 
    Dim objRegM As Object 
    Set objRegex = CreateObject("vbscript.regexp") 
    strIn = LCase$(strIn) 
    With objRegex 
     .Global = True 
     .ignoreCase = True 
     .Pattern = "(^|[\.\?\!\r\t]\s?)([a-z])" 
     If .test(strIn) Then 
      Set objRegMC = .Execute(strIn) 
      For Each objRegM In objRegMC 
       Mid$(strIn, objRegM.firstindex + 1, objRegM.Length) = UCase$(objRegM) 
      Next 
     End If 
     MsgBox strIn 
    End With 
End Function 

Answer 2

धन्यवाद चलाने के लिए एक रेगुलर एक्सप्रेशन इस्तेमाल कर सकते हैं, कोड की उपयोगी बिट। वीबी के पास उचित मामला क्यों है और वाक्य का मामला बहुत अजीब नहीं है। मैंने इसे अपने उद्देश्य के लिए tweaked किया है, क्योंकि मूल के सामने एक जगह है, तो मूल पहले पत्र को कैपिटल नहीं करेगा, उम्मीद है कि आप मुझे कुछ बदलावों को साझा करने में कोई फर्क नहीं पड़ता।

वाक्य के प्रारंभ या समाप्ति पर किसी भी अवांछित रिक्त स्थान को हटाने के लिए, मैंने उपरोक्त से एक और फ़ंक्शन जोड़ा है जिसे ऊपर से कहा जाता है।

Public Function DblTrim(vString As String) As String 
Dim tempString As String 
tempString = vString 

Do Until Left(tempString, 1) <> " " 
    tempString = LTrim(tempString) 
Loop 
Do Until Right(tempString, 1) <> " " 
    tempString = RTrim(tempString) 
Loop 

DblTrim = tempString 

End Function 

Public Function ProperCaps(strIn As String) As String 
    Dim objRegex As Object 
    Dim objRegMC As Object 
    Dim objRegM As Object 
    Set objRegex = CreateObject("vbscript.regexp") 
    strIn = DblTrim(strIn) 

    With objRegex 
     .Global = True 
     .ignoreCase = True 
     .Pattern = "(^|[\.\?\!\r\t]\s?)([a-z])" 
     If .test(strIn) Then 
      Set objRegMC = .Execute(strIn) 
      For Each objRegM In objRegMC 
       Mid$(strIn, objRegM.firstindex + 1, objRegM.Length) = UCase$(objRegM) 
      Next 
     End If 
     ProperCaps = strIn 
    End With 
End Function 

आप ProperCaps (Yourstring) कॉल कर सकते हैं हटाया सभी रिक्त स्थान के साथ, एक राजधानी के रूप में पहले अक्षर के साथ वापस की सजा पाने के लिए।

आप स्ट्रिंग के आगे और पीछे (वाक्य केस को बदलने के बिना) सभी रिक्त स्थान को हटाने के लिए DblTrim (Yourstring) का उपयोग भी कर सकते हैं, भले ही कितने रिक्त स्थान हैं।