Mise en forme de fichier

Soyez le premier à donner votre avis sur cette source.

Vue 5 300 fois - Téléchargée 145 fois

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

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
62
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
14 février 2010

ca y est j'ai compris, c'est ca qui ouvre la boite de dialogue
mais non pas sur l'ordi ou suis en ce moment , mais je l'ai sur un autre, j'essaierais .
Merci et a plus
Et sinon ca va mieux mon script avec ses corrections?
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
d'ou l'installation de VB susditement déclarée inexistante sur ton poste....

en fait, il cherche a utiliser cette Dll, fournie avec VB.

(je sais pas si tu l'as, sans VB)
Messages postés
62
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
14 février 2010

ok suis calme...
Ben ouai pour ton code suis d'accord que c'est du vbs (sauf 2 ou 3 trucs que je connaissai pas ) mais pourquoi faudrait il que j'installe VB alors?

p.s: les trucs que moi pas connaitre c'est l'objet MSComDlg.CommonDialog de plus sur un autre poste il m'indique comme erreur que cette classe n'as pas de licence d'utilisation????
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
oh là ! on reste calme !

j'ai bien vu que ton code etait du VBS , ce que j'ai proposé est du VBS également !
Messages postés
62
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
14 février 2010

et bien ca explique tout , et ca commence a m'enerver car presque tout les scripts que j'ai mis se sont fait allumé avec des commentaire du style "ouais le mien est mieux avec mon ocx " ou encore "pourquoi tu utilise les fso..."

C'est du VBS que je fait et en plus dans la catégorie debutant donc je veut bien prendre des critique mais rester au VBS et je m'en fout completement du VB et des .net ou des ocx et je ne sais pas quoi encore

Et je ne risque pas d'installer VB dans ma machine , vue sa lenteur , Tant a mettre un compilateur je prefere le C,C++, du perl et meme l'assembleur mais pas du VB (merde alors!)

Bref mes scripts en ligne sont la pour rendre des petit service et montrer comment en peut donc faire pour un petit programme sans se casser la tete avec un compilateur
Afficher les 13 commentaires

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.