Alle Textdateien aus Ordner einlesen und Text ersetzen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von kevin89.

    Alle Textdateien aus Ordner einlesen und Text ersetzen

    Hi!
    Brauch mal Rat:
    Wie kann ich alle (Text)-dateien aus einem Ordner einlesen (Sind etwa 550), und in jeder Datei
    nach z.b flags = NPC_FLAG_IMMORTAL; suchen, und dann mit flags = 0; ersetzen.

    Hab schon Google und SuFu genutzt, aber nicht wirklich das gefunden, was ich suche ;)
    Danke im Vorraus!
    Mfg.

    du könntest es damit versuchen:

    VB.NET-Quellcode

    1. For Each file As String In My.Computer.FileSystem.GetFiles(ordner, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
    2. Dim inhalt as string = My.Computer.FileSystem.ReadAllText(file)
    3. inhalt.Replace("flags = NPC_FLAG_IMMORTAL;", "flags = 0")
    4. My.Computer.WriteAllText(file, inhalt, false)
    5. Next


    ordner ist der Ordner in dem die Textdateien drin sind.
    Bin mir nicht sicher ob der Code funktionert, da ich ihn nicht getestet hab ^^

    Kleine Korrektur:

    VB.NET-Quellcode

    1. For Each file As String In My.Computer.FileSystem.GetFiles(ordner, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
    2. Dim inhalt As String = My.Computer.FileSystem.ReadAllText(file)
    3. inhalt=inhalt.Replace("flags = NPC_FLAG_IMMORTAL;", "flags = 0")
    4. My.Computer.WriteAllText(file, inhalt, False)
    5. Next