Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[?] Supprimer les doublons dans un fichier texte
Auteur Message
Répondre en citant
Message [?] Supprimer les doublons dans un fichier texte 
Hello,

Et oui, j'ai de nouveau un problème.

Ayant vu peu de sujet concernant (sur internet) et ne trouvant pas de solution dans la doc, je vient, comme a mon habitude, vous questionné.

Comme dit dans le titre, je cherche un code qui permettrait de supprimer les doublons dans un fichier texte.

Exemple:
Citation:
Avant:
Code:
Hello
World
World
Hello

Après:
Code:
Hello
World


Voila, j'espère avoir été assez précis cette fois Neutral .

Merci d'avance,
£`/@]




______________________________________________________


*Si l'erreur est humaine c'est parce que l'humanité en est une.*

£'/@] - Anciennement rekaca
MSN Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [?] Supprimer les doublons dans un fichier texte 
Hello !

Oui avec l'exemple c'est déjà mieux. moz_laughing

Tu devras faire un tableau et avec des boucles tu regardes si la ligne que tu va entrer dans le tableau y est déjà.

Voilà quelques liens qui vont t'aider :

http://www.autoitscript.fr/forum/viewtopic.php?f=3&t=1452
http://autoitscript.fr/forum/viewtopic.php?f=3&t=2219&hilit=supprimer+doublons




______________________________________________________
Répondre en citant
Message [?] Supprimer les doublons dans un fichier texte 
Tiens bizzare mon sujet a été supprimé ça se trouve j'ai oublié de le valider la derniere fois.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [?] Supprimer les doublons dans un fichier texte 
Hello,

Merci pour ta réponse Sablier!
Je vais feuilleté tes liens de se pas Smile

@Laddy: Euh... Pourquoi posté dans se sujet pour dire que ton sujet a été supprimer sachant que l'on ne sait même pas de quelle sujet tu parles? Neutral


M'enfin bon,
Merci encore pour ta réponse sablier.

£`/@]




______________________________________________________


*Si l'erreur est humaine c'est parce que l'humanité en est une.*

£'/@] - Anciennement rekaca
MSN Skype
Répondre en citant
Message [?] Supprimer les doublons dans un fichier texte 
Hello,

Bon, j'ai essayé avec les liens que tu m'as donné mais je n'y arrive pas...

