Bestimmten Text in Reg Export Datei löschen

18/12/2007 - 12:21 von Bernd Ziegler | Report spam
Hallo zusammen,

wie kann ich mit VBScript in einer Reg Export Datei folgende Eintràge
löschen? Davor und danach kann noch anderer Text stehen.

[HKEY_CURRENT_USER\Volatile Environment]
"LOGONSERVER"="\\\\SERVER1"
"USERDOMAIN"="SERVER1"
"USERNAME"="ziegler"
"USERPROFILE"="C:\\Users\\ziegler"
"HOMEPATH"="\\Users\\ziegler"
"HOMEDRIVE"="C:"
"APPDATA"="C:\\Users\\ziegler\\AppData\\Roaming"
"LOCALAPPDATA"="C:\\Users\\ziegler\\AppData\\Local"

Gruß

Bernd
 

Lesen sie die antworten

#1 ekkehard.horner
18/12/2007 - 15:13 | Warnen spam
Bernd Ziegler schrieb:
Hallo zusammen,

wie kann ich mit VBScript in einer Reg Export Datei folgende Eintràge
löschen? Davor und danach kann noch anderer Text stehen.

[HKEY_CURRENT_USER\Volatile Environment]
"LOGONSERVER"="\\\\SERVER1"
"USERDOMAIN"="SERVER1"
"USERNAME"="ziegler"
"USERPROFILE"="C:\\Users\\ziegler"
"HOMEPATH"="\\Users\\ziegler"
"HOMEDRIVE"="C:"
"APPDATA"="C:\\Users\\ziegler\\AppData\\Roaming"
"LOCALAPPDATA"="C:\\Users\\ziegler\\AppData\\Local"

Gruß

Bernd



Dim oFS : Set oFS = CreateObject( "Scripting.FileSystemObject" )
Dim sFSpec : sFSpec = ".\sunnybernd.txt"
Dim sTxt : sTxt = oFS.OpenTextFile( sFSpec ).ReadAll
Dim sJunk : sJunk = Join( Array( _
"[HKEY_CURRENT_USER\Volatile Environment]" _
, """LOGONSERVER""=""\\\\SERVER1""" _
, """USERDOMAIN""=""SERVER1""" _
, """USERNAME""=""ziegler""" _
, """USERPROFILE""=""C:\\Users\\ziegler""" _
, """HOMEPATH""=""\\Users\\ziegler""" _
, """HOMEDRIVE""=""C:""" _
, """APPDATA""=""C:\\Users\\ziegler\\AppData\\Roaming""" _
, """LOCALAPPDATA""=""C:\\Users\\ziegler\\AppData\\Local""" _
, "" _
), vbCrLf )

WScript.Echo ""
WScript.Echo sTxt
WScript.Echo ""
sTxt = Replace( sTxt, sJunk, "" )
WScript.Echo sTxt

Ausgabe (fuer mein sunnybernd.txt):

cutReg: cut piece from .reg file ==
Was davor
[HKEY_CURRENT_USER\Volatile Environment]
"LOGONSERVER"="\\\\SERVER1"
"USERDOMAIN"="SERVER1"
"USERNAME"="ziegler"
"USERPROFILE"="C:\\Users\\ziegler"
"HOMEPATH"="\\Users\\ziegler"
"HOMEDRIVE"="C:"
"APPDATA"="C:\\Users\\ziegler\\AppData\\Roaming"
"LOCALAPPDATA"="C:\\Users\\ziegler\\AppData\\Local"
Was dahinter


Was davor
Was dahinter

cutReg: 0 done (00:00:00)
Wenn sJunk mehrfach in der Datei vorkommt, verschwinden alle Vorkommnisse;
dagegen hilft u.U. die vollstaendige Version der Replace() Funktion.

Ähnliche fragen