यह ट्यूटोरियल प्रदर्शित करेगा कि दाईं ओर से टेक्स्ट खोजने के लिए InStrRev VBA फ़ंक्शन का उपयोग कैसे करें…
InStrRev फंक्शन
VBA InStrRev फ़ंक्शन एक स्ट्रिंग के अंदर एक सबस्ट्रिंग की स्थिति की खोज करता है। यह बाएं से दाएं की गिनती की स्थिति देता है लेकिन यह स्ट्रिंग के अंत से शुरुआत तक खोज करता है।
VBA InStrRev सबस्ट्रिंग खोजें
VBA InStrRev फ़ंक्शन का उपयोग स्ट्रिंग के अंदर एक सबस्ट्रिंग की स्थिति का पता लगाने के लिए किया जा सकता है।
| 12345678 | उप InStrRevExample_1()MsgBox InStrRev ("ABCABC", "C") 'परिणाम है: 6MsgBox InStrRev ("ABCABC", "BC") 'परिणाम है: 5MsgBox InStrRev ("ला ला लैंड", "एल") 'परिणाम है: 7MsgBox InStrRev ("ला ला लैंड", "ला") 'परिणाम है: 7MsgBox InStrRev ("ला ला लैंड", "ला") 'परिणाम है: 4MsgBox InStrRev ("ला ला लैंड", "एम") 'परिणाम है: 0अंत उप |
VBA InStrRev आरंभिक स्थिति
VBA InStrRev फ़ंक्शन बाएं से दाएं गिने गए नियत स्थान से सबस्ट्रिंग की खोज शुरू कर सकता है।
| 12345678 | उप InStrRevExample_2()MsgBox InStrRev ("ला ला लैंड", "एल") 'परिणाम है: 7MsgBox InStrRev ("ला ला लैंड", "एल", 8) 'परिणाम है: 7MsgBox InStrRev ("ला ला लैंड", "एल", 7) 'परिणाम है: 7MsgBox InStrRev ("ला ला लैंड", "एल", 6) 'परिणाम है: 4MsgBox InStrRev ("ला ला लैंड", "एल", 4) 'परिणाम है: 4MsgBox InStrRev ("ला ला लैंड", "एल", 3) 'परिणाम है: 1अंत उप |
वीबीए प्रोग्रामिंग | कोड जेनरेटर आपके लिए काम करता है!
VBA InStrRev केस सेंसिटिविटी
डिफ़ॉल्ट रूप से VBA InStrRev फ़ंक्शन केस संवेदी होता है। आप वैकल्पिक पैरामीटर का उपयोग करके उस व्यवहार को केस असंवेदनशील में बदल सकते हैं। उस स्थिति में, आपको खोज की आरंभिक स्थिति को भी परिभाषित करना होगा।
| 123456789 | उप InStrRevExample_3 ()'InstrRev डिफ़ॉल्ट रूप से केस संवेदी हैMsgBox InStrRev ("ला ला लैंड", "एल") 'परिणाम है: 7MsgBox InStrRev ("ला ला लैंड", "एल") 'परिणाम है: 0'InstrRev केस असंवेदनशील खोज कर सकता है'MsgBox InStrRev ("ला ला लैंड", "एल", -1, vbTextCompare) 'परिणाम है: 7MsgBox InStrRev ("ला ला लैंड", "एल", -1, vbTextCompare) 'परिणाम है: 7अंत उप |
VBA InStrRev अंतिम स्थान
VBA InStrRev फ़ंक्शन एक स्ट्रिंग में अंतिम स्थान की स्थिति का पता लगा सकता है।
| 123456789 | उप InStrRevExample_4 ()MsgBox InStrRev ("ला ला लैंड", "")'परिणाम है: 6MsgBox InStrRev ("लियोनार्डो दा विंची", "")'परिणाम है: 12MsgBox InStrRev ("बल आपके साथ रहे", "")'परिणाम है: 22अंत उप |
VBA InStrRev सेकेंड टू लास्ट स्पेस
VBA InStrRev फ़ंक्शन एक स्ट्रिंग में दूसरे से अंतिम स्थान की स्थिति का पता लगा सकता है। हम एक स्ट्रिंग में अंतिम स्थान खोजने के लिए VBA InStrRev फ़ंक्शन का उपयोग कर सकते हैं और फिर हम दूसरे से अंतिम स्थान की स्थिति खोजने के लिए एक नए शुरुआती बिंदु के साथ फिर से InStrRev का उपयोग कर सकते हैं
| 12345678910111213 | उप InStrRevExample_5 ()पूर्णांक के रूप में मंद LastPosLastPos = InStrRev ("बल आपके साथ हो सकता है", "")MsgBox LastPos 'परिणाम है: 22Dim SecondLastPos as IntegerSecondLastPos = InStrRev ("बल आपके साथ हो सकता है", " ", LastPos - 1)MsgBox SecondLastPos 'परिणाम है: 17'InStrRev ने अंतिम स्थान से ठीक पहले अंतरिक्ष की खोज शुरू की'यह दूसरी से आखिरी जगह ढूंढेगा क्योंकि यह दाएं से बाएं खोजता है'अंत उप |
VBA कोड उदाहरण खोज कर थक गए हैं? ऑटोमैक्रो का प्रयास करें!
VBA InStrRev रिटर्न फ़ाइल नाम
VBA InStrRev फ़ंक्शन का उपयोग पथ और फ़ाइल नाम वाले स्ट्रिंग से फ़ाइल नाम को आसानी से वापस करने के लिए किया जा सकता है। हम VBA लेन और VBA राइट फ़ंक्शन के साथ InStrRev फ़ंक्शन का उपयोग करेंगे।
VBA लेन फ़ंक्शन एक स्ट्रिंग की लंबाई देता है:
| 1 | MsgBox लेन ("XBCX") 'परिणाम है: 4 |
VBA राइट फ़ंक्शन एक स्ट्रिंग के अंत से n वर्ण देता है:
| 1 | MsgBox राइट ("एबीसीडीई", 2) 'परिणाम है: डीई |
हम पथनाम में "\" की अंतिम घटना को खोजने के लिए InStrRev फ़ंक्शन का उपयोग कर सकते हैं और फ़ाइल नाम की लंबाई की गणना करने के लिए लेन फ़ंक्शन का उपयोग कर सकते हैं। फिर फ़ाइल नाम निकाल सकते हैं।
| 12345678910111213141516171819202122232425262728 | उप InStrRevExample_4 ()स्ट्रिंग के रूप में मंद PathExPathEx = "सी:\MyFiles\Other\UsefulFile.pdf"मंद फ़ाइल नामपूर्व स्ट्रिंग के रूप मेंFilenameEx = राइट (PathEx, लेन (PathEx) - InStrRev (PathEx, "\"))MsgBox FilenameEx 'परिणाम है: UsefulFile.pdf'आइए इस कोड को तोड़ देंMsgBox लेन (PathEx)'यह पथ नाम की लंबाई है (31)MsgBox InStrRev (PathEx, "\")'यह स्ट्रिंग में अंतिम \ की स्थिति हैMsgBox लेन (PathEx) - InStrRev (PathEx, "\")'यह फ़ाइल नाम की लंबाई है (14)'पूर्ण लंबाई और स्ट्रिंग में अंतिम \ की स्थिति के बीच का अंतर'(31-27=14)'अब हम फ़ाइल नाम की लंबाई जानते हैं और निश्चित रूप से यह अंत में है'इस स्थिति के लिए सही कार्य आदर्श है'FilenameEx = राइट (PathEx, लेन (PathEx) - InStrRev (PathEx, "\"))अंत उप |
