برنامج VB ملف نصي Prepend

Question

أحد يعرف كيفية بسرعة prepend (إضافة خطوط جديدة اثنين من النص) إلى بداية القائمة ملف نصي باستخدام VB Script أو Bat الملف ؟ الأكثر أناقة الحل يحصل القراد.

Answer 1

كيف حول هذا:

Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile("test.txt", 1)
ReadAllTextFile =   f.ReadAll
Set f = fso.OpenTextFile("test.txt", 2, True)
f.WriteLine("Blaaa")
f.WriteLine("Blaaaa some more...")
f.Write(ReadAllTextFile)

المصدر: تك نصائح

Answer 2

تحقق خوسيه باسيليوس الإجابة عن رمز و إشارة إلى FSO.وسوف يتم استخدام هذا.

ولكن:لن تذهب ReadAllTextFile = f.ReadAll الطريق, حيث يمكن أن تكون بعض غيغابايت (من يدري؟).

بدلا من ذلك:

1. فتح ملف جديد
2. كتابة إرفاق مسبقا خطوط
3. قراءة سطر سطر من الملف القديم, الكتابة إلى ملف جديد
4. (إغلاق كل الملفات)
5. حذف الملف القديم
6. إعادة تسمية الملف الجديد -> الملف القديم