Suppression de lignes et d'espaces inutiles Topic is solved

[Dan67]

Bonjour,
Je cherche un moyen pour supprimer les espaces inutiles et les lignes comportant des % dans un script AutoHotKey
Le fichier log ressemble à ça :

D:\Docs_Dan\01.Perso\01.Famille\10.Dossiers_Ressources\Notices\Aeromodelisme\Aeromodelisme_Charge_Accus_et_Radio_Graupner-txt.axx
98%
99%
100%
D:\Docs_Dan\01.Perso\01.Famille\10.Dossiers_Ressources\Notices\Aeromodelisme\Charge_Accus-txt.axx
98%
99%
100%
D:\Docs_Dan\01.Perso\01.Famille\10.Dossiers_Ressources\Notices\Aeromodelisme\Graupner_MX-16s-txt.axx
97%
99%
100%
D:\Docs_Dan\01.Perso\01.Famille\10.Dossiers_Ressources\Notices\Aeromodelisme\mx-16s_Manuel-pdf.axx
15%
31%
47%
63%
79%
95%
99%
99%
100%

et je voudrais qu'il ressemble à ça :
D:\Docs_Dan\01.Perso\01.Famille\10.Dossiers_Ressources\Notices\Aeromodelisme\Aeromodelisme_Charge_Accus_et_Radio_Graupner-txt.axx
D:\Docs_Dan\01.Perso\01.Famille\10.Dossiers_Ressources\Notices\Aeromodelisme\Charge_Accus-txt.axx
D:\Docs_Dan\01.Perso\01.Famille\10.Dossiers_Ressources\Notices\Aeromodelisme\Graupner_MX-16s-txt.axx
D:\Docs_Dan\01.Perso\01.Famille\10.Dossiers_Ressources\Notices\Aeromodelisme\mx-16s_Manuel-pdf.axx

En vous remerciant par avance pour votre aide.
Cdt
Dan

[garry]

example

Code: Select all

#Requires AutoHotkey 1    ;- AHK version-1
#Warn
setworkingdir,%a_scriptdir%
;-
F1:=a_desktop . "\logfile.txt"                     ;- original-file
F2:=a_desktop . "\" . a_now . "_logfile.txt"       ;- modified-file
;-
;--- TEST
rr= 
(Ltrim join`r`n `%
D:\Docs_Dan\01.Perso\01.Famille\10.Dossiers_Ressources\Notices\Aeromodelisme\Aeromodelisme_Charge_Accus_et_Radio_Graupner-txt.axx
98%
99%
100%
    D:\Docs_Dan\01.Perso\01.Famille\10.Dossiers_Ressources\Notices\Aeromodelisme\Charge_Accus-txt.axx
98%
99%
100%
D:\Docs_Dan\01.Perso\01.Famille\10.Dossiers_Ressources\Notices\Aeromodelisme\Graupner_MX-16s-txt.axx
97%
99%
100%
D:\Docs_Dan\01.Perso\01.Famille\10.Dossiers_Ressources\Notices\Aeromodelisme\mx-16s_Manuel-pdf.axx
15%
31%
47%
63%
79%
95%
99%
99%
100%

)
ifnotexist,%f1%
 fileappend,%rr%,%f1%
;------ END create TEST-file  ----------------- 
;----------------------------------------------
;FileSelectFile, F1, 3,, Open File, Text Documents (*.txt)
;if not F1       ; No file selected.
;    return
fileread,aa,%f1%
e:=""
Loop,parse,aa,`n,`r
  {
  x:=a_loopfield
  x=%x%
  stringmid,cc,x,1,3
  if (cc="D:\")
    e.=x . "`r`n"
  }
;msgbox,%e%
fileappend,%e%,%f2%
try,run,%f2%
exitapp