वीबीए मिड फंक्शन - स्ट्रिंग के मध्य से वर्ण निकालें

यह ट्यूटोरियल दिखाएगा कि टेक्स्ट स्ट्रिंग के मध्य से वर्ण निकालने के लिए मध्य वीबीए फ़ंक्शन का उपयोग कैसे करें।

मध्य समारोह

मध्य समारोह एन अक्षर प्राप्त करें

VBA मिड फ़ंक्शन स्थिति m से शुरू होने वाली स्ट्रिंग से n वर्ण लौटाता है:

123456789

उप मध्यउदाहरण_1()MsgBox Mid("ABCDEFGHI", 4, 1) 'परिणाम है: "D"MsgBox Mid("ABCDEFGHI", 4, 2) 'परिणाम है: "DE"MsgBox Mid("ABCDEFGHI", 4, 50) 'परिणाम है: "DEFGHI"MsgBox Mid("ABCDEFG hI", 6, 1) 'परिणाम है: "F"MsgBox Mid("ABCDEFG hI", 6, 2) 'परिणाम है: "FG"MsgBox Mid("ABCDEFG hI", 6, 4) 'परिणाम है: "FG h"अंत उप

मध्य समारोह एक चर में n वर्ण प्राप्त करें

जैसा कि ऊपर दिखाया गया है, आप केवल उद्धरण चिह्नों से घिरे पाठ को दर्ज करके एक स्ट्रिंग को परिभाषित कर सकते हैं। लेकिन MID फंक्शन स्ट्रिंग वेरिएबल्स के साथ भी काम करेगा। ये उदाहरण स्थिति m से शुरू होने वाली स्ट्रिंग से n वर्ण निकालेंगे।

12345678

उप MidExample_2()स्ट्रिंग के रूप में मंद स्ट्रेक्स 'एक स्ट्रिंग चर परिभाषित करें'स्ट्रेक्स = "एबीसीडीईएफजीएचआई"MsgBox Mid(StrEx, 2, 1) 'परिणाम है: "बी"MsgBox Mid(StrEx, 2, 2) 'परिणाम है: "BC"MsgBox Mid(StrEx, 2, 50) 'परिणाम है: "BCDEFGHI"अंत उप

मिड फंक्शन सेल से एन कैरेक्टर प्राप्त करें

स्ट्रिंग्स को वीबीए कोड में परिभाषित किया जा सकता है लेकिन आप कोशिकाओं से मूल्यों का भी उपयोग कर सकते हैं। सेल के मान को पढ़ें, इसे एक स्ट्रिंग वेरिएबल में रखें, और उस वर्कशीट सेल मान से n अक्षर निकालें जो स्थिति m से शुरू होता है।

1234567891011

उप MidExample_3 ()स्ट्रिंग के रूप में मंद स्ट्रेक्स 'एक स्ट्रिंग चर परिभाषित करें''वर्कशीट शीट1 में सेल A1 का मान पढ़ें'स्ट्रेक्स = यह वर्कबुक। वर्कशीट ("शीट 1")। रेंज ("ए 1")। वैल्यू'इस उदाहरण के लिए सेल A1 का मान है "बल आपके साथ हो सकता है"MsgBox Mid(StrEx, 4, 6) 'परिणाम है: "द F" (शुरुआत में स्पेस नोट करें)MsgBox Mid(StrEx, 2, 8) 'परिणाम है: "ए द एफ"MsgBox Mid(StrEx, 3, 4) 'परिणाम है: "y th"अंत उप

मिड फंक्शन एन कैरेक्टर बदलें

ऊपर के उदाहरणों में, मिड फ़ंक्शन ने मूल स्ट्रिंग को नहीं बदला। इसने मूल स्ट्रिंग को बरकरार रखते हुए इसका एक हिस्सा लौटा दिया। एक स्ट्रिंग में वर्णों को बदलने के लिए मध्य फ़ंक्शन का उपयोग किया जा सकता है।

12345678910111213141516171819202122

