यह ट्यूटोरियल दिखाएगा कि स्ट्रिंग की लंबाई प्राप्त करने के लिए लेन वीबीए फ़ंक्शन का उपयोग कैसे करें।
लेन फंक्शन
VBA लेन फ़ंक्शन एक निर्दिष्ट स्ट्रिंग की लंबाई देता है।
वीबीए लेन काउंट कैरेक्टर
VBA लेन फ़ंक्शन एक स्ट्रिंग में वर्णों की गणना करता है।
| 1234567891011121314151617 | उप लेनउदाहरण_1()MsgBox लेन ("12345") 'परिणाम है: 5MsgBox लेन ("12") 'परिणाम है: 2MsgBox लेन ("1") 'परिणाम है: 1MsgBox लेन (" ") 'परिणाम है: 1'वहां एक स्पेस कैरेक्टर है।MsgBox लेन ("") 'परिणाम है: 0MsgBox Len("AB Cd") 'परिणाम है: 5अंत उप |
वीबीए लेन स्ट्रिंग्स या वेरिएंट
VBA लेन फ़ंक्शन स्ट्रिंग्स या वेरिएंट के रूप में घोषित चर में वर्णों की संख्या की गणना कर सकता है। असल में, वीबीए लेन एक प्रकार के रूप में एक स्ट्रिंग के रूप में व्यवहार करेगा। यदि VBA लेन का उपयोग पूर्णांक, लंबे, एकल या दोहरे के साथ किया जाता है तो VBA लेन चर को संग्रहीत करने के लिए आवश्यक बाइट्स की संख्या की गणना करने जा रहा है।
| 123456789101112131415161718192021222324252627282930313233 | उप लेनउदाहरण_2()मंद VarEx1 स्ट्रिंग के रूप मेंVarEx1 = 12345MsgBox लेन (VarEx1) 'परिणाम है: 5'लेन चर में वर्णों की संख्या गिन रहा है'Dim VarEx2 वैरिएंट के रूप मेंVarEx2 = 12345MsgBox लेन (VarEx2) 'परिणाम है: 5'लेन चर में वर्णों की संख्या गिन रहा है'मंद VarEx3 पूर्णांक के रूप मेंVarEx3 = 12345MsgBox Len(VarEx3) 'परिणाम है: 2'लेन चर को संग्रहीत करने के लिए उपयोग किए जाने वाले बाइट्स की संख्या गिन रहा हैमंद VarEx4 लंबे समय तकVarEx4 = 12345MsgBox लेन (VarEx4) 'परिणाम है: 2'लेन चर को संग्रहीत करने के लिए उपयोग किए जाने वाले बाइट्स की संख्या गिन रहा हैमंद VarEx5 सिंगल के रूप मेंVarEx5 = 12345MsgBox लेन (VarEx5) 'परिणाम है: 2'लेन चर को संग्रहीत करने के लिए उपयोग किए जाने वाले बाइट्स की संख्या की गणना कर रहा हैमंद VarEx6 डबल के रूप मेंVarEx6 = 12345MsgBox लेन (VarEx6) 'परिणाम है: 2'लेन चर को संग्रहीत करने के लिए उपयोग किए जाने वाले बाइट्स की संख्या गिन रहा हैअंत उप |
वीबीए लेन एक चरित्र की घटनाओं की गणना करता है
वीबीए लेन फ़ंक्शन का उपयोग वीबीए रिप्लेसमेंट फ़ंक्शन के साथ किया जा सकता है ताकि यह गिन सके कि एक स्ट्रिंग में कितनी बार एक वर्ण पाया जाता है।
VBA रिप्लेस फंक्शन एक सबस्ट्रिंग को टेक्स्ट में किसी अन्य सबस्ट्रिंग से बदल सकता है:
| 1 | MsgBox बदलें ("XBCX", "X", "7") 'परिणाम है: "7BC7" |
हम उन वर्णों को हटाने के लिए बदलें का उपयोग कर सकते हैं जिन्हें हम "" से गिनना चाहते हैं और फिर प्रतिस्थापन से पहले और बाद में लंबाई में अंतर पाते हैं।
| 1234567891011121314 | उप लेनउदाहरण_3 ()स्ट्रिंग के रूप में मंद स्ट्रेक्स 'एक स्ट्रिंग चर परिभाषित करें'स्ट्रेक्स = "जैक, जॉन, जिम, जॉर्डन"MsgBox Len(StrEx) - Len(Replace(StrEx, ",", "")) 'परिणाम है: 3'उपरोक्त कोड को तोड़ना'MsgBox लेन (StrEx) 'परिणाम है: 20MsgBox बदलें (StrEx, ",", "") 'परिणाम है: "JackJohnJimJordan"MsgBox Len(Replace(StrEx, ",", "")) 'परिणाम है: 17MsgBox Len(StrEx) - Len(Replace(StrEx, ",", "")) 'परिणाम है: 20-17=3अंत उप |
VBA लेन एक सबस्ट्रिंग की घटनाओं की गणना करता है
VBA लेन फ़ंक्शन का उपयोग VBA रिप्लेसमेंट फ़ंक्शन के साथ किया जा सकता है ताकि यह गिन सके कि स्ट्रिंग में कितनी बार सबस्ट्रिंग पाया जाता है।
VBA रिप्लेस फंक्शन एक सबस्ट्रिंग को टेक्स्ट में किसी अन्य सबस्ट्रिंग से बदल सकता है:
| 1 | MsgBox बदलें ("XB cX", "X", "7") 'परिणाम है: "7B c7" |
हम प्रतिस्थापन का उपयोग उन सबस्ट्रिंग को हटाने के लिए कर सकते हैं जिन्हें हम "" से गिनना चाहते हैं और फिर प्रतिस्थापन से पहले और बाद में लंबाई में अंतर पाते हैं। अंत में, हमें अंतर को हमारे द्वारा प्रतिस्थापित प्रतिस्थापन की लंबाई से विभाजित करने की आवश्यकता है।
| 12345678910111213141516171819 | उप लेनउदाहरण_4 ()स्ट्रिंग के रूप में मंद स्ट्रेक्स 'एक स्ट्रिंग चर परिभाषित करें'स्ट्रेक्स = "जैक, जॉन, जिम, जॉर्डन"स्ट्रिंग के रूप में मंद SubStr 'एक सबस्ट्रिंग चर परिभाषित करें'सबस्ट्र = "," "'हम पाएंगे कि कितनी बार SubStr StrEx के अंदर पाया जाता है'MsgBox (Len(StrEx) - Len(Replace(StrEx, SubStr, ""))) / Len(SubStr) 'परिणाम है: 3'उपरोक्त कोड को तोड़नाMsgBox लेन (StrEx) 'परिणाम है: 23MsgBox बदलें (StrEx, SubStr, "") 'परिणाम है: "JackJohnJimJordan"MsgBox Len(Replace(StrEx, SubStr, "")) 'परिणाम है: 17MsgBox Len(StrEx) - Len(Replace(StrEx, SubStr, "")) 'परिणाम है: 23-17=6MsgBox (लेन(StrEx) - लेन(बदलें(StrEx, SubStr, "")))/लेन(SubStr)'परिणाम है: (23-17)/2=3अंत उप |
