VBScript newline entfernen

Ich habe eine HTML-Seite mit einer oder mehr Zeilenumbrüche nach </html>. Mein VBScript-Datei ist in der Lage zu finden, die ersetzen Sie die Zeilenumbrüche mit der leere. Aber, es sieht aus wie OpenTextFile ist, indem ein Zeilenumbruch am Ende wieder. Hilfe!!!

'Pulled this from the InterWebs
Const ForReading = 1 Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("a.html", ForReading)
strText = objFile.ReadAll
'Wscript.Echo strText
objFile.Close

strNewText = Replace(strText, "</html>" & vbCrlf, "</html>")
Set objFile = objFSO.OpenTextFile("a.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close

InformationsquelleAutor publicRavi | 2011-02-17

  1. 4

    Statt objFile.WriteLine strNewText verwenden objFile.Write strNewText. In diesem schreiben wird die Datei ohne Zeilenumbruch am Ende.

    BTW, eine andere Art zu entfernen, die das Zeilenende(s) nach Ihrer </html> tag wäre strNewText = Trim(strText) anstatt Replace()

    Gerade gelernt, dass Trim entfernt Leerzeichen.

    InformationsquelleAutor

  2. 3

    Kann dies helfen:

    Des TextStream-Objekts hat die folgenden wichtigen Methoden für das schreiben von text-Dateien:

    • Write(string) Schreibt einen string an die open text-Datei.
    • WriteLine(string) Schreibt einen string in der text Datei und beendet es aus mit dem neue-Zeile-Zeichen.
    • WriteBlankLines(Linien) - Schreibt eine angegebene Anzahl von neue-Zeile-Zeichen.

    Wenn Sie nicht möchten, dass ein newline am Ende, verwenden Sie 

    objFile.Write strNewText

    statt 

    objFile.WriteLine strNewText

    InformationsquelleAutor Mike Moe

  3. 2

    Dein code ist meist korrekt. Es ist nicht OpenTextFile das hinzufügen eines neue-Zeile-es WriteLine. Wenn Sie, ersetzen Sie, dass mit Schreiben, es wird so funktionieren wie Sie es erwarten.

    InformationsquelleAutor Todd

Schreibe einen Kommentar