C'est une petite chose qui doit être faite pour modifier le code par lots en raison du travail. Je partagerai avec vous les types de fichiers qui peuvent être traités actuellement : .asp .inc .htm .html Les types spécifiques peuvent être modifiés par. vous-même
. Fonctions implémentées par le programme : Changer les types de fichiers dans le répertoire source Une fois les fichiers modifiés par lots, ils sont enregistrés dans le répertoire de destination et beaucoup de choses peuvent être réalisées avec de légères modifications !
Pour ne rien dire d’autre, tout est clairement écrit dans le code.
<%
Server.ScriptTimeOut = 500 'Délai d'expiration du script
' // +-------------------------------------- -- -----------------------------------------------+
'// Fonction de modification par lots |
'// | ---------------------------------------------- -------------------------- |
'// Attribut : chemin_du répertoire du fichier source chemin_vers le répertoire de travail du fichier cible |
'// | ---------------------------------------------- -------------------------- |
'// | Valeur de retour : Aucune |
'// | ---------------------------------------------- -------------------------- |
'// | Déroulement du programme :... |
'// | ---------------------------------------------- -------------------------- |
'// Écrivain : WYC ; Temps d'écriture : 2004-03-08 ;
'// +---------------------------------------------- --- ----------------+
Sous-fichier intermédiaire (path_from, path_to)
list_from = path_from 'Stockage du répertoire de travail source actuel
list_to = path_to 'Enregistre le répertoire de travail cible actuel
Définir fso = CreateObject("Scripting.FileSystemObject")
Set Fold = fso.GetFolder(list_from) 'Obtenir l'objet Dossier
Set fc = Fold.Files 'Obtenir le jeu d'enregistrements de fichier
Set mm = Fold.SubFolders 'Obtenir le jeu d'enregistrements de répertoire
Pour chaque f2 en mm
set objfile = server.createobject("scripting.filesystemobject")
objfile.CreateFolder(path_to & "" & f2.name) 'Créer un répertoire
midfile path_from & "" & f2.name, path_to & "" & f2.name 'Appel récursif
réponse.write path_to & "" & f2.name & " Terminé !<br>"
Suivant
Pour chaque f1 dans FC
file_from = list_from & "" & f1.name 'Générer l'adresse du fichier (source)
file_to = list_to & "" & f1.name 'Générer l'adresse du fichier (vers)
fileExt = lcase(right(f1.name,4)) 'Obtenir le type de fichier
Si fileExt=".asp" ou fileExt=".inc" ou fileExt=".htm" ou fileExt="html" Alors 'Le type spécifique peut être modifié et ajouté par vous-même
set objfile = server.createobject("scripting.filesystemobject") 'Définir un composant serveur (lire le fichier source)
exposé = objfile.opentextfile(file_from, 1, false, false)
content = out.readall 'Lire les données
out.close
'// +---------------------------------------------------------- --- ---------+
'// | Module de traitement du contenu des fichiers (principalement, les autres sont des opérations sur les fichiers) |
Définir regEx = Nouvelle RegExp
regEx.Pattern = "(>s*n)"
regEx.Global = true 'Définir tous les modes de correspondance
content = regEx.Replace(content, ">") 'Remplacer le caractère de retour chariot
content = Remplacer(content, " ", "") 'Remplacer l'onglet
'// +---------------------------------------------- --- -----+
set objfile = server.createobject("scripting.filesystemobject") 'Définir un composant serveur (écrire dans le fichier cible)
set outt = objfile.createtextfile(file_to,TRUE,FALSE)
outt.write(content) 'Écrire des données
sortie.close
else 'sinon copiez le fichier directement
Définir fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile file_from, file_to
Fin si
Suivant
End Sub
midfile Server.mappath("temp/aaa"), Server.mappath("temp/bbb") 'Appelle le répertoire source de l'échantillon temp/aaa et enregistre-le dans temp/bbb après le traitement
'Répertoire de destination du répertoire source (doit être un répertoire existant)
%>
Cordialement à vous (pierre d'autres montagnes)