قراءة ملف نصي

أخوي مافهمتك

هل تريد :

1- فتح اي ملف نصي

2- حفظ بامتدااد txt

أخي الفاضل :

لدي ملف نصي وليكن A.txt ويوجد بداخله نص مكون من عدة أسطر ، المطلوب هو فتح هذا الملف وقراءة السطر الأول

ثم كتابتة إلى ملف آخر وليكن B.txt ثم قراءة السطر الثاني وكتابتة وهكذا حتى النهاية ؟؟

ارجو أن تكون وضحت الفكرة ؟؟؟

هذا هو كود القراءة من ملف نصي ووضعه في Textbox

Open App.Path & "\Exampel.txt" For Input As #1
Dim a
Input #1, a
Close #1
Text1.Text = a

وهذا المثال به نموذج للقراءة

ونموذج للأضافة .

Exampel.rar

انسخ الملف وغير اسمه :)

FristFile_str = "مسار الملف الأول"
SecondFile_str = "مسار الملف الثانى"
open FristFile_str for input as #1
   open SecondFile_str for input as #2
      do while not EOF(1)
         line input #1,Buffer
         print #2,Buffer
      loop
   Close #2
Close #2

جرب و أخبرنا بالنتيجة

أخي الكريم COMFORT

اشكرك على تعاونك معي ،، لكن المثال الذي أرفقته يقوم بقراءة النص كاملا وكتابتة إلى مربع نص وليس ملف نصي حسب المطلوب

لأن الهدف من البرنامج الذي أود عمل هو أن يقرأ السطر الأول من الملف النصي ثم يقوم بعمليه تحويل بسيطة ثم يكتب النتيجة في ملف

نصي آخر علماً بأن كود التحويل موجود لدي ويعمل 100% لكن المشكلة هي في كيفية القراءة سطر سطر ثم الكتابة سطر سطر ..

أرجو أن تكون الفكرة واضحة ،

وجزاك الله خيرا على تعاونك معي ،،

أخي الكريم neo

الكود الذي كتبته يعطيني خطأ Bad file mode !!!!!!!!!!!!!!!!

واشكرك على تجاوبك معي ..

تحياتي ...

السلام عليكم

الظاهر انك مفهمتش كويس الكود الموضوع من الاخوه لقراءة ملف نصى سطر سطر على العلم انو

صحيح

على فكره الكود بيقراء سطر سطر ولكن لسرعه الاجراء اتهيقلك انو بيقراء الملف على بعضو

على العموم حمل المثال المرفق ... هيبسطلك الفكره

مثال عن كيفيه فتح ملف نصى و قرائته سطر سطر وكل سطر يسجل فى LIST على حده.

TEXTLINE.rar

تفضلوا هنا :

http://uni.hiarab.net/showthread.php?t=5515

ان هناك خطاء بسيط جرب الأن

FristFile_str = "مسار الملف الأول"
SecondFile_str = "مسار الملف الثانى"
open FristFile_str for input as #1
  open SecondFile_str for output as #2
     do while not EOF(1)
        line input #1,Buffer
        print #2,Buffer
     loop
  Close #2
Close #2