Moulinette pour extraire les commentaires

Sous forum réservé aux tutoriaux concernant les produits de la marque Schneider
Répondre
Avatar de l’utilisateur
itasoft
Mi homme - Mi automate
Mi homme - Mi automate
Messages : 3951
Enregistré le : 20 oct. 2015, 10:15
Localisation : Lyon
Contact :

Moulinette pour extraire les commentaires

Message par itasoft » 21 sept. 2017, 11:56

Slts,
Pour un besoin ponctuel j’avais fait une moulinette pour extraire les commentaires de tout fichier ASCII
La copier si le besoin s’en fait cruellement sentir.
Procédure :
Copier les lignes du script ci dessous et les coller dans le Bloc-notes, enregistrer sous ExtraitComment.vbs
Avec l’explorateur de fichiers de Windows double clic sur le fichier .vbs pour lancer la moulinette,
Ouvrir le fichier source, celui avec les commentaires (* xxxx *) , Résultat dans le fichier _ RESULT _
=====================================


Option explicit
Dim TXT,fileNameSource,fileNameCible
Dim mySize
Dim FSO,Rtxt,Wtxt
Dim oRegExp, oMatches, oMatch
Set oRegExp = CreateObject("VBScript.RegExp")
oRegExp.Global = True
fileNameSource=Ucase(GetFileNameDlg())
if InStr(fileNameSource,".")=0 then
MsgBox("Fichier avec Extension obligatoire ex: *.txt")
WScript.Quit 0
end if
fileNameCible = Replace(fileNameSource, ".", "_RESULT_.")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Rtxt = FSO.OpenTextFile(fileNameSource)
TXT=Rtxt.ReadAll
Rtxt.close
Set Wtxt = FSO.createTextFile(fileNameCible,true)
oRegExp.Pattern = "\(\*[^\)]*\*\)"
Set oMatches = oRegExp.Execute(TXT)
For Each oMatch In oMatches
if instr(oMatch.Value,"PHRAS")= 0 then Wtxt.writeline (oMatch.Value)
Next
Wtxt.close
Set oRegExp = Nothing
Set FSO = Nothing
Set Rtxt = Nothing
Set Wtxt = Nothing
MsgBox "Fin des opérations" , vbInformation, fileNameCible
Function GetFileNameDlg()
GetFileNameDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<input type=file id=f><script language=""VBScript"">f.click():CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).Write(f.value):close()</script>""").StdOut.ReadAll
End Function
Automaticien privé (de tout)
itasoft@free.fr

Avatar de l’utilisateur
Schul
Forcené des structures
Forcené des structures
Messages : 179
Enregistré le : 28 mai 2017, 16:55
Localisation : reims

Re: Moulinette pour extraire les commentaires

Message par Schul » 21 sept. 2017, 18:27

Moulinette Man ! Si je comprends bien, ce sont les commentaires en (\\) ? si commentaires en (* *) juste à remplacer la ligne oRegExp.Pattern = "\(\*[^\)]*\*\)"?

Avatar de l’utilisateur
itasoft
Mi homme - Mi automate
Mi homme - Mi automate
Messages : 3951
Enregistré le : 20 oct. 2015, 10:15
Localisation : Lyon
Contact :

Re: Moulinette pour extraire les commentaires

Message par itasoft » 21 sept. 2017, 18:33

slts,
non c'est dejà pour les commentaires en (* *)
je l'avais precisé plus haut : celui avec les commentaires (* xxxx *)
Automaticien privé (de tout)
itasoft@free.fr

Avatar de l’utilisateur
Béryl
Dieu du process
Dieu du process
Messages : 863
Enregistré le : 20 oct. 2015, 12:00
Localisation : localhost

Re: Moulinette pour extraire les commentaires

Message par Béryl » 22 sept. 2017, 07:50

C'est quoi l'intérêt ?

Avatar de l’utilisateur
Schul
Forcené des structures
Forcené des structures
Messages : 179
Enregistré le : 28 mai 2017, 16:55
Localisation : reims

Re: Moulinette pour extraire les commentaires

Message par Schul » 22 sept. 2017, 08:42

Ben voilà, je suis le parfait exemple du mec qui en fin de journée lit les posts en diagonale...

Avatar de l’utilisateur
Brebiou
Créateur de langage
Créateur de langage
Messages : 637
Enregistré le : 21 oct. 2015, 08:38

Re: Moulinette pour extraire les commentaires

Message par Brebiou » 22 sept. 2017, 13:34

Béryl a écrit :
22 sept. 2017, 07:50
C'est quoi l'intérêt ?
J'avoue m'être posé la même question...

Avatar de l’utilisateur
itasoft
Mi homme - Mi automate
Mi homme - Mi automate
Messages : 3951
Enregistré le : 20 oct. 2015, 10:15
Localisation : Lyon
Contact :

Re: Moulinette pour extraire les commentaires

Message par itasoft » 22 sept. 2017, 17:01

slts,
ça n'as aucun intérêt si le besoin s'en fait pas ressentir , LOL
Disons que moi, je l'avait fait pour faire traduire les commentaires en portugais pour le Brésil.
Une autre moulinette remplace dans le fichier source tous les commentaires en français par ceux en portugais.
Sinon sans cette autre moulinette il aurait fallu tous se les palucher à la mano.
-
cliquer dessus
_portos.JPG
Automaticien privé (de tout)
itasoft@free.fr

Avatar de l’utilisateur
Béryl
Dieu du process
Dieu du process
Messages : 863
Enregistré le : 20 oct. 2015, 12:00
Localisation : localhost

Re: Moulinette pour extraire les commentaires

Message par Béryl » 23 sept. 2017, 08:26

Ah bin là c'est plus clair en effet !
Il faut donc que ta première moulinette sache où elle a pris les commentaires dans le fichier pour que la seconde les remette bien à leur place.

Avatar de l’utilisateur
itasoft
Mi homme - Mi automate
Mi homme - Mi automate
Messages : 3951
Enregistré le : 20 oct. 2015, 10:15
Localisation : Lyon
Contact :

Re: Moulinette pour extraire les commentaires

Message par itasoft » 23 sept. 2017, 13:37

slts,
oui c'est ça.
Autre utilisation pour ceux qui font une faute d’orthographe à chaque mot (déjà vu ça sur le forum, LOL)
Passer le fichier _RESULT_ au correcteur orthographique puis tout re-integrer avec la moulinette n°2
Automaticien privé (de tout)
itasoft@free.fr

Répondre