Es ist eine kleine Sache, die aufgrund der Arbeit stapelweise geändert werden muss. Ich werde Ihnen die Dateitypen mitteilen, die derzeit verarbeitet werden können: .asp .inc .htm .html Die spezifischen Typen können geändert werden Sie selbst
. Vom Programm implementierte Funktionen: Ändern Sie die Dateitypen im Quellverzeichnis. Nachdem die Dateien stapelweise geändert wurden, werden sie im Zielverzeichnis gespeichert und mit geringfügigen Änderungen können viele Dinge erreicht werden!
Ganz zu schweigen von etwas anderem, es ist alles klar im Code geschrieben.
<%
'// +------------------------------- --- -----------+
'// |. Programmname: Stone Code Batch Modifier v1.01 |
'// |. Das Urheberrecht von Stones from Other Mountains wird auf Verletzung untersucht! Bitte geben Sie beim Nachdruck das Urheberrecht an:) |
'// |. ---------------- -------------------------- |
'// |. System: EditPlus; Einzugslänge: 8;
'// |. ---------------- -------------------------- |
'// |. Ersteller: WYC; Erstellungszeit: 08.03.2004;
'// |. Autor: WYC; Schreibzeit: 08.03.2004;
'// +------------------------------- --- --------------------------------+
Server.ScriptTimeOut = 500 'Skript-Timeout
'// +-- ----- --------------------------------------------- ----- ----+
'// |. Batch-Änderungsfunktion |
'// |. ---------------- -------------------------- |
'// |. Attribut: Pfad_vom Quelldateiverzeichnis Pfad_zum Zieldatei-Arbeitsverzeichnis |
'// |. ---------------- -------------------------- |
'// |. Rückgabewert: Keiner |
'// |. ---------------- -------------------------- |
'// |. Programmablauf:... |
'// |. ---------------- -------------------------- |
'// |. Autor: WYC; Schreibzeit: 08.03.2004;
'// +------------------------------- --- -----------+
Sub-Midfile(path_from, path_to)
list_from = path_from 'Speichert das aktuelle Quellarbeitsverzeichnis
list_to = path_to 'Speichert das aktuelle Zielarbeitsverzeichnis
Setze fso = CreateObject("Scripting.FileSystemObject")
Set Fold = fso.GetFolder(list_from) 'Ordnerobjekt abrufen
Set fc = Fold.Files 'Dateidatensatzsatz abrufen
Set mm = Fold.SubFolders 'Verzeichnisdatensatzsatz abrufen
Für jedes f2 in mm
set objfile = server.createobject("scripting.filesystemobject")
objfile.CreateFolder(path_to & "" & f2.name) 'Verzeichnis erstellen
midfile path_from & "" & f2.name, path_to & "" & f2.name 'Rekursiver Aufruf
Response.write path_to & "" & f2.name & " Fertig!<br>"
Nächste
Für jedes f1 in fc
file_from = list_from & "" & f1.name 'Dateiadresse generieren (Quelle)
file_to = list_to & "" & f1.name 'Dateiadresse generieren (an)
fileExt = lcase(right(f1.name,4)) 'Den Dateityp abrufen
Wenn fileExt=".asp" oder fileExt=".inc" oder fileExt=".htm" oder fileExt="html" Dann 'Der spezifische Typ kann von Ihnen selbst geändert und hinzugefügt werden
set objfile = server.createobject("scripting.filesystemobject") 'Definieren Sie eine Serverkomponente (Quelldatei lesen)
set out = objfile.opentextfile(file_from, 1, false, false)
content = out.readall 'Daten lesen
out.close
'// +---------------------------- --- --------+
'// |. Dateiinhaltsverarbeitungsmodul (hauptsächlich sind andere Dateioperationen) |
Setze regEx = New RegExp
regEx.Pattern = "(>s*n)"
regEx.Global = true 'Alle passenden Modi festlegen
content = regEx.Replace(content, ">") 'Ersetzen Sie das Wagenrücklaufzeichen
content = Replacement(content, " ", "") 'Tab ersetzen
'// +------------------------------- --- -----+
set objfile = server.createobject("scripting.filesystemobject") 'Definieren Sie eine Serverkomponente (in die Zieldatei schreiben)
set outt = objfile.createtextfile(file_to,TRUE,FALSE)
outt.write(content) 'Daten schreiben
outt.close
else 'Andernfalls kopieren Sie die Datei direkt
Setze fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile file_from, file_to
Ende wenn
Nächste
End Sub
midfile Server.mappath("temp/aaa"), Server.mappath("temp/bbb") 'Rufen Sie das Beispielquellverzeichnis temp/aaa auf und speichern Sie es nach der Verarbeitung in temp/bbb
'Quellverzeichnis Zielverzeichnis (muss ein vorhandenes Verzeichnis sein)
%>
Mit freundlichen Grüßen Manyou (Stein aus anderen Bergen)