Moulinette pour extraire les commentaires

[itasoft]

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

[Schul]

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

[itasoft]

slts,
non c'est dejà pour les commentaires en (* *)
je l'avais precisé plus haut : celui avec les commentaires (* xxxx *)

[Béryl]

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

[Schul]

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

[Brebiou]

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

J'avoue m'être posé la même question...

[itasoft]

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

[Béryl]

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.

[itasoft]

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