CScript و VBS لإزالة فواصل الأسطر من الملف النصي

Question

لدي ملف دفعي يعمل يبصق ملف نص / HTML. يتسبب ملف الدفعات في فواصل بعض الأسطر في الملف النصي، والذي لا يترجم بشكل جيد للغاية في فتح الملف في رسالة بريد إلكتروني. أحاول قراءة CScript لإنشاء برنامج نصي VBS يمكنه قراءة الملف النصي وشريط فواصل الأسطر ولكن لم يكن لديك حظ. اي نصيحه؟

Answer 1

لست متأكدا من كيفية تفضل القيام بذلك، ولكن هذا البرنامج النصي يأخذ اسم ملف كوسيطة ويكتب النتائج إلى نفس الملف.

Const ForReading = 1, ForWriting = 2
Dim fs, txt, contents

Set fs = CreateObject("Scripting.FileSystemObject")
Set txt = fs.OpenTextFile(WScript.Arguments(0), ForReading)
contents = txt.ReadAll
txt.Close

contents = Replace(contents, vbCr, "")
contents = Replace(contents, vbLf, "")

Set txt = fs.OpenTextFile(WScript.Arguments(0), ForWriting)
txt.Write contents
txt.Close