Je vous explique donc mon porblème:
J'ai un fichier texte avec la liste complète des polices d'écriture qui sont stocké dans le registre.
Dans se fichier il y a des nom en double, c'est ceux la que je veut supprimé...
Code:
Arial
Arial 
Arial 
Arial   
Batang & BatangChe & Gungsuh & GungsuhChe
Courier New
Courier New 
Courier New 
Courier New   
DaunPenh
DokChampa
Estrangelo Edessa
Euphemia
Gautami
Gautami 
Vani
Vani 
Gulim & GulimChe & Dotum & DotumChe
Impact
Iskoola Pota
Iskoola Pota 
Kalinga
Kalinga 
Kartika
Kartika 
Khmer UI
Khmer UI 
Lao UI
Lao UI 
Latha
Latha 
Lucida Console
Malgun Gothic
Malgun Gothic 
Mangal
Mangal 
Meiryo & Meiryo  & Meiryo UI & Meiryo UI 
Meiryo  & Meiryo   & Meiryo UI  & Meiryo UI   
Microsoft Himalaya
Microsoft JhengHei
Microsoft JhengHei 
Microsoft YaHei
Microsoft YaHei 
MingLiU & PMingLiU & MingLiU_HKSCS
MingLiU-ExtB & PMingLiU-ExtB & MingLiU_HKSCS-ExtB
Mongolian Baiti
MS Gothic & MS PGothic & MS UI Gothic
MS Mincho & MS PMincho
MV Boli
Microsoft New Tai Lue
Microsoft New Tai Lue 
Nyala
Microsoft PhagsPa
Microsoft PhagsPa 
Plantagenet Cherokee
Raavi
Raavi 
Segoe Script
Segoe Script 
Segoe UI
Segoe UI 
Segoe UI 
Segoe UI   
Segoe UI Semi
Segoe UI Light
Segoe UI Symbol
Shruti
Shruti 
SimSun & NSimSun
SimSun-ExtB
Sylfaen
Microsoft Tai Le
Microsoft Tai Le 
Times New Roman
Times New Roman 
Times New Roman 
Times New Roman   
Tunga
Tunga 
Vrinda
Vrinda 
Shonar Bangla
Shonar Bangla 
Microsoft Yi Baiti
Tahoma
Tahoma 
Microsoft Sans Serif
Angsana New
Angsana New 
Angsana New 
Angsana New   
Aparajita
Aparajita 
Aparajita 
Aparajita 
Cordia New
Cordia New 
Cordia New 
Cordia New   
Ebrima
Ebrima 
Gisha
Gisha 
Kokila
Kokila 
Kokila 
Kokila 
Leelawadee
Leelawadee 
Microsoft Uighur
MoolBoran
Symbol
Utsaah
Utsaah 
Utsaah 
Utsaah 
Vijaya
Vijaya 
Wingdings
Modern (All res)
Roman (All res)
Script (All res)
Andalus
Arabic Typesetting
Simplified Arabic
Simplified Arabic 
Simplified Arabic Fixed
Sakkal Majalla
Sakkal Majalla 
Traditional Arabic
Traditional Arabic 
Aharoni 
David
David 
FrankRuehl
Levenim MT
Levenim MT 
Miriam
Miriam Fixed
Narkisim
Rod
FangSong
SimHei
KaiTi
AngsanaUPC
AngsanaUPC 
AngsanaUPC 
AngsanaUPC   
Browallia New
Browallia New 
Browallia New 
Browallia New   
BrowalliaUPC
BrowalliaUPC 
BrowalliaUPC 
BrowalliaUPC   
CordiaUPC
CordiaUPC 
CordiaUPC   
CordiaUPC 
DilleniaUPC
DilleniaUPC 
DilleniaUPC 
DilleniaUPC   
EucrosiaUPC
EucrosiaUPC 
EucrosiaUPC 
EucrosiaUPC   
FreesiaUPC
FreesiaUPC 
FreesiaUPC 
FreesiaUPC   
IrisUPC
IrisUPC 
IrisUPC 
IrisUPC   
JasmineUPC
JasmineUPC 
JasmineUPC 
JasmineUPC   
KodchiangUPC
KodchiangUPC 
KodchiangUPC 
KodchiangUPC   
LilyUPC
LilyUPC 
LilyUPC 
LilyUPC   
DFKai-SB
Lucida Sans Unicode
Arial Black
Calibri
Calibri 
Calibri 
Calibri   
Candara
Candara 
Candara 
Candara   
Comic Sans MS
Comic Sans MS 
Consolas
Consolas 
Consolas 
Consolas   
Constantia
Constantia 
Constantia 
Constantia   
Corbel
Corbel 
Corbel 
Corbel   
Franklin Gothic Medium
Franklin Gothic Medium 
Gabriola
Georgia
Georgia 
Georgia 
Georgia   
Palatino Linotype
Palatino Linotype 
Palatino Linotype 
Palatino Linotype   
Segoe Print
Segoe Print 
Trebuchet MS
Trebuchet MS 
Trebuchet MS 
Trebuchet MS   
Verdana
Verdana 
Verdana 
Verdana   
Webdings
Courier 10,12,15
MS Serif 8,10,12,14,18,24
MS Sans Serif 8,10,12,14,18,24
Small Fonts
Small Fonts (120)
ADMUI3.fon
Myriad Web Pro 
MyriadWebPro-Condensed
MyriadWebPro-Condensed
Myriad Web Pro 
Myriad Web Pro
Cambria & Cambria Math
Cambria 
Cambria 
Cambria   
DejaVu Sans Condensed  Oblique
DejaVu Serif 
Gentium Book Basic 
DejaVu Serif Condensed 
DejaVu Sans Mono Oblique
Gentium Basic 
Gentium Book Basic
DejaVu Serif   
DejaVu Serif 
Gentium Basic   
DejaVu Sans
DejaVu Sans Mono  Oblique
Gentium Book Basic   


