Mise en forme de fichier
Description
ce script permet de mettre en forme certain fichiers
qui sont mal mis en forme comme les access.log ou
des pages php que l'on recupere dans le dossier
temporaire internet , ou les retour a la lignes sont
ecrit en caracteres speciaux
resultat des lignes ecrites les unes a la suite des
autres et donc difficulté a s'y retrouvé.
il faut mettre le fichier dans le meme repertoire que le script
il ne controle pas la saisie du nom de fichier ou son existence dans ce cas suprimer le script dans le gestionnaire des taches
qui sont mal mis en forme comme les access.log ou
des pages php que l'on recupere dans le dossier
temporaire internet , ou les retour a la lignes sont
ecrit en caracteres speciaux
resultat des lignes ecrites les unes a la suite des
autres et donc difficulté a s'y retrouvé.
il faut mettre le fichier dans le meme repertoire que le script
Source / Exemple :
On Error Resume Next
Dim fich1,titi,MySt,fich,f,fs
fich1 = InputBox("Entrez le nom de fichier","by racattac13")
Set fs = CreateObject("Scripting.FileSystemObject") 'creation d'un objet systeme de fichier
Set f=fs.OpenTextFile(fich1,1) 'ouverture du fichier en lecture
ligne=""
titi= fs.GetBaseName(fich1)
'MySt = Split(titi, ".", -1, 1)
fich=titi&"propre.txt"
Set MyFile = fs.CreateTextFile(fich,2,True)
Do While f.AtEndOfStream <> True
temp=f.Read(1)
If Asc(temp)<>10 Then
ligne=ligne&temp
Else
MyFile.WriteLine(ligne)
ligne=""
End If
if f.AtEndOfStream=True Then
MyFile.WriteLine(ligne)
end if
Loop
f.Close()
MyFile.Close()
Set ws= CreateObject("WScript.Shell")
ws.Run fich
Conclusion :
il ne controle pas la saisie du nom de fichier ou son existence dans ce cas suprimer le script dans le gestionnaire des taches
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.