Ci-dessous 2 scripts le premier est pour supprimer lignes doublons. Le deuxième script pour lister les lignes par ordre alphabétique. Je cherche la solution pour écrire le résultat (_ArraySort) sur un fichier texte : FileWrite("c:\test3.txt","?")
Merci pour votre aide.
Cordialement.
$filename1 = "c:\test1.txt"
$filename2 = "c:\test2.txt"
$use = ""
$line = "1"
$file = FileOpen($filename1, 0)
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$Present = StringInStr($use,$line)
if $present = "0" then
$use = $use & $line & '|'
FileWrite($filename2, $line &@CRLF)
EndIf
WEnd
;======================================================
;Lister par ordre alphabétique.
#Include <File.au3>
#include <Array.au3>
Sleep(6000)
$filename2 = "c:\test2.txt"
$Tri = _FileLineTri($filename2)
_ArrayDisplay($Tri)
Func _FileLineTri($File,$iDescending = 0)
$Nbrlines = _FileCountLines($File)
Local $Tableau[$Nbrlines]
$Var = -1
For $i = 1 To $Nbrlines
$Tableau[$Var+1] = FileReadLine($File,$i)
$Var += 1
Next
_ArraySort($Tableau,$iDescending)
Return $Tableau
EndFunc
$filename2 = "c:\test2.txt"
$use = ""
$line = "1"
$file = FileOpen($filename1, 0)
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$Present = StringInStr($use,$line)
if $present = "0" then
$use = $use & $line & '|'
FileWrite($filename2, $line &@CRLF)
EndIf
WEnd
;======================================================
;Lister par ordre alphabétique.
#Include <File.au3>
#include <Array.au3>
Sleep(6000)
$filename2 = "c:\test2.txt"
$Tri = _FileLineTri($filename2)
_ArrayDisplay($Tri)
Func _FileLineTri($File,$iDescending = 0)
$Nbrlines = _FileCountLines($File)
Local $Tableau[$Nbrlines]
$Var = -1
For $i = 1 To $Nbrlines
$Tableau[$Var+1] = FileReadLine($File,$i)
$Var += 1
Next
_ArraySort($Tableau,$iDescending)
Return $Tableau
EndFunc