/ / एक्सेल वीबीए का उपयोग कर एक टेक्स्ट फ़ाइल से डेटा पढ़ें

Excel VBA का उपयोग कर टेक्स्ट फ़ाइल से डेटा पढ़ें

नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA उस एक पाठ फ़ाइल से डेटा पढ़ता है। इस फ़ाइल में कुछ भौगोलिक निर्देशांक शामिल हैं जिन्हें हम Excel में आयात करना चाहते हैं।

परिस्थिति:

एक्सेल वीबीए का उपयोग कर टेक्स्ट फ़ाइल से डेटा पढ़ें

1. सबसे पहले, पाठ फ़ाइल डाउनलोड करें और इसे "सी: परीक्षण" में जोड़ें

अपने वर्कशीट पर कमांड बटन रखें और निम्न कोड लाइनें जोड़ें:

2. हम चार चर घोषित करते हैं। टाइपिंग स्ट्रिंग का प्रकार, टाइप स्ट्रिंग का टेक्स्ट, टाइप स्ट्रिंग की टेक्स्टलाइन, टाइप इंटीजर का पॉज़लाट, और टाइप इंटीजर का पॉज़लॉन्ग।

Dim myFile As String, text As String, textline As String, posLat As Integer, posLong As Integer

3. हमें चरम myFile को पूर्ण पथ और फ़ाइल नाम से प्रारंभ करने की आवश्यकता है।

myFile = "C:testgeographical-coordinates.txt"

या

मानक ओपन डायलॉग बॉक्स को प्रदर्शित करने के लिए एप्लिकेशन ऑब्जेक्ट की GetOpenFilename विधि का उपयोग करें और फ़ाइल का चयन करें (वास्तव में फ़ाइल खोलने के बिना)।

myFile = Application.GetOpenFilename()

नोट: ब्रैकेट्स के बीच खाली भाग का अर्थ है कि हम एक्सेल वीबीए इनपुट के रूप में कुछ भी नहीं देते हैं। अपने कर्सर को Visual Basic Editor में GetOpenFilename पर रखें और तर्कों पर सहायता के लिए F1 पर क्लिक करें।

4. निम्नलिखित कोड लाइन जोड़ें:

Open myFile For Input As #1

नोट: यह कथन फ़ाइल को पढ़ने की अनुमति देता है। हम अपने शेष कोड के दौरान फ़ाइल को # 1 के रूप में संदर्भित कर सकते हैं।

5. निम्नलिखित कोड लाइन जोड़ें:

Do Until EOF(1)
    Line Input #1, textline
    text = text & textline
Loop

ध्यान दें: फ़ाइल (ईओएफ) के अंत तक, एक्सेल वीबीए फ़ाइल से एक पंक्ति पढ़ता है और इसे टेक्स्टलाइन पर असाइन करता है। हम सभी एकल लाइनों को जोड़ने (शामिल) करने के लिए और ऑपरेटर का उपयोग करते हैं और इसे परिवर्तनीय पाठ में संग्रहीत करते हैं।

6. फ़ाइल बंद करें।

Close #1

7. अगला, हम परिवर्तनीय पाठ में अक्षांश और देशांतर शब्दों की स्थिति की खोज करते हैं। हम इंस्ट्र फ़ंक्शन का उपयोग करते हैं।

posLat = InStr(text, "latitude")
posLong = InStr(text, "longitude")

8. हम परिवर्तनीय पाठ से निर्देशांक निकालने के लिए इन पदों और मध्य कार्य का उपयोग करते हैं और सेल ए 1 और सेल ए 2 में निर्देशांक लिखते हैं।

Range("A1").Value = Mid(text, posLat + 10, 5)
Range("A2").Value = Mid(text, posLong + 11, 5)

9. कार्यक्रम का परीक्षण करें।

परिणाम:

टेक्स्ट फ़ाइल परिणाम से डेटा पढ़ें

यह भी पढ़ें: