Zum Inhalt springen

Dateiinhalte suchen und ersetzen


Empfohlene Beiträge

Geschrieben

Hallo liebe Leute...

Wieder einmal hakt es bei mir mit der VBS Programmierung. Ich habe mir ein kleines Script gebaut, welche Die Dateiinhalte sämtlicher Dateien, des Ordners in dem das Script liegt, manipuliert. Aber irgendwie fehlt mir hier gerade voll der Denkanstoß. Es funktioniert alles wunderbar, nur eben das schreiben der neuen Daten in die Dateien, das bekomm ich nicht hin.

Wäre net, wenn mir jemand helfen könnte.

Dere Nico


dim fsx,fs,ordner,name, Dada

dim filesystemobject

dim strFalsePath

strFalsePath="D:\Daten\SCC"



'-----------------Scriptordner bestimmen-------------


set fsx = CreateObject("Scripting.FilesystemObject")


scriptname = Wscript.ScriptFullName

scriptpath = fsx.getparentfoldername(scriptname)


'----------------------------------------------------




'----------------------------------------------------


set fs = CreateObject("Scripting.FileSystemObject")

set ordner = fs.GetFolder(scriptpath)




For each datei in ordner.Files


   name = datei.name

   msgbox (name)

   Set Dada = fs.OpenTextFile(name)

   inhalt = Dada.ReadAll

'   msgbox (inhalt)

   inhalt = Replace(inhalt,"a","Ulumulu")

' [COLOR="Red"]Ich vermute, dass hier noch ein bisschen Quelltext fehlt[/COLOR]   

'   msgbox (inhalt)

   dada.close      

Next



set fs=nothing

set fsx=nothing

set ordner=nothing

Geschrieben
' Ich vermute, dass hier noch ein bisschen Quelltext fehlt

sozusagen. du öffnest die datei bis dato zwar mit OpenTextFile (zum lesen?); ich sehe hier allerdings kein explizites ForReading, das ist unsauber und im nachhinein schwer nachzuvollziehen, ob nun aus der datei namens "name" nur gelesen oder auch in sie geschrieben wird.

öffne innerhalb deines Files-loops einen weiteren deskriptor, welcher ein OpenTextFile mit ForWriting verwendet.

möglicher fallstrick ist noch, wenn dateiinhalte unicode beinhalten; dann verwende TristateTrue im 4. parameter.

deine variablenbenamsung lässt ebenfalls etwas zu wünschen übrig: "name" und "Dada" sind absolut nicht aussagekräftig. :floet:

s'Amstel

Geschrieben

Phew...also wenn ich ehrlich sein darf hab ich aus deiner Antwort kaum etwas verstanden :confused:

Wäre es möglich das ganze etwas Laienhafter auszudrücken, bzw. mit einem kleinen Codebeispiel zu belegen?

Die Benamsung wollt ich denn ändern wenn ich fertig bin, jetz hatte ich das zum Testen nur mal fix so hingebastelt....

Dennoch schonmal Danke für die Hilfe...

Dere Eratum

Edit:

Kann ich ein und die selbe Datei gleichzeitig zum lesne und zum Schreiben öffnen?

Geschrieben
Phew...also wenn ich ehrlich sein darf hab ich aus deiner Antwort kaum etwas verstanden :confused:

Wäre es möglich das ganze etwas Laienhafter auszudrücken, bzw. mit einem kleinen Codebeispiel zu belegen?

Die Benamsung wollt ich denn ändern wenn ich fertig bin, jetz hatte ich das zum Testen nur mal fix so hingebastelt....

Dennoch schonmal Danke für die Hilfe...

Dere Eratum

Edit:

Kann ich ein und die selbe Datei gleichzeitig zum lesne und zum Schreiben öffnen?

Edit2:

Hab es inzwischen hinbekommen. Sollte es irgendwen mal interessieren:


dim fsx,fs,ordner,name, DateiWrite

dim filesystemobject

dim strFalsePath

strFalsePath="D:\Programme\SCC"



'-----------------Scriptordner bestimmen-------------


set fsx = CreateObject("Scripting.FilesystemObject")


scriptname = Wscript.ScriptFullName

scriptpath = fsx.getparentfoldername(scriptname)

scriptpathnew = Left(scriptpath,Len(scriptPath)-1-(Len(scriptPath)-InstrRev(scriptpath,"\")))


'----------------------------------------------------




'----------------------------------------------------


set fs = CreateObject("Scripting.FileSystemObject")

set ordner = fs.GetFolder(scriptpath)


For each datei in ordner.Files

   Dateiname = datei.name

   if Dateiname <> "rename.vbs" then

	   Set DateiRead = fs.OpenTextFile(Dateiname)

	   inhalt = DateiRead.ReadAll

	   if instr(inhalt,strFalsePath) <> 0 then

		DateiRead.close

		inhalt = Replace(inhalt,strFalsePath,scriptPathnew)

		fs.DeleteFile(Dateiname)  	

		Set DateiWrite = fs.OpenTextFile(Dateiname,8,true)

		DateiWrite.write inhalt

		DateiWrite.close

	   end if

   end if

Next



set fs=nothing

set fsx=nothing

set ordner=nothing

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...