Ankündigung

Einklappen
Keine Ankündigung bisher.

vbscript findandreplace carriage return

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

    vbscript findandreplace carriage return

    Hallo rm,

    ich habe eine Textdatei die "ø~" enthält. Das möchte ich mit carriage return (enter) ersetzen mit Hilfe eines vbscripts dachte ich...

    Spoiler: 

    Quellcode replace.vbs Quelle:

    Const ForReading = 1
    Const ForWriting = 2

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile("C:design.txt", ForReading)

    strText = objFile.ReadAll
    objFile.Close
    strNewText = Replace(strText, "ø~", "chr(13)")

    Set objFile = objFSO.OpenTextFile("C:design.txt", ForWriting)
    objFile.WriteLine strNewText
    objFile.Close


    Wenn ich das ausführe ersetzt er "ø~" mit dem Text "chr(13)", ich will aber das ein Enter dabei herauskommt. Was mache ich falsch?

    2te Frage: Wie mache ich das selbe nur das diesmal das Enter-Zeichen durch ein Leerzeichen ersetzt werden kann?

    #2
    Fail :D kann geclosed werden, habe die Gänsefüsschen weggemacht dann ging es...
    Spoiler: 
    Const ForReading = 1
    Const ForWriting = 2

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile("C:design.txt", ForReading)

    strText = objFile.ReadAll
    objFile.Close
    strNewText = Replace(strText, "ø~", chr(013) & chr(010))

    Set objFile = objFSO.OpenTextFile("C:design.txt", ForWriting)
    objFile.WriteLine strNewText
    objFile.Close


    close pls

    Kommentar


      #3
      du musst die gänsefüsse weg machen

      Kommentar


        #4
        gänsefuße wegmachen sollte solven

        Kommentar


          #5
          Jo ist mir dann auch eingefallen. Hatte früher mal ein bisschen Java, sonst noch nichts gemacht in der Richtung.

          Trotzdem danke ich mach jetzt Mittag :D

          Kommentar

          Lädt...
          X