यह ट्यूटोरियल प्रदर्शित करेगा कि VBA में एक टेक्स्ट फ़ाइल को एक स्ट्रिंग में कैसे पढ़ा जाए।
हम या तो टेक्स्ट फाइल लाइन को लाइन से या पूरी फाइल के रूप में पढ़ सकते हैं।
एक संपूर्ण टेक्स्ट फ़ाइल को एक स्ट्रिंग में पढ़ें
टेक्स्ट फ़ाइल में टेक्स्ट आमतौर पर कई पंक्तियों से बना होता है, जो सीमांकक द्वारा अलग किया जाता है। ये अल्पविराम (","), अंतरिक्ष के साथ अल्पविराम (","), अर्धविराम (";"), अंतरिक्ष के साथ अर्धविराम (";"), एक स्थान (" "), एक टैब (vbTab) हो सकता है ) या दुर्लभ मामलों में कोई अन्य चरित्र जैसे टिल्ड (~)। लाइनों को आम तौर पर एक लाइन ब्रेक (vbCRLF) द्वारा अलग किया जाता है।
VBA में एक संपूर्ण टेक्स्ट फ़ाइल को पढ़ने का सबसे आसान तरीका निम्न कोड को चलाना है जो टेक्स्ट फ़ाइल की संपूर्ण सामग्री को एक स्ट्रिंग वेरिएबल में रखेगा। यह प्रक्रिया VBA ओपन स्टेटमेंट और VBA फ्रीफाइल फ़ंक्शन का उपयोग करती है।
12345678910 | उप रीडफाइल ()मंद iTxtFile पूर्णांक के रूप मेंस्ट्रिंग के रूप में मंद strFileस्ट्रिंग के रूप में मंद strFileTextstrFile = "सी: \ टेस्ट \ TestFile.txt"iTxtFile = फ्रीफाइलफ्रीफाइल के रूप में इनपुट के लिए ओपन स्ट्रफाइलstrFileText = इनपुट (LOF (iTxtFile), iTxtFile)iTxtफ़ाइल बंद करेंअंत उप |
हम FileSystemObject का उपयोग करके VBA में एक टेक्स्ट फ़ाइल भी पढ़ सकते हैं। नीचे दिए गए कोड में हमने फाइल सिस्टम ऑब्जेक्ट के साथ लेट बाइंडिंग का उपयोग किया है।
1234567891011 | उप रीडटेक्स्टफाइल ()स्ट्रिंग के रूप में मंद strTextवस्तु के रूप में मंद FSOवस्तु के रूप में मंद टीएसओFSO सेट करें = CreateObject ("Scripting.FileSystemObject")सेट TSO = FSO.OpenTextFile("C:\Test\TestFile.txt")strText = TSO.ReadAllटीएसओ। बंद करेंसेट टीएसओ = कुछ नहींFSO सेट करें = कुछ नहींअंत उप |
हम कोड में अर्ली बाइंडिंग का भी उपयोग कर सकते हैं और फाइल सिस्टम ऑब्जेक्ट के लिए हमारे एक्सेल प्रोजेक्ट में एक संदर्भ बनाकर फाइल सिस्टम ऑब्जेक्ट को घोषित कर सकते हैं।
1234567891011 | उप रीडटेक्स्टफाइल ()स्ट्रिंग के रूप में मंद strTextनई फाइलसिस्टमऑब्जेक्ट के रूप में मंद एफएसओवस्तु के रूप में मंद टीएसओFSO सेट करें = CreateObject ("Scripting.FileSystemObject")सेट TSO = FSO.OpenTextFile("C:\Test\TestFile.txt")strText = TSO.ReadAllटीएसओ। बंद करेंसेट टीएसओ = कुछ नहींFSO सेट करें = कुछ नहींअंत उप |