/ / قراءة البيانات من ملف نصي باستخدام Excel VBA

قراءة البيانات من ملف نصي باستخدام Excel VBA

أدناه سننظر في برنامج في Excel VBA أن يقرأ البيانات من ملف نصي. يحتوي هذا الملف على بعض الإحداثيات الجغرافية التي نريد استيرادها إلى Excel.

موقف:

قراءة البيانات من ملف نصي باستخدام Excel VBA

1. أولاً ، قم بتنزيل الملف النصي وأضفه إلى "C: test"

ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة الأسطر التعليمات البرمجية التالية:

2. نعلن أربعة متغيرات. myFile من نوع سلسلة ، نص من نوع سلسلة ، خط النص من نوع سلسلة ، posLat من نوع عدد صحيح ، و posLong من نوع عدد صحيح.

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

3. نحن بحاجة إلى تهيئة myFile متغير مع المسار الكامل واسم الملف.

myFile = "C:testgeographical-coordinates.txt"

أو

استخدم الأسلوب GetOpenFilename للكائن Application لعرض مربع الحوار القياسي المفتوح وحدد الملف (بدون فتح الملف بالفعل).

myFile = Application.GetOpenFilename()

ملاحظة: الجزء الفارغ بين قوسين يعطينا Excel VBA أي شيء كمدخل. ضع المؤشر على GetOpenFilename في Visual Basic Editor وانقر فوق F1 للحصول على تعليمات حول الوسائط.

4. أضف سطر الرمز التالي:

Open myFile For Input As #1

ملاحظة: تسمح هذه العبارة بقراءة الملف. يمكننا الرجوع إلى الملف كأول # خلال بقية الشفرة.

5. أضف الأسطر التالية:

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

ملحوظة: حتى نهاية الملف (EOF) ، يقرأ Excel VBA سطر واحد من الملف وتعيينه إلى خط النص. نستخدم عامل التشغيل لسَلسَلة (ضم) جميع الخطوط المفردة وتخزينها في النص المتغير.

6. أغلق الملف.

Close #1

7. بعد ذلك ، نحن نبحث عن موقف الكلمات وخطوط الطول والعرض في النص المتغير. نحن نستخدم وظيفة Instr.

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

8. نستخدم هذه المواضع والوظيفة المتوسطة لاستخراج الإحداثيات من النص المتغير وكتابة الإحداثيات إلى الخلية A1 والخلية A2.

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

9. اختبار البرنامج.

نتيجة:

قراءة البيانات من ملف نصي النتيجة

اقرأ أيضًا: