Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Frage Entwicklung VB for Applications

GELÖST

VBScript anwenden um Verzeichniss Dateien editieren

Mitglied: matteop

matteop (Level 1) - Jetzt verbinden

11.03.2014, aktualisiert 17.03.2014, 1815 Aufrufe, 4 Kommentare

In einem Verzeichnis wo mehrere htm, xml Dateien vorhanden sind mit folgenden Namen:

slidexxx.* ; masterxxx.*, usw bräuchte ich im allen slidexxx.htm Datein eine Änderung vornehemen:

target="_parent" onclick="window.event.cancelBubble=true;" style='position:
zu
target="_blank" onclick="window.event.cancelBubble=true;" style='position:

Bin apsoluter Anfänger dafür.
Ich ersuche aber das WBScript mir falls möglich rasch mir anbitten.

Danke im Voraus für Hilfe!
Mitglied: colinardo
11.03.2014, aktualisiert um 13:26 Uhr
Guten Tag matteop, Willkommen im Forum!
Bin apsoluter Anfänger dafür.
Ich ersuche aber das WBScript mir falls möglich rasch mir anbitten.
[OT] Wow schon wieder Freitag ... sind die Schulen zu ? [/OT]
1. Netiquette
2. Rechtschreibung: heul ... WBScript ?? Waddehaddedudeda
3. Suchfunktion des Forums nutzen
(gab es hier schon x-mal die Frage / aber bei der Rechtschreibung kein Wunder das du nichts findest)

4. Beispiel (Kommentare im Code)
01.
'Ordner mit den Dateien 
02.
Const strFolder = "C:\Suchordner" 
03.
'Erweiterungen der Dateien die durchsucht werden sollen 
04.
arrFileExtensions = Array("htm") 
05.
'String welcher gesucht wird 
06.
Const strSearch = "target=""_parent"" onclick=""window.event.cancelBubble=true;"" style='position:" 
07.
'String der den Suchstring ersetzt 
08.
Const strReplace = "target=""_blank"" onclick=""window.event.cancelBubble=true;"" style='position:" 
09.
 
10.
intFileEditCounter = 0 
11.
Set fso = WScript.CreateObject("Scripting.Filesystemobject") 
12.
Set rootFolder = fso.GetFolder(strFolder) 
13.
'Funktion zum durchsuchen aufrufen, wenn auch Dateien in Unterordnern durchsucht  
14.
'werden sollen muss der zweite Parameter auf 'True' gesetzt werden 
15.
parseFolder rootFolder, False 
16.
Set fso = Nothing 
17.
WScript.Echo "Suchen und Ersetzen wurde abgeschlossen!" & vbNewLine & "In " & intFileEditCounter & " Datei(en) wurden Ersetzungen vorgenommen!" 
18.
 
19.
Function parseFolder(strFldr,boolRecursion) 
20.
	For each file In strFldr.Files 
21.
		For i = 0 To UBound(arrFileExtensions) 
22.
			If LCase(arrFileExtensions(i)) = LCase(fso.GetExtensionName(file.Path)) And Left(file.Name,5) = "slide" Then 
23.
				Set f = fso.OpenTextFile(file.Path,1) 
24.
				If Not f.AtEndOfStream Then 
25.
					strContent = f.ReadAll() 
26.
					f.Close 
27.
					strNewContent = Replace(strContent,strSearch,strReplace,1,-1,vbTextCompare) 
28.
					If strContent <> strNewContent Then 
29.
						Set f = fso.OpenTextFile(file.Path,2) 
30.
						f.Write(strNewContent) 
31.
						f.Close 
32.
						intFileEditCounter = intFileEditCounter + 1 
33.
					End If 
34.
				Else 
35.
					f.Close 
36.
				End if 
37.
				Exit For 
38.
			End If 
39.
		Next 
40.
	Next 
41.
	 
42.
	If boolRecursion Then 
43.
		For Each subFolder in strFldr.SubFolders 
44.
			parseFolder subFolder, True 
45.
		Next 
46.
	End If 
47.
End Function
p.s. einen Anfängerkurs können wir hier leider nicht in jedem Thread geben ... dafür gibt es diese Seiten hier:

VBA/VBS/WSH/Office Developer Referenzen

Grüße Uwe
Bitte warten ..
Mitglied: matteop
11.03.2014 um 14:40 Uhr
Hallo,

Vielen Dank für prompte Rückmeldung.
Das Skript funktioniert perfekt.....
Eine Frage vieleicht noch:
Wie wird Skript ausgeführt unabhängig von Verzeichniss?

Dh. Nur Skript kopieren in Verzeichniss wo Änderungen in .htm file's notwendig sind und ausführen.
Damit sollte Verzeichniss in .vbs Script nicht geändert werden.


Mit freundlichen Grüßen,
matteop
Bitte warten ..
Mitglied: colinardo
LÖSUNG 11.03.2014, aktualisiert um 15:24 Uhr
01.
Set fso = WScript.CreateObject("Scripting.Filesystemobject") 
02.
'Ordner mit den Dateien = Ordner in dem sich das Script befindet 
03.
strFolder = fso.GetParentFolderName(WScript.ScriptFullName) 
04.
'Erweiterungen der Dateien die durchsucht werden sollen 
05.
arrFileExtensions = Array("htm") 
06.
'String welcher gesucht wird 
07.
Const strSearch = "target=""_parent"" onclick=""window.event.cancelBubble=true;"" style='position:" 
08.
'String der den Suchstring ersetzt 
09.
Const strReplace = "target=""_blank"" onclick=""window.event.cancelBubble=true;"" style='position:" 
10.
intFileEditCounter = 0 
11.
Set rootFolder = fso.GetFolder(strFolder) 
12.
'Funktion zum durchsuchen aufrufen, wenn auch Dateien in Unterordnern durchsucht  
13.
'werden sollen muss der zweite Parameter auf 'True' gesetzt werden 
14.
parseFolder rootFolder, False 
15.
Set fso = Nothing 
16.
WScript.Echo "Suchen und Ersetzen wurde abgeschlossen!" & vbNewLine & "In " & intFileEditCounter & " Datei(en) wurden Ersetzungen vorgenommen!" 
17.
 
18.
Function parseFolder(strFldr,boolRecursion) 
19.
	For each file In strFldr.Files 
20.
		For i = 0 To UBound(arrFileExtensions) 
21.
			If LCase(arrFileExtensions(i)) = LCase(fso.GetExtensionName(file.Path)) And Left(file.Name,5) = "slide" Then 
22.
				Set f = fso.OpenTextFile(file.Path,1) 
23.
				If Not f.AtEndOfStream Then 
24.
					strContent = f.ReadAll() 
25.
					f.Close 
26.
					strNewContent = Replace(strContent,strSearch,strReplace,1,-1,vbTextCompare) 
27.
					If strContent <> strNewContent Then 
28.
						Set f = fso.OpenTextFile(file.Path,2) 
29.
						f.Write(strNewContent) 
30.
						f.Close 
31.
						intFileEditCounter = intFileEditCounter + 1 
32.
					End If 
33.
				Else 
34.
					f.Close 
35.
				End if 
36.
				Exit For 
37.
			End If 
38.
		Next 
39.
	Next 
40.
	 
41.
	If boolRecursion Then 
42.
		For Each subFolder in strFldr.SubFolders 
43.
			parseFolder subFolder, True 
44.
		Next 
45.
	End If 
46.
End Function
Bitte warten ..
Mitglied: matteop
11.03.2014 um 15:24 Uhr
Hallo,

Perfekt!

LG,
matteop
Bitte warten ..
Ähnliche Inhalte
Microsoft
Wie registry.pol Dateien editieren
gelöst Frage von DerWoWussteMicrosoft3 Kommentare

Hi! Mit welchem Tool kann ich, ohne das Format zu zerschießen, diese Dateien (aus GPOs) editieren? OK, da keine ...

Windows Server
Gruppenrichtlinie Datei ersetzen, einmalig anwenden
gelöst Frage von MeierjoWindows Server2 Kommentare

Hallo zusammen System: Windows 2011 SBS, Clients Win7 64Bit Habe da folgendes Verständigungsproblem: Im Gruppenrichtlinien-Editor gibt's die Möglichkeit, Dateien ...

Windows 7
GPO Dateien und Verzeichnisse kopieren
Frage von crash7782Windows 711 Kommentare

Hallo, es bekomme es nicht hin, dass ein Verzeichnis vom Fileserver auf die Clients ins Programm Verzeichnis kopiert werden. ...

Datenbanken
Access Datenbank Datei ändern und auf andere Dateien anwenden
Frage von MetamorDatenbanken4 Kommentare

Hallo, eine Access Datenbank soll entwickelt werden, dann kopiert und jede für sich benutzt werden, mit eigenen Datensätzen. Soweit ...

Neue Wissensbeiträge
Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 12 StundenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 13 StundenSicherheit7 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 14 StundenSicherheit8 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Sicherheit

Meltdown und Spectre: Die machen uns alle was vor

Information von Frank vor 14 StundenSicherheit12 Kommentare

Aktuell sieht es in den Medien so aus, als hätten die Hersteller wie Intel, Microsoft und Co den aktuellen ...

Heiß diskutierte Inhalte
Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von 92943Windows 1031 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Batch & Shell
Anmeldevorgang für Informatikraum (Schule) unter Windows
gelöst Frage von IngenieursBatch & Shell29 Kommentare

Hey zusammen, ich werde in naher Zukunft den Informatik Raum meiner jetzigen Schule von dem aktuellen Betreiber übernehmen (Vertrag ...

Netzwerkgrundlagen
Welches Modem für VDSL 50000 der T-Com
Frage von Windows10GegnerNetzwerkgrundlagen20 Kommentare

Hallo, ein Kollege von mir will sich VDSL50000 von der T-Com holen, um daran einen Server zu betreiben. Ich ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...