قراءه ملف تكست والتعديل عليه في ملف اخر

راجع المشاركات التاليه وستجد فيها ما يفيد

http://www.arabteam2000.com/vb/showthread....?threadid=26064

http://www.arabteam2000.com/vb/showthread....?threadid=26543

شكرا لك اخي علي سرعه الرد

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

واريد اضافه فاصله بعد اول عشر احرف من الشمال في كل سطر

وجزاك الله خير الجزاء

نسيت ان اوضح اني اريد عمل هذا بشكل اوتوماتيك تخيل لو عندك الف سطر مثلا وتريد عمل الفاصله او تخيل انهم مليون سطر

الذي احاول عمله هو قراءه الملف والتعديل عليه باضافه الفاصله كما وضحت من قبل بعد كل 10 احرف من الشمال في كل سطر بمجرد الضغط علي زر

وشكرا وارجوا ان لا اكون قد اطلت

اخي شوقي : البرامج ما هي الا مجموعة من الاوامر الصغيره تم تجميعها لانجاز مهمة ما..فالروابط التي اعطيتك اياها تقوم بالمهمة مع بعض التعديلات.

على العموم هذا البرنامج الذي تريده مع ملاحظه ضروره تغيير مسارالملف.

On Error GoTo 0

Dim TextLine, newtxtfile, temp, temp1



'open file and modify

Open "c:autoexec.txt" For Input As #1

    Do While Not EOF(1)

    Line Input #1, TextLine

        If Len(TextLine) > 10 Then

            temp = Mid(TextLine, 11, Len(TextLine))

            temp1 = Mid(TextLine, 1, 10)

            TextLine = temp1 + "," + temp

        End If

        newtxtfile = newtxtfile + TextLine + vbNewLine

    Loop

Close #1



'write new file

Open "c:autoexec_changed.txt" For Output As #1

    Write #1, newtxtfile

Close #1

    

'show final file

Shell "notepad c:autoexec_changed.txt", vbNormalFocus

جزاك الله خيرا أخ hamohd70 على مساعدتك لأخوانك، و متابعتهم حتى تمام النفع.

أخوك.

(f)