Bonjour le Wordiens et Wordiennes et Fakalo et à l'huile
une ch'tite question....
j'ai mis sur mon site un fichier " hosts" pour interdire 17048 sites de
pub... cul ...et porno...
un pote m'offre un autre fichier de 13000
ce sont des fichiers .TXT tout bêtes
comment concaténer les 2 et n'en faire qu'un seul en éliminant les
doublons..
chaque ligne est du type
127.0.0.1 a.r.tv.com
127.0.0.1 a.r.tv.org
127.0.0.1 a08.g.akamai.net
127.0.0.1 a1.g.akamai.net
127.0.0.1 a10.g.akamai.net
127.0.0.1 a100.g.akamai.net
127.0.0.1 a100.g.akamaitech.net
127.0.0.1 a1000.g.akamai.net
127.0.0.1 a1016.g.akamai.net
127.0.0.1 a1028.g.akamai.net
127.0.0.1 a104.g.akamai.net
127.0.0.1 a1040.g.akamai.net
127.0.0.1 a1066.g.akamai.net
127.0.0.1 a108.g.akamai.net
merci à toutes et toussent
et bon Dimanche
--
@++++Jceel - MVP Win, I E, Media Player
En vérité je te le dis mais sous O E
internaute indécis pour le HacheuTeuMeuLeu
seul le click droit Control+F deux
la lumière t'apportera C'est ce qu'il y a de mieux
netevangile..selon Jceel.livre du windows.psaume alt-255..verset ÿp
Jceel http://jceel.free.fr l'hyper du gratuit du net
Founding Chairman of the International Pebkac Busters Company
Excusez pardon, il y avait des horreurs dans la macro. Voici donc la macro corrigée, avec les lignes élaguées et mieux coupées.
Sub fusion() Dim tableau As Object, adresse As String, reponse Dim i As Integer, max As Integer Set tableau = CreateObject("scripting.dictionary") Open "c:mes documentsfichier1.txt" For Input As 1 Do While Not EOF(1) Line Input #1, adresse tableau.Add adresse, "" Loop Close 1 Open "c:mes documentsfichier2.txt" For Input As 1 Do While Not EOF(1) Line Input #1, adresse If Not tableau.Exists(adresse) Then tableau.Add adresse, "" End If Loop Close 1 reponse = tableau.keys max = tableau.Count - 1 For i = 0 To max ActiveDocument.Range.InsertAfter (reponse(i)) If i < max Then ActiveDocument.Paragraphs.Add End If Next Selection.WholeStory Selection.Sort ExcludeHeader:úlse, FieldNumber:="Paragraphes", _ SortFieldType:=wdSortFieldAlphanumeric, _ SortOrder:=wdSortOrderAscending, CaseSensitive:úlse, _ LanguageID:=wdFrenchCanadian, SubFieldNumber:="Paragraphes" ActiveDocument.SaveAs FileName:="fichierfusionne.txt", _ FileFormat:=wdFormatText, Encoding:52, _ AllowSubstitutions:úlse, LineEnding:=wdCRLF End Sub
"Clément Marcotte" a écrit dans le message de news:%
Bonjour,
Puisque le questionneur est bloqué chez moi, je réponds donc ici.
Un petit coup de scripting.dictionnary. Même pas besoin d'Excel.
Si votre version de Windows Scripting Host, ne supporte pas l'objet Dictionnary, on peut télécharger la version 5.6 par là:
Sub fusion() Dim tableau As Object, adresse As String, reponse Dim i As Integer Set tableau = CreateObject("scripting.dictionary") Open "c:mes documentsfichier1.txt" For Input As 1 Do While Not EOF(1) Line Input #1, adresse tableau.Add adresse, "" Loop Close 1 Open "c:mes documentsfichier2.txt" For Input As 1 Do While Not EOF(1) Line Input #1, adresse If Not tableau.Exists(adresse) Then tableau.Add adresse, "" End If Loop Close 1 reponse = tableau.keys Documents.Open FileName:="fichierfusionne.txt", ConfirmConversions:úlse, _ ReadOnly:úlse, AddToRecentFiles:úlse, PasswordDocument:="", _ PasswordTemplate:="", Revert:úlse, WritePasswordDocument:="", _ WritePasswordTemplate:="", Format:=wdOpenFormatAuto, Encoding:52 Selection.WholeStory Selection.Sort ExcludeHeader:úlse, FieldNumber:="Paragraphes", _ SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, _ FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _ wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _ wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _ wdSortSeparateByTabs, SortColumn:úlse, CaseSensitive:úlse,
P.S IL y a de l,enregistreur de macros pour quelques lignes qui pourraient sans doute être élaguées, mais j'ai la flemme.
"Anacoluthe" a écrit dans le message de
news:
Hello !
"FxM" nous a écrit ...
Bonjour Ami Jceel, Je vais me faire lyncher mais bon ;o)) Une réponse avec Excel te conviendrait-elle ?
Pourquoi lynché ????? :-D Word pour joindre et trier OK mais pour supprimer des doublons niet!
J'utiliserais aussi Excel (Filtre élaboré Extraction sans doublon) 30000 lignes ça tient sur une feuille...
Anacoluthe « C'est pas parce qu'on y voit double qu'à la fin on y voit mieux. »
- CHANSON-PLUS-BIFLUORÉ
Excusez pardon, il y avait des horreurs dans la macro. Voici donc la
macro corrigée, avec les lignes élaguées et mieux coupées.
Sub fusion()
Dim tableau As Object, adresse As String, reponse
Dim i As Integer, max As Integer
Set tableau = CreateObject("scripting.dictionary")
Open "c:mes documentsfichier1.txt" For Input As 1
Do While Not EOF(1)
Line Input #1, adresse
tableau.Add adresse, ""
Loop
Close 1
Open "c:mes documentsfichier2.txt" For Input As 1
Do While Not EOF(1)
Line Input #1, adresse
If Not tableau.Exists(adresse) Then
tableau.Add adresse, ""
End If
Loop
Close 1
reponse = tableau.keys
max = tableau.Count - 1
For i = 0 To max
ActiveDocument.Range.InsertAfter (reponse(i))
If i < max Then
ActiveDocument.Paragraphs.Add
End If
Next
Selection.WholeStory
Selection.Sort ExcludeHeader:úlse, FieldNumber:="Paragraphes", _
SortFieldType:=wdSortFieldAlphanumeric, _
SortOrder:=wdSortOrderAscending, CaseSensitive:úlse, _
LanguageID:=wdFrenchCanadian, SubFieldNumber:="Paragraphes"
ActiveDocument.SaveAs FileName:="fichierfusionne.txt", _
FileFormat:=wdFormatText, Encoding:52, _
AllowSubstitutions:úlse, LineEnding:=wdCRLF
End Sub
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le
message de news:%236fVRY2XDHA.2464@TK2MSFTNGP09.phx.gbl...
Bonjour,
Puisque le questionneur est bloqué chez moi, je réponds donc ici.
Un petit coup de scripting.dictionnary. Même pas besoin d'Excel.
Si votre version de Windows Scripting Host, ne supporte pas l'objet
Dictionnary, on peut télécharger la version 5.6 par là:
Sub fusion()
Dim tableau As Object, adresse As String, reponse
Dim i As Integer
Set tableau = CreateObject("scripting.dictionary")
Open "c:mes documentsfichier1.txt" For Input As 1
Do While Not EOF(1)
Line Input #1, adresse
tableau.Add adresse, ""
Loop
Close 1
Open "c:mes documentsfichier2.txt" For Input As 1
Do While Not EOF(1)
Line Input #1, adresse
If Not tableau.Exists(adresse) Then
tableau.Add adresse, ""
End If
Loop
Close 1
reponse = tableau.keys
Documents.Open FileName:="fichierfusionne.txt",
ConfirmConversions:úlse, _
ReadOnly:úlse, AddToRecentFiles:úlse,
PasswordDocument:="", _
PasswordTemplate:="", Revert:úlse,
WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto,
Encoding:52
Selection.WholeStory
Selection.Sort ExcludeHeader:úlse, FieldNumber:="Paragraphes", _
SortFieldType:=wdSortFieldAlphanumeric,
SortOrder:=wdSortOrderAscending, _
FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric,
SortOrder2:= _
wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending,
Separator:= _
wdSortSeparateByTabs, SortColumn:úlse,
CaseSensitive:úlse,
Excusez pardon, il y avait des horreurs dans la macro. Voici donc la macro corrigée, avec les lignes élaguées et mieux coupées.
Sub fusion() Dim tableau As Object, adresse As String, reponse Dim i As Integer, max As Integer Set tableau = CreateObject("scripting.dictionary") Open "c:mes documentsfichier1.txt" For Input As 1 Do While Not EOF(1) Line Input #1, adresse tableau.Add adresse, "" Loop Close 1 Open "c:mes documentsfichier2.txt" For Input As 1 Do While Not EOF(1) Line Input #1, adresse If Not tableau.Exists(adresse) Then tableau.Add adresse, "" End If Loop Close 1 reponse = tableau.keys max = tableau.Count - 1 For i = 0 To max ActiveDocument.Range.InsertAfter (reponse(i)) If i < max Then ActiveDocument.Paragraphs.Add End If Next Selection.WholeStory Selection.Sort ExcludeHeader:úlse, FieldNumber:="Paragraphes", _ SortFieldType:=wdSortFieldAlphanumeric, _ SortOrder:=wdSortOrderAscending, CaseSensitive:úlse, _ LanguageID:=wdFrenchCanadian, SubFieldNumber:="Paragraphes" ActiveDocument.SaveAs FileName:="fichierfusionne.txt", _ FileFormat:=wdFormatText, Encoding:52, _ AllowSubstitutions:úlse, LineEnding:=wdCRLF End Sub
"Clément Marcotte" a écrit dans le message de news:%
Bonjour,
Puisque le questionneur est bloqué chez moi, je réponds donc ici.
Un petit coup de scripting.dictionnary. Même pas besoin d'Excel.
Si votre version de Windows Scripting Host, ne supporte pas l'objet Dictionnary, on peut télécharger la version 5.6 par là:
Sub fusion() Dim tableau As Object, adresse As String, reponse Dim i As Integer Set tableau = CreateObject("scripting.dictionary") Open "c:mes documentsfichier1.txt" For Input As 1 Do While Not EOF(1) Line Input #1, adresse tableau.Add adresse, "" Loop Close 1 Open "c:mes documentsfichier2.txt" For Input As 1 Do While Not EOF(1) Line Input #1, adresse If Not tableau.Exists(adresse) Then tableau.Add adresse, "" End If Loop Close 1 reponse = tableau.keys Documents.Open FileName:="fichierfusionne.txt", ConfirmConversions:úlse, _ ReadOnly:úlse, AddToRecentFiles:úlse, PasswordDocument:="", _ PasswordTemplate:="", Revert:úlse, WritePasswordDocument:="", _ WritePasswordTemplate:="", Format:=wdOpenFormatAuto, Encoding:52 Selection.WholeStory Selection.Sort ExcludeHeader:úlse, FieldNumber:="Paragraphes", _ SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, _ FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _ wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _ wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _ wdSortSeparateByTabs, SortColumn:úlse, CaseSensitive:úlse,
P.S IL y a de l,enregistreur de macros pour quelques lignes qui pourraient sans doute être élaguées, mais j'ai la flemme.
"Anacoluthe" a écrit dans le message de
news:
Hello !
"FxM" nous a écrit ...
Bonjour Ami Jceel, Je vais me faire lyncher mais bon ;o)) Une réponse avec Excel te conviendrait-elle ?
Pourquoi lynché ????? :-D Word pour joindre et trier OK mais pour supprimer des doublons niet!
J'utiliserais aussi Excel (Filtre élaboré Extraction sans doublon) 30000 lignes ça tient sur une feuille...
Anacoluthe « C'est pas parce qu'on y voit double qu'à la fin on y voit mieux. »
- CHANSON-PLUS-BIFLUORÉ
Anacoluthe
Bonjour !
"Clément Marcotte" nous a écrit ...
Un petit coup de scripting.dictionnary
J'y crois pas, c'est une épidémie ! V'là Clément maintenant!!! Et à deux fois ! Note bien que c'est tout bon le coup du dictionnary ;-) Mais par cette chaleur ! Je croyais qu'il faisait aussi chaud par chez vous !?!
Mais que font donc les anti-macroteurs J & M ??????????????
A+ :-D Anacoluthe « La maquereau est le mâle de la morue. » - André MYCHO
Bonjour !
"Clément Marcotte" nous a écrit ...
Un petit coup de scripting.dictionnary
J'y crois pas, c'est une épidémie ! V'là Clément maintenant!!!
Et à deux fois ! Note bien que c'est tout bon le coup du dictionnary ;-)
Mais par cette chaleur ! Je croyais qu'il faisait aussi chaud
par chez vous !?!
Mais que font donc les anti-macroteurs J & M ??????????????
A+ :-D
Anacoluthe
« La maquereau est le mâle de la morue. »
- André MYCHO
J'y crois pas, c'est une épidémie ! V'là Clément maintenant!!! Et à deux fois ! Note bien que c'est tout bon le coup du dictionnary ;-) Mais par cette chaleur ! Je croyais qu'il faisait aussi chaud par chez vous !?!
Mais que font donc les anti-macroteurs J & M ??????????????
A+ :-D Anacoluthe « La maquereau est le mâle de la morue. » - André MYCHO
Clément Marcotte
Et à deux fois ! Note bien que c'est tout bon le coup du dictionnary ;-)
Merci. (Si c'est tout bon, ce n'est pas une macro inutile) :-)))))))))))))))
Mais par cette chaleur ! Je croyais qu'il faisait aussi chaud par chez vous !?!
Peut-être 25 ou 26 degrés, pas si pire.
Mais que font donc les anti-macroteurs J & M ??????????????
Ils en ont eu le souffle coupé, et ils en ont perdu la voix. :-)))))))))))))))
Et à deux fois ! Note bien que c'est tout bon le coup du dictionnary
;-)
Merci. (Si c'est tout bon, ce n'est pas une macro inutile)
:-)))))))))))))))
Mais par cette chaleur ! Je croyais qu'il faisait aussi chaud
par chez vous !?!
Peut-être 25 ou 26 degrés, pas si pire.
Mais que font donc les anti-macroteurs J & M ??????????????
Ils en ont eu le souffle coupé, et ils en ont perdu la voix.
:-)))))))))))))))
Et à deux fois ! Note bien que c'est tout bon le coup du dictionnary ;-)
Merci. (Si c'est tout bon, ce n'est pas une macro inutile) :-)))))))))))))))
Mais par cette chaleur ! Je croyais qu'il faisait aussi chaud par chez vous !?!
Peut-être 25 ou 26 degrés, pas si pire.
Mais que font donc les anti-macroteurs J & M ??????????????
Ils en ont eu le souffle coupé, et ils en ont perdu la voix. :-)))))))))))))))
FxM
Bonsoir Anacoluthe,
Tu trouveras en bas le code d'une macro ...
Macro par cette chaleur ? non mais ça va plus la tête ! Chaleur ? Quelle chaleur ? Je viens juste de rouvrir mes fenêtres et
il n'y a plus 'que' +32°C ;o)
Long comme ça et à la sauce Excel en plus ! Yo! Tu vas vraiment finir par te faire lyncher :-D ))))) Oh lui hé ! Comment il change d'idée en quelques heures ;o))
A 14h, tu étais aussi partant pour Excel et maintenant c'est lynchage gratuit à tous les étages ;o)) OK, allez, fais péter la soluce selon Word ;o))
Je vous signale que Excel se bouffe ou se fait copier du txt sans broncher, que pour trier ya un clic et pour virer les doublons ya un autre clic. M'enfin si vous préférez au court-bouillon ... ;-) ))) Oui, mais nous on débute ;o$ (hum)
Ahhh, si ça pouvait être aussi simple ! Sur le principe, je suis d'accord avec toi mais Excel reste du Microsoft ... Alors, la pratique est (un peu) différente de l'idéal :o) Entre l'extraction sans doublon qui en laisse (adresse IP différentes) ou l'export en fichier texte qui se mélange le séparateur décimal, il faut bien tout ça ;o)) même et surtout si je nie pas qu'il y ait mieux plus simple (mais pas moins cher) !
« La maquereau est le mâle de la morue. » - André MYCHO Mais où va-t-il chercher les "légendaires citations d'Anacoluthe" ?
@+ FxM
Bonsoir Anacoluthe,
Tu trouveras en bas le code d'une macro ...
Macro par cette chaleur ? non mais ça va plus la tête !
Chaleur ? Quelle chaleur ? Je viens juste de rouvrir mes fenêtres et
il n'y a plus 'que' +32°C ;o)
Long comme ça et à la sauce Excel en plus !
Yo! Tu vas vraiment finir par te faire lyncher :-D )))))
Oh lui hé ! Comment il change d'idée en quelques heures ;o))
A 14h, tu étais aussi partant pour Excel et maintenant c'est lynchage
gratuit à tous les étages ;o))
OK, allez, fais péter la soluce selon Word ;o))
Je vous signale que Excel se bouffe ou se fait copier du txt sans
broncher, que pour trier ya un clic et pour virer les doublons
ya un autre clic. M'enfin si vous préférez au court-bouillon ...
;-) )))
Oui, mais nous on débute ;o$ (hum)
Ahhh, si ça pouvait être aussi simple ! Sur le principe, je suis
d'accord avec toi mais Excel reste du Microsoft ... Alors, la pratique
est (un peu) différente de l'idéal :o) Entre l'extraction sans doublon
qui en laisse (adresse IP différentes) ou l'export en fichier texte
qui se mélange le séparateur décimal, il faut bien tout ça ;o)) même
et surtout si je nie pas qu'il y ait mieux plus simple (mais pas moins
cher) !
« La maquereau est le mâle de la morue. »
- André MYCHO
Mais où va-t-il chercher les "légendaires citations d'Anacoluthe" ?
Macro par cette chaleur ? non mais ça va plus la tête ! Chaleur ? Quelle chaleur ? Je viens juste de rouvrir mes fenêtres et
il n'y a plus 'que' +32°C ;o)
Long comme ça et à la sauce Excel en plus ! Yo! Tu vas vraiment finir par te faire lyncher :-D ))))) Oh lui hé ! Comment il change d'idée en quelques heures ;o))
A 14h, tu étais aussi partant pour Excel et maintenant c'est lynchage gratuit à tous les étages ;o)) OK, allez, fais péter la soluce selon Word ;o))
Je vous signale que Excel se bouffe ou se fait copier du txt sans broncher, que pour trier ya un clic et pour virer les doublons ya un autre clic. M'enfin si vous préférez au court-bouillon ... ;-) ))) Oui, mais nous on débute ;o$ (hum)
Ahhh, si ça pouvait être aussi simple ! Sur le principe, je suis d'accord avec toi mais Excel reste du Microsoft ... Alors, la pratique est (un peu) différente de l'idéal :o) Entre l'extraction sans doublon qui en laisse (adresse IP différentes) ou l'export en fichier texte qui se mélange le séparateur décimal, il faut bien tout ça ;o)) même et surtout si je nie pas qu'il y ait mieux plus simple (mais pas moins cher) !
« La maquereau est le mâle de la morue. » - André MYCHO Mais où va-t-il chercher les "légendaires citations d'Anacoluthe" ?
