वीबीए के साथ टेक्स्ट की एक स्ट्रिंग को उलट दें
नीचे दिया गया वीबीए रूटीन उपयोगकर्ता को एक स्ट्रिंग में प्रवेश करने की अनुमति देता है, और फिर उसी स्ट्रिंग के साथ पीछे की ओर प्रस्तुत किया जाता है। उदाहरण के लिए "सोमवार" "यादनोम" बन जाता है:
123456789101112131415161718192021222324252627282930313233343536 | विकल्प स्पष्टनिजी उप कमांडबटन1_क्लिक करें ()'चर परिभाषित करें'मंद मूल_स्ट्रिंग के रूप में स्ट्रिंगमंद उलटा_स्ट्रिंग के रूप में स्ट्रिंगमंद Next_Char स्ट्रिंग के रूप मेंपूर्णांक के रूप में मंद लंबाईपूर्णांक के रूप में मंद स्थिति'मूल स्ट्रिंग प्राप्त करें'मूल_स्ट्रिंग = इनपुटबॉक्स ("कृपया मूल स्ट्रिंग दर्ज करें:")'स्ट्रिंग की संशोधित लंबाई पाएं'लंबाई = लेन (Original_String)'उल्टा स्ट्रिंग सेट करें'रिवर्स_स्ट्रिंग = ""'चरित्र के आधार पर चरित्र के आधार पर स्ट्रिंग के माध्यम से प्रगति''अंतिम चरित्र से शुरू होकर पहले चरित्र की ओर जाना'स्थिति के लिए = लंबाई से 1 चरण -1Next_Char = मध्य(Original_String, Pos, 1)Reversed_String = Reversed_String और Next_Charअगली स्थितिMsgBox "उल्टा स्ट्रिंग है" और Reversed_Stringअंत उप |
कोड की मुख्य विशेषताएं हैं: -
• कोड को सक्रिय करने के लिए इसे एक कमांड बटन की आवश्यकता होती है - क्लिक इवेंट पर
• निम्नलिखित चर स्थापित किए गए हैं: -
o ओरिजिनल_स्ट्रिंग - मूल स्ट्रिंग जिसे उलट दिया जाएगा ("सोमवार")
o Reversed_String - उलटी हुई स्ट्रिंग ("yadnoM")
o Next_Char - स्ट्रिंग में अगला वर्ण जो उलट जाएगा
o लंबाई - स्ट्रिंग की लंबाई
o स्थिति - स्ट्रिंग में वर्तमान स्थिति
• स्ट्रिंग को कैप्चर करने के लिए एक इनपुटबॉक्स। यह चर "मूल स्ट्रिंग" में संग्रहीत है
• स्ट्रिंग की लंबाई की गणना LEN फ़ंक्शन का उपयोग करके की जाती है और चर लंबाई में संग्रहीत की जाती है
• एक के लिए… अगला लूप अंतिम वर्ण से शुरू होने वाली स्ट्रिंग के माध्यम से जाने और एक समय में एक वर्ण के पीछे की ओर काम करने के लिए सेट किया गया है
• मूल स्ट्रिंग में अगला वर्ण (पीछे की ओर कार्य करना) फिर उल्टे स्ट्रिंग में जोड़ा जाता है
• यह लूप तब तक पुनरावृत्त होता है जब तक हम स्ट्रिंग की पूरी लंबाई को पार नहीं कर लेते
• उलटी हुई स्ट्रिंग एक MsgBox में प्रदर्शित होती है।
यहां एक्सेल फाइल डाउनलोड करें