Moulinette pour extraire les commentaires
- itasoft
- Mi homme - Mi automate
- Messages : 7037
- Inscription : 20 oct. 2015, 10:15
- Localisation : Lyon
- Contact :
Moulinette pour extraire les commentaires
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
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
itasoft@free.fr
Re: Moulinette pour extraire les commentaires
Moulinette Man ! Si je comprends bien, ce sont les commentaires en (\\) ? si commentaires en (* *) juste à remplacer la ligne oRegExp.Pattern = "\(\*[^\)]*\*\)"?
- itasoft
- Mi homme - Mi automate
- Messages : 7037
- Inscription : 20 oct. 2015, 10:15
- Localisation : Lyon
- Contact :
Re: Moulinette pour extraire les commentaires
slts,
non c'est dejà pour les commentaires en (* *)
je l'avais precisé plus haut : celui avec les commentaires (* xxxx *)
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
itasoft@free.fr
- Béryl
- Mi homme - Mi automate
- Messages : 1661
- Inscription : 20 oct. 2015, 12:00
- Localisation : localhost
Re: Moulinette pour extraire les commentaires
C'est quoi l'intérêt ?
Re: Moulinette pour extraire les commentaires
Ben voilà, je suis le parfait exemple du mec qui en fin de journée lit les posts en diagonale...
- itasoft
- Mi homme - Mi automate
- Messages : 7037
- Inscription : 20 oct. 2015, 10:15
- Localisation : Lyon
- Contact :
Re: Moulinette pour extraire les commentaires
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
ç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
Automaticien privé (de tout)
itasoft@free.fr
itasoft@free.fr
- Béryl
- Mi homme - Mi automate
- Messages : 1661
- Inscription : 20 oct. 2015, 12:00
- Localisation : localhost
Re: Moulinette pour extraire les commentaires
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.
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
- Mi homme - Mi automate
- Messages : 7037
- Inscription : 20 oct. 2015, 10:15
- Localisation : Lyon
- Contact :
Re: Moulinette pour extraire les commentaires
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
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
itasoft@free.fr