मेरे पास एक बैच फ़ाइल चल रही है जो टेक्स्ट/एचटीएमएल फाइल को थूकती है। बैच फ़ाइल टेक्स्ट फ़ाइल में कुछ लाइन ब्रेक का कारण बन रही है, जो किसी ईमेल में फ़ाइल खोलने में बहुत अच्छी तरह से अनुवाद नहीं करती है। मैं एक vbs स्क्रिप्ट बनाने के लिए सीएसक्रिप्ट पर पढ़ने की कोशिश कर रहा हूं जो टेक्स्ट फ़ाइल को पढ़ सकता है और लाइन ब्रेक को हटा सकता है लेकिन कोई भाग्य नहीं है। कोई सलाह?टेक्स्ट फ़ाइल से लाइन ब्रेक निकालने के लिए सीएसक्रिप्ट और वीबीएस
सुनिश्चित नहीं हैं कि आप यह करने के लिए पसंद करते हैं, लेकिन इस स्क्रिप्ट एक तर्क के रूप में एक फ़ाइल नाम लेता है और एक ही फाइल करने के लिए परिणाम लिखता है।
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