विषय - सूची
यह ट्यूटोरियल दिखाएगा कि FileSystemObject की OpenTextFile विधि का उपयोग कैसे करें।
एक टेक्स्ट फ़ाइल खोलें
यह पाठ FileSystemObject का उपयोग करता है। इसका उपयोग करने के लिए, आपको वीबी स्क्रिप्ट रन-टाइम लाइब्रेरी का संदर्भ सेट करना होगा। अधिक जानकारी के लिए यहां देखें।
आप पढ़ने के लिए मौजूदा टेक्स्ट फ़ाइल खोल सकते हैं:
| 1 | FileToRead = FSO.OpenTextFile ("C:\Test\TestFile.txt", ForReading) सेट करें |
और फिर इसकी सामग्री को वर्तमान वर्कशीट के पहले सेल में पेस्ट करें, जैसे:
| 12345678910 | उप FSOReadFromTextFile ()नई फाइलसिस्टमऑब्जेक्ट के रूप में मंद एफएसओFSO सेट करें = CreateObject ("Scripting.FileSystemObject")FileToRead = FSO.OpenTextFile ("C:\Test\TestFile.txt", ForReading) सेट करेंटेक्स्टस्ट्रिंग = FileToRead.ReadAllFileToRead.बंद करेंThisWorkbook.Sheets(1).Range("A1").Value = TextStringअंत उप |
ForReading मोड वाले अधिक विकल्पों के लिए यहां देखें।
ForWriting मोड में आप किसी मौजूदा फ़ाइल की सामग्री को नए डेटा से बदल सकते हैं लेकिन आप फ़ाइल से नहीं पढ़ सकते हैं।
| 123456789 | उप FSOWriteToTextFile ()नई फाइलसिस्टमऑब्जेक्ट के रूप में मंद एफएसओFSO सेट करें = CreateObject ("Scripting.FileSystemObject")FileToWrite = FSO.OpenTextFile ("C:\Test\TestFile.txt", ForWriting) सेट करेंFileToWrite.Write "टेस्ट लाइन"FileToWrite.बंद करेंअंत उप |
ForWriting मोड वाले अधिक विकल्पों के लिए यहां देखें।
ForAppending मोड में आप फाइल के अंत तक लिख सकते हैं। आप इस फ़ाइल से नहीं पढ़ सकते हैं।
| 123456789 | उप FSOAppendToTextFile ()नई फाइलसिस्टमऑब्जेक्ट के रूप में मंद एफएसओFSO सेट करें = CreateObject ("Scripting.FileSystemObject")FileToAppend = FSO.OpenTextFile ("C:\Test\TestFile.txt", ForAppending) सेट करेंFileToAppend.Write "संलग्न सामग्री"FileToAppend.Closeअंत उप |
