Communauté Francophone AutoIt
https://autoitscript.fr/forum/
Code : Tout sélectionner
StringReplace($lines[$i], $VALUE, $i)Code : Tout sélectionner
#Include <File.au3>
#include <String.au3>
$StringStart = '"%'
$StringEnd = '%"'
$file = FileOpenDialog("open", "C:\", "Script (*.au3)")
preCompil($file)
Func preCompil(Const $file)
;~ Lire toutes les lignes du fichier
Local $lines
_FileReadToArray($file, $lines)
$NbLines = 0
;~ Boucle For de remplacement
For $i = 1 To $lines[0]
; recherche du contenu entre le Start et le end
$arrayString = _StringBetween($lines[$i], $StringStart, $StringEnd)
; s'il ne trouve rien ou que le numéro de ligne est déjà le même il ne change rien
if not @error and $arrayString[0] <> $i then
$VALUE = $StringStart & $arrayString[0] & $StringEnd
; Remplace l'ancienne valeur par la nouvelle
$lines[$i] = StringReplace($lines[$i], $VALUE, $StringStart & $i & $StringEnd)
$NbLines += 1
EndIf
Next
_FileWriteFromArray($file & "_compiled.au3", $lines, 1)
MsgBox(0,"Precompil End", $NbLines & " modified.")
EndFunc