Suchen und Ersetzen mit VBS

Dieses Thema Suchen und Ersetzen mit VBS im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von SchmidtM, 4. Nov. 2005.

Thema: Suchen und Ersetzen mit VBS Hallo zusammen, ich möchte gerne eine komplette Datei nach einem bestimmten Wort durchsuchen und dieses durch den...

  1. Hallo zusammen,

    ich möchte gerne eine komplette Datei nach einem bestimmten Wort durchsuchen und dieses durch den PC-Namen ersetzen. Das würde ich gerne mit folgendem VBScript verwirklichen:
    Code:
    Dim objFso
    Dim objWshShell
    Set objFso = WScript.CreateObject(Scripting.FileSystemObject)
    Set objWshShell = WScript.CreateObject(WScript.Shell)
    
    Dim dieDatei, Rueckgabe, dateiAngabe, Servername
    
    dateiAngabe = C:\dummy.txt
    Servername = objWshShell.ExpandEnvironmentalStrings(%COMPUTERNAME%)
    Set dieDatei = objFso.OpenTextFile(dateiAngabe, 1)
    Do While dieDatei.AtEndOfStream <> True
     Rueckgabe = dieDatei.Readline
     [b]Rueckgabe.Replace dummy, Servername[/b]
    Loop
    dieDatei.Close
    
    Dabei macht die rot markierte Zeile Probleme. Scheinbar wird zum Ersetzen ein weiteres Objekt benötigt. Wo liegt mein Denkfehler?

    P.S. Die zu öffnende Datei ist eine normale Textdatei mit folgendem Inhalt (als Bsp.)

    nix
    dummy
    test

    Vielen Dank im Voraus

    Gruß, Marco
     
  2. also nicht die rote Zeile, sondern die mit davor und dahinter
     
  3. Rueckgabe=Replace(dieDatei.ReadAll,dummy,Servername)
     
Die Seite wird geladen...

Suchen und Ersetzen mit VBS - Ähnliche Themen

Forum Datum
Access 2003: Defaultwert für "Vergleichen" im "Suchen und ersetzen"-Dialog änder Windows XP Forum 24. März 2011
Fenster "Suchen und Ersetzen" verkleinern Windows 7 Forum 29. Aug. 2010
Word 2000: Symbol suchen und ersetzen Microsoft Office Suite 21. Feb. 2010
batch: suchen und ersetzen in textdateien Webentwicklung, Hosting & Programmierung 4. Juli 2008
suchen und ersetzen über verzeichnisse und abarbeiten einer liste Windows XP Forum 25. Sep. 2007