Voila, maintenant que vous connaissez mon problème en détails, vous pouvez m'aidé plus précisément s'il vous plait?

Merci d'avance,
£`/@]




______________________________________________________


*Si l'erreur est humaine c'est parce que l'humanité en est une.*

£'/@] - Anciennement rekaca
MSN Skype
Répondre en citant
Message [?] Supprimer les doublons dans un fichier texte 
Hmm je trouve étrange que tu es des doublons dans l'extraction de ta clé de registre, car normalement tu as plutot

arial black
arial black italic
arial bold
arial bold italic

serait il possible d'avoir la code qui donne ton fichier font.txt


exemple :

Code:

$var = 0
$file = FileOpen("font.txt", 1)
While 1
    $temp = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\", $var + 1)
    If @error == -1 Then
        ExitLoop
    Else
       $font = StringLeft($temp, StringLen($temp) - 10)
      FileWrite($file, $font & @CRLF)
      $var += 1
    EndIf
WEnd
FileClose($file)




Citation:

Roman
Script
Modern
Small Fonts
Arial
Arial Bold
Arial Bold Italic
Arial Italic
Courier New
Courier New Bold
Courier New Bold Italic
Courier New Italic
Lucida Console
Lucida Sans Unicode
Times New Roman
Times New Roman Bold
Times New Roman Bold Italic
Times New Roman Italic
WingDings
Symbol
Symbol 8,10,12,14,18,24
Verdana
Verdana Bold
Verdana Italic
Verdana Bold Italic
Arial Black
Comic Sans MS
Comic Sans MS Bold
Impact
Georgia
Georgia Bold
Georgia Bold Italic
Georgia Italic
Franklin Gothic Medium
Franklin Gothic Medium Italic
Palatino Linotype
Palatino Linotype Bold
Palatino Linotype Bold Italic
Palatino Linotype Italic
Tahoma Bold
Trebuchet MS
Trebuchet MS Bold
Trebuchet MS Bold Italic
Trebuchet MS Italic
Webdings
Estrangelo Edessa
Gautami
Latha
Mangal
Mv Boli
Raavi
Shruti
Tunga
Sylfaen
WST_Czec (toutes ré
WST_Engl (toutes ré
WST_Fren (toutes ré
WST_Germ (toutes ré
WST_Ital (toutes ré
WST_Span (toutes ré
WST_Swed (toutes ré
Courier 10,12,15
MS Sans Serif 8,10,12,14,18,24
MS Serif 8,10,12,14,18,24
Tahoma
Microsoft Sans Serif Regular
Segoe UI Bold
Segoe UI
Old English Text
Fixed
Sys
Fixedsys for th
Terminal Font for th
Terminal Greek 737 (437G) fo
Syste
Terminal F
Book Antiqua
Bookman Old Style
Book Antiqua Gras
Book Antiqua Gras Italique
Book Antiqua Italique
Arial Black Italique
Bookman Old Style Gras
Bookman Old Style Gras Italique
Astronaut
AvantGarde-DemiOblique
Bangle Bold
Base 02
Bastarda-K
BBQcow moo
Biohazard Normal
Bukkake
buzpark
Cancontrol
Captain Podd
Cenobyte
Chinese Calligraphy Normal
Chingolo Pro
ChopinScript
Cocaine Sans Normal
crafty
Cyborg45
He's Dead Jim
DeathMix
Deejay Supreme
Deftone Stylus
Defused Extended Bold
Detroit 3k
Dimitri Swank
Display Dots
Don Giovonni Makin Enemies Normal
Dot Font Eng
Drakon
dreampop
Das Reicht Gut Regular
Dungeon Normal
EjectJap LowerPhat
Electroharmonix
Elektra
emison Normal
Enya Regular
Even Badder Mofo Normal
FairydustB
IM FELL FLOWERS 1
IM FELL FLOWERS 2
el&font gohtic! Regular
Fountain Pen Frenzy
Freebooter Script
Fruity Drink Carbonated
Galactic Basic
Gameboy Gamegirl
gatecrasher texan
Grenadier
Gunship
Hurricane SupaDupaSerif
Hybrid Bold
jailbIrD JenNA Normal
Jungle Juice
Konfuciuz
Mandingo
Mutlu Ornamental
Neon Lights
Parchment Normal
Paris Bold
Retro Rock Poster Normal
royal simplicity Normal
Rufa
Scriptina
123 and...
Abstract
Acens
AIFragment
Alba
Alba Matter
Andes
Andover
Andy Dufresne Normal
Army
Asenine
Asenine Super Thin
Asenine Thin
Asenine Wide
AG Foreigner Light Bold Bold
Klill-Light
KlillForTypesetters
KlillLightCondensed
Bitstream Vera Sans Oblique
Bitstream Vera Serif Bold
Bitstream Vera Sans Mono Bold Oblique
Bitstream Vera Sans Mono
Bitstream Vera Sans Mono Oblique
Bitstream Vera Sans
Bitstream Vera Serif
Bitstream Vera Sans Bold
Bitstream Vera Sans Mono Bold
Bitstream Vera Sans Bold Oblique
Exmouth
English
Champignon
Blue Highway
Blue Highway Condensed
Blue Highway Bold
Blue Highway Linocut
Digital Readout Upright
VAGRounded-Bold Cn
VAGRounded-Bold Wd
VAGRounded-Bold Ex
VAGRounded-Light Italic
VAGRounded-Light Ex
VAGRounded-Bold
VAGRounded-Light
Elementary Heavy SF Bold
Elementary SF
Verdict SF
Toledo SF
Opera SF Italic
Opera SF Bold Italic
Opera SF Bold
Opera SF
Superfly SF Bold Italic
Super Black SF
Sprint SF
Smashed SF
Sliver Normal
Zanzibar SF
Seabird Light SF Italic
Seabird Light SF
Seabird SF Italic
Seabird Heavy SF Bold Italic
Seabird Heavy SF Bold
Seabird SF Bold Italic
Seabird SF Bold
Seabird SF
Basic Sans SF Italic
Basic Sans SF Bold
Basic Sans SF
Basic Sans Light SF Italic
Basic Sans Heavy SF Bold Italic
Basic Sans Heavy SF Bold
Basic Sans Light SF
Blippo Light SF
Jagger SF
Plakette 5 SF
Plakette 4 SF
Excalibur SF
Minimal SF
Mackintosh SF
Pagoda SF
Native Normal
Tennessee Light SF Italic
Tennessee Light SF
Tennessee SF Italic
Tennessee Heavy SF Bold Italic
Tennessee Heavy SF Bold
Tennessee SF Bold Italic
Tennessee SF Bold
Tennessee SF
Napa Heavy SF Bold Italic
Napa Heavy SF Bold
Napa SF
Mr Big SF
Jersey Normal
Jersey Italic
Invers SF
Hobbit SF
Invite SF Italic
Invite Engraved SF Italic
Invite Engraved SF
Invite SF
Grenoble Light SF Italic
Grenoble Light SF
Grenoble SF Italic
Grenoble Heavy SF Bold Italic
Grenoble Heavy SF Bold
Grenoble SF Bold Italic
Grenoble SF Bold
Grenoble SF
Goudita Light SF
Goudita Heavy SF Bold
Goudita SF Bold
Goudita SF
Goudita Sans Light SF
Goudita Sans SF Italic
Goudita Sans Heavy SF Bold
Goudita Sans SF Bold Italic
Firenze SF Bold
Firenze SF
Xpress SF Italic
Xpress Heavy SF Bold Italic
Xpress Heavy SF Bold
Xpress SF Bold Italic
Xpress SF Bold
Xpress SF
Estelle Black SF
Stylistic SF
Elementary Light SF
Elementary SF Black
Cairo SF
Prisoner SF
Diamond Light SF Italic
Diamond Light SF
Diamond Heavy SF Bold Italic
Diamond Heavy SF Bold
Diamond SF
Blue Ridge Light SF Italic
Blue Ridge Light SF
Blue Ridge SF Italic
Blue Ridge Heavy SF Bold Italic
Blue Ridge Heavy SF Bold
Blue Ridge SF Bold Italic
Blue Ridge SF Bold
Blue Ridge SF
Delta Italic
Casablanca Light SF
Casablanca Heavy SF Bold
Casablanca SF Bold
Casablanca SF
Handscript SF
Ultra Serif SF
Clarity Gothic SF
Commerce SF Bold
Chanson Heavy SF Bold Italic
Chanson Heavy SF Bold
Casper Open SF
Casper Light SF
Casper SF
Bolts SF
Blur Normal
Blur Italic
Bernstein SF
Liffey Script SF
Balloonist SF Bold
Arch Normal
Arch Italic
Adventurer Light SF
Adventurer Black SF Italic
Adventurer Black SF
Adamsky Outline SF
Adamsky SF
Accent SF
Accord Light SF
Accord SF Italic
Accord Heavy SF Bold
Accord SF Bold
Accord SF
Accord Light SF Italic
Wicker SF
Ancestory SF
Zap Normal
Zap Normal
Amaze Bold
Amaze Normal
barcode font
Batik Regular
Fiolex Girls
Occidental
Outright Televism
Tall Paul
Australia Sunrise
QuigleyWiggly
Neurochrome
Manzanita
Orlando
OldgateLaneOutline
ReservoirGrunge
Kartika
Vrinda
Century Gothic
Wingdings 2
Wingdings 3
Century Gothic Gras
Century Gothic Gras Italique
Century Gothic Italique
Agency FB Gras
Arial Narrow
Arial Rounded MT Bold
Blackadder ITC
Bodoni MT
Bodoni MT Black
Bodoni MT Condensed
Bradley Hand ITC
Calisto MT
Castellar
Century Schoolbook
Copperplate Gothic Bold
Copperplate Gothic Light
Curlz MT
Edwardian Script ITC
Elephant
Engravers MT
Eras Bold ITC
Eras Demi ITC
Eras Light ITC
Eras Medium ITC
Felix Titling
Forte
Franklin Gothic Book
Franklin Gothic Demi
Franklin Gothic Demi Cond
Franklin Gothic Heavy
Franklin Gothic Medium Cond
French Script MT
Garamond
Gigi
Gill Sans MT Ext Condensed Bold
Gill Sans MT
Gill Sans MT Condensed
Gill Sans Ultra Bold
Gill Sans Ultra Bold Condensed
Gloucester MT Extra Condensed
Goudy Old Style
Goudy Stout
Haettenschweiler
Imprint MT Shadow
Lucida Sans
Lucida Sans Typewriter
Maiandra GD
OCR A Extended
Palace Script MT
Papyrus
Perpetua
Perpetua Titling MT Gras
Pristina
Rage Italic
Rockwell
Rockwell Condensed
Rockwell Extra Bold
Script MT Bold
Tw Cen MT Gras
Tw Cen MT Condensed
Tw Cen MT Condensed Gras
Tw Cen MT
Agency FB
Arial Narrow Gras
Arial Narrow Italique
Bodoni MT Gras
Bodoni MT Gras Italique
Bodoni MT Black Italique
Bodoni MT Condensed Gras
Bodoni MT Condensed Gras Italique
Bodoni MT Condensed Italique
Bodoni MT Italique
Bookman Old Style Italique
Calisto MT Gras
Calisto MT Gras Italique
Calisto MT Italique
Elephant Italique
Franklin Gothic Book Italique
Franklin Gothic Demi Italique
Franklin Gothic Heavy Italique
Garamond Gras
Garamond Italique
Gill Sans MT Gras Italique
Gill Sans MT Gras
Gill Sans MT Italique
Goudy Old Style Gras
Goudy Old Style Italique
Lucida Sans Demi-gras
Lucida Sans Demi-gras Italique
Lucida Sans Italique
Lucida Sans Typewriter Gras
Lucida Sans Typewriter Gras Oblique
Lucida Sans Typewriter Oblique
Perpetua Gras Italique
Perpetua Gras
Perpetua Italique
Perpetua Titling MT Maigre
Rockwell Condensed Gras
Rockwell Gras
Rockwell Gras Italique
Rockwell Italique
Century Schoolbook Gras
Century Schoolbook Gras Italique
Century Schoolbook Italique
Tw Cen MT Gras Italique
Tw Cen MT Condensed Extra Bold
Tw Cen MT Italique
Berling Antiqua
Berling Antiqua Bold Italic
Bookdings
Frutiger Linotype Bold
Frutiger Linotype
Frutiger Linotype Italic
Frutiger Linotype Normal
MS Gothic
Bauhaus 93 Normal
Monotype Corsiva
Consolas
Consolas Bold
Consolas Italic
Consolas Bold Italic
Archer Normal
Segoe UI Normal
Segoe UI Gras
Segoe UI Italique
Segoe UI Gras Italique
Berling Antiqua Normal
Fertigo-Regular
Journal
Kotak Normal
District Normal
joeHand
StarJedi Special Edition
Star Jedi Logo DoubleLine1
Star Jedi Logo DoubleLine2
Star Jedi Logo MonoLine
Grymmoire
Star Jedi
Star Jedi Hollow
Star Jedi Outline
Futhark AOE Inline
Futhark AOE
Rune Normal
Runes - The elder scroll Normal
DejaVu Serif Condensed Italic
MS Outlook
Arial Narrow Gras Italique
Bookshelf Symbol 7
MS Reference Sans Serif
MS Reference Specialty
Freestyle Script
Juice ITC
Kristen ITC
Lucida Handwriting Italique
Mistral
Tempus Sans ITC
BorisBlackBloxx
BorisBlackBloxxDirty
Global
Global User
Gl
Global
Calibri
Cambria & Cambria Math
Candara
Constantia
Corbel
Calibri Bold
Calibri Italic
Calibri Bold Italic
Cambria Bold
Cambria Italic
Cambria Bold Italic
Candara Bold
Candara Italic
Candara Bold Italic
Constantia Bold
Constantia Italic
Constantia Bold Italic
Corbel Bold
Corbel Italic
Corbel Bold Italic
ProF
Amaze Italic
DejaVu Sans Condensed Bold Oblique
DejaVu Serif Bold
Gentium Book Basic Bold
DejaVu Serif Condensed Bold
DejaVu Sans Mono Oblique
Gentium Basic Italic
Gentium Book Basic
DejaVu Serif Bold Italic
DejaVu Serif Italic
Gentium Basic Bold Italic
DejaVu Sans
DejaVu Sans Mono Bold Oblique
Gentium Book Basic Bold Italic
DejaVu Sans Condensed
Gentium Basic
DejaVu Sans Condensed Bold
DejaVu Serif
Gentium Basic Bold
DejaVu Sans Condensed Oblique
DejaVu Sans Mono Bold
DejaVu Serif Condensed Bold Italic
DejaVu Sans Mono
DejaVu Sans Oblique
DejaVu Sans Bold
DejaVu Serif Italic Condensed
DejaVu Sans ExtraLight
DejaVu Serif Condensed
OpenSymbol
Gentium Book Basic Italic
DejaVu Sans Bold Oblique
EthnocentricRg-Regular







______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [?] Supprimer les doublons dans un fichier texte 
Si ce que tu n'arrives pas c'est l'algorithmie j'ai commencé à faire ton script. Il est censé marcher mais j'ai un problème avec la lecture des lignes du fichier. Je n'ai pas trop le temps de débugger alors je te passe le code commenté :
Code:
#Include <File.au3>

$FileOpen = FileOpen(@DesktopDir&"\fonts.txt", 0) ;On ouvre le premier fichier en lecture seule
$FileOpen2 = FileOpen(@DesktopDir&"\fonts2.txt", 1) ;On ouvre le second fichier en écriture

$i = 1 ;On se place au début du fichier
$j = 1 ;On se place au début du fichier

While 1 ;On parcours toutes les lignes du fichier fonts.txt
   $i = $i + 1 ;On incrémente le numéro de ligne
   $Line = FileReadLine($FileOpen, $i)
   If @error = -1 Then ExitLoop ;Si on arrive à la fin du fichier, on quitte la boucle
   $LineIsTheSame = False ;Par défaut la
   While 1 ;On parcours toutes les lignes du fichier fonts2.txt
      $j = $j + 1 ;On incrémente le numéro de ligne
      $Line2 = FileReadLine($FileOpen2, $j)
      If @error = -1 Then ExitLoop ;Si on arrive à la fin du fichier, on quitte la boucle
      If ($Line2 = $FileOpen2) Then ;Si la ligne est la même :
         $LineIsTheSame = True ;On ne l'écrira pas dans le prochain fichier
         ExitLoop ;On sort de la boucle car on a vu que la ligne était déjà présente
      EndIf
   WEnd
   If $LineIsTheSame = False Then FileWriteLine($FileOpen2, $Line2) ;Si la ligne n'existe pas encore dans le 2ème fichier, on la rajoute dans le 2ème fichier
WEnd

FileClose($FileOpen) ;On ferme le fichier ouvert
FileClose($FileOpen2) ;On ferme le fichier ouvert





______________________________________________________
Répondre en citant
Message [?] Supprimer les doublons dans un fichier texte 
Hello,

Je n'est pas le temps de regarder vos codes donc je répond juste a la question de Laddy (ou plutôt a la demande).

Voici mon code pour généré le fonts.txt:
Code:
$numberOfFile = 0
$fontList = 0
$fontListInFontFile = @WindowsDir & "\Fonts\"
$ArrayOfFontListInfFontFile = _FileListToArray($fontListInFontFile, "*.TTF", 1)
For $element In $ArrayOfFontListInfFontFile
   $numberOfFile = $numberOfFile + 1
Next
For $counter = 1 To $numberOfFile
   $RegValue = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", $counter)
   FileWrite($fileFont, $RegValue & @CRLF)
Next
_ReplaceStringInFile($fileFont, "(TrueType)", "")
_ReplaceStringInFile($fileFont, "Bold", "")
_ReplaceStringInFile($fileFont, "Italic", "")

Avec coloration syntaxique: http://pastebin.com/y48CmiB4

Merci pour vos deux réponses,
£`/@]




