1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Batch ersetzt Text aus Textdatei, aber auch "!"

Discussion in 'Windows 7' started by DerTieja, Apr 13, 2015.

Thread Status:
Not open for further replies.
  1. DerTieja

    DerTieja ROM



    Ich habe diese Funktion gestestet allerdings wurden auch alle "!" aus meinen txt datei gelöscht. :/

    Gibt es eine Möglichkeit dies zu verhindern? :)
     
    DerTieja, Apr 13, 2015
    #1
  2. Hascheff

    Hascheff Moderator

    Leider hatte ich versäumt, diesen Thread nach dem Verschieben wieder zu öffnen.

    :sorry:
     
    Hascheff, Apr 16, 2015
    #2
  3. Dogeater

    Dogeater Halbes Gigabyte

    Last edited: Apr 16, 2015
    Dogeater, Apr 16, 2015
    #3
  4. DerTieja

    DerTieja ROM

    Danke an euch :)

    Ich habe währenddessen auch noch einen alternativ code gefunden:
    Aufruf aus der Konsole: cscript //nologo Skript.vbs "parameter1"

    Ich habe es auf das nötigte heruntergebrochen, ich hoffe dabei ist nichts verloren gegangen ;)
    Visual Basic "Skript":
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Const ForReading = 1
    Const ForWriting = 2

    set shell = createobject("wscript.shell")
    set envProcess = shell.Environment("process")

    DIR_old="!!!! alter Text !!!!"
    DIR_new= "!!! neuer Test !!!!"

    '###################################################################################################

    ' Datei öffnen und Text einlesen und schließen -> Settings.macro

    Set objFile = objFSO.OpenTextFile(DIR_new, ForReading)
    strText = objFile.ReadAll
    objFile.Close

    ' Änderungen am Inhalt

    strNewText = Replace(strText, DIR_old, DIR_new)

    ' Neue Datei erstellen mit neuen Inhalten füllen
    set resultFile = objFSO.CreateTextFile(DIR_new, true)
    resultFile.WriteLine strNewText
    resultFile.Close
     
    DerTieja, Apr 16, 2015
    #4
Thread Status:
Not open for further replies.

Share This Page