उप MidExample_4 ()स्ट्रिंग के रूप में मंद स्ट्रेक्स 'एक स्ट्रिंग चर परिभाषित करें'उप MidExample_4 ()स्ट्रिंग के रूप में मंद स्ट्रेक्स 'एक स्ट्रिंग चर परिभाषित करें'StrEx = "बल आपके साथ हो सकता है"मिड (स्ट्रेक्स, 5, 1) = "वीडब्ल्यूएक्सवाईजेड"MsgBox StrEx 'परिणाम है: "मई वे हॉर्स आपके साथ हो"'मिड फंक्शन को स्थिति 5 मिली और मूल स्ट्रिंग में 1 वर्ण को बदल दिया गया'StrEx = "बल आपके साथ हो सकता है"मिड (स्ट्रेक्स, 5, 3) = "वीडब्ल्यूएक्सवाईजेड"MsgBox StrEx 'परिणाम है: "VWX Horce आपके साथ हो सकता है"'मिड फंक्शन को स्थिति 5 मिली और मूल स्ट्रिंग में 3 वर्णों को बदल दिया गया'StrEx = "बल आपके साथ हो सकता है"मिड (स्ट्रेक्स, 5, 8) = "वीडब्ल्यूएक्सवाईजेड"MsgBox StrEx 'परिणाम है: "VWXYZorce आपके साथ हो सकता है"'मिड फंक्शन ने स्थिति 5 पाई और 8 वर्णों को बदलने की कोशिश की।''VWXYZ'' में केवल 5 वर्ण हैं, इसलिए केवल 5 वर्ण बदले गए।अंत उप

मिड फंक्शन एक वाक्यांश से दूसरा शब्द निकालें

हम टेक्स्ट में दूसरा शब्द प्राप्त करने के लिए वीबीए इंस्ट्र फ़ंक्शन के साथ वीबीए मिड फ़ंक्शन का उपयोग कर सकते हैं।

VBA InStr फ़ंक्शन टेक्स्ट के अंदर किसी वर्ण की स्थिति लौटा सकता है।

1	InStr ("दो शब्द", " ") 'परिणाम 4 है

हम पहली जगह खोजने के लिए InStr का उपयोग कर सकते हैं, फिर हम टेक्स्ट में दूसरी जगह खोजने के लिए पहली जगह के बाद खोज शुरू करने के लिए फिर से InStr का उपयोग कर सकते हैं। अंत में, हम शब्द को निकालने के लिए मिड फ़ंक्शन का उपयोग कर सकते हैं क्योंकि हम दूसरे शब्द की शुरुआती स्थिति और इसकी लंबाई (दो रिक्त स्थान की स्थिति के बीच का अंतर) जानते हैं।

12345678910111213141516171819202122232425

उप MidExample_5 ()स्ट्रिंग के रूप में मंद स्ट्रेक्स 'एक स्ट्रिंग चर परिभाषित करें'पूर्णांक के रूप में मंद StartPosपूर्णांक के रूप में मंद एंडपोसडिम सेकेंडवर्ड स्ट्रिंग के रूप मेंStrEx = "जेम्स अर्ल जोन्स एक अभिनेता हैं"StartPos = InStr (StrEx, "")'परिणाम 6' है'पहले स्थान की स्थिति का पता लगाएं'EndPos = InStr (StartPos + 1, StrEx, "")'परिणाम 11 है''पहले स्थान के बाद खोज शुरू करके दूसरे स्थान की स्थिति का पता लगाएंसेकेंडवर्ड = मिड (StrEx, StartPos + 1, EndPos - StartPos - 1)'मध्य पहले स्थान के बाद शुरू होने वाले वर्णों को निकालता है (StartPos +1)'मध्य दूसरे शब्द की लंबाई का भी उपयोग करता है।'यह रिक्त स्थान की स्थिति -1' के बीच का अंतर हैMsgBox दूसरा शब्द'परिणाम अर्ली है'अंत उप