______________________________________________________


*Si l'erreur est humaine c'est parce que l'humanité en est une.*

£'/@] - Anciennement rekaca
MSN Skype
Répondre en citant
Message [?] Supprimer les doublons dans un fichier texte 
C'est donc à cause de ce bout de code que tu as des doublons :
Code:
_ReplaceStringInFile($fileFont, "(TrueType)", "")
_ReplaceStringInFile($fileFont, "Bold", "")
_ReplaceStringInFile($fileFont, "Italic", "")


Tu pourrais les laisser au pire.

Ce que tu peux faire c'est enlever les lignes qui comportent ces mots.




______________________________________________________
Répondre en citant
Message [?] Supprimer les doublons dans un fichier texte 
Hello,

A oui pas bête...
Y a t'il une fonction permettant de supprimer une ligne si elle possède une chaine de caractère?

HS: Laddy, as - tu lue mon MP? Sa me tien vraiment a coeur.

Merci pour ta réponse Sablier,
£`/@]




______________________________________________________


*Si l'erreur est humaine c'est parce que l'humanité en est une.*

£'/@] - Anciennement rekaca
MSN Skype
Répondre en citant
Message [?] Supprimer les doublons dans un fichier texte 
Oui je l'ai eu et je me dois d'avoir un temps de réflexion.

Idem que sablier, le fait de supprimer des mots clés dans les polices d'écriture te fait avoir des doublons alors qu'en fait s'en est pas vraiment.

peux tu expliquer ton code ? tu tentes de mettre en relation les clés de registre avec le contenu du dossier des fonts ?

pourquoi ne pas tout géré via le registre ??




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Message [?] Supprimer les doublons dans un fichier texte 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch