pour les doublons

Version imprimable

pour les doublons

Bonsoir, je voudrais savoir s'il était possible avec un tableau et cette fonction de récupérer les données d'un tableau.

la fonction doublon:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Function Doublon () Const ForReading = 1 Const ForWriting = 2 Set objDictionary = CreateObject("Scripting.Dictionary") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile _ ("C:\...\login.txt", ForReading) Do Until objFile.AtEndOfStream strName = objFile.ReadLine If Not objDictionary.Exists(strName) Then objDictionary.Add strName, strName End If Loop objFile.Close Set objFile = objFSO.OpenTextFile _ ("C:\...\login.txt", ForWriting) For Each strKey in objDictionary.Keys objFile.WriteLine strKey Next objFile.Close
et le tableau:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Do While ligne <> "" TAB = Split (ligne, ";") Prenom = TAB(0) Nom = TAB(1) Login = TAB(2) Pass = TAB(3) If UBound (TAB) = 4 Then Suppr = "S"
Avec au final avoir la possibilité d'utiliser les tab pour vérifier dans les lignes du fichier créer (autres fonctions du script, mais la n'est pas la question..) si le login est le meme, le prenom et le nom aussi.

en gros faire un fichier.Readline puis

if tab(0) = tab(0) & TAB(1) = TAB(1) OR TAB(2) = TAB(2)

fichier.writeline (avant le 3e ; qui indique le login, je pense que c'est un step -1 qu'il faudrait utiliser..) mettre un add "1" (pour combler le doublon du login)

ce qui donnera pour le programme a faire. Si dans le fichier:

jmmartin
jmmartin

doublon !

jmmartin
>jmmartin1

21/01/2009, 15h56
klue_

alors c'est possible ou pas ? ça éviterait de faire du if avec du mid des ";" pour voir ou commence et s'arrête les données prénom, nom, login, pass..
22/01/2009, 13h31
ced600

Je n'ai pas compris ce que tu veux faire !

Ta fonction supprime les doublons d'un fichier texte en copiant les lignes du fichier dans un dictionnaire.
Ce dictionnaire sera sans doublon.
Si plutot que de créer le dictionnaire dans la fonction, tu le passes en paramètre de la fonction, tu pourras accéder à ce dictionnaire qui contient ton fichier sans les lignes doublons.
Et donc tu pourras faire des tests d'égalités.
24/01/2009, 15h35
klue_

En fait je ne veux pas supprimer entièrement les doublons. Je veux, en cas d'une occurrence, ici du login, ajouter un texte par la suite.

en exemple:

prenom: jean-marc et nom martin
prenom: jean-michel et nom martin

le login qui se crée est donc jmmartin pour les deux.

je veux faire en sorte que s'il y a un doublon sur le login, pouvoir ajouter un texte par derrière pour les différencier. d'ou ma question s'il est possible de différencier les données grâce aux variables du tableau qui identifient les variables noms, prenom, login, pass.
26/01/2009, 09h38
ced600

quand fait tu le code qui le split de ta ligne dans un tableau ?

a priori, quand tu split, tu testes un dictionnaire (un deuxieme)

Code:

1
2
3
4
5
If Not objSecondDictionary.Exists(chaineAVerifier) Then
objDictionary.Add chaineAVerifier, chaineAVerifier
Else 
wscript.echo "doublon : " & " "
End If

:?

J'avoue ne pas trop comprendre pour l'histoire du deuxième dictionnaire ? ou est-ce que je dois le mettre ?

ced600>j'appelle la fonction après le Split (apres le Pass = TAB(3)..apres avoir spliter les 4 données donc)

en gros faire ça, mais c'est pas super..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 i = i + 1 If Not objSecondDictionary.Exists(login) Then objDictionary.Add login, login Else wscript.echo "doublon : " & login + i '(?) End If Set objFile = objFSO.OpenTextFile _ ("C:\...\login.txt", ForWriting) objFile.WriteLine login+i (?) '....
:help:

30/01/2009, 10h18
ced600

Peux tu montrer le code entier car là je ne suis pas sur de ce que tu fais.

Et réexplique clairement ce que tu souhaites faire, quel fichier tu as en entrée de ton script, et quel résultat tu souhaites.

Parce que là je ne suis pas sur de ce que tu veux faire.
02/02/2009, 11h48
ced600

Juste une précision, ce que tu veux faire, c'est par exemple, si tu as deux fois le même prénom, et le même nom, rajouter un symbole, une lettre, ou un chiffre pour l'un des deux ?

Mais dans ce cas là est ce que les lignes de ton fichier ne sont pas exactement identique ?
Si c'est le cas, ta fonction doublon te les as supprimé.

Sinon il faudrait que tu enregistre toutes tes entrées dans un dictionnaires (comme la fonction doublons) et qu'en clé tu utilises ce que tu veux, mais surtout en valeur tu mettes un tableau de chaine de caractère, le tableau que te renvois le split.
Ensuite tu pourrais parcourir tout ton dictionnaire, et pour chaque nom identique, tester les prenoms et faire ce que tu souhaites dessus.
Je pense qu'alors il faudrait même modifier la fonction doublon, soit pour qu'elle fasse le traitement, ou juste pour qu'elle te retourne le dictionnaire, histoire de ne pas le reconstruire, ou ne pas retraiter le fichier.
Cela dépend si ton traitement ne sert que pour de l'affichage ou si tu veux enregistré les valeurs traitées dans ton fichier.
03/02/2009, 21h32
klue_

Citation:

Envoyé par ced600

Juste une précision, ce que tu veux faire, c'est par exemple, si tu as deux fois le même prénom, et le même nom, rajouter un symbole, une lettre, ou un chiffre pour l'un des deux ?

Pour le login seulement. Ensuite si un nom et un prénom sont identiques (donc meme login pour les deux) indiquer qu'il faut supprimer le compte.

Citation:

Mais dans ce cas là est ce que les lignes de ton fichier ne sont pas exactement identique ?
Si c'est le cas, ta fonction doublon te les as supprimé.

cette fonction doublon je l'ai repris d'un autre site, mais je n'arrive pas à l'exploiter (je connais très mal les dictionnaires de fichiers..)

Citation:

Sinon il faudrait que tu enregistre toutes tes entrées dans un dictionnaires (comme la fonction doublons) et qu'en clé tu utilises ce que tu veux, mais surtout en valeur tu mettes un tableau de chaine de caractère, le tableau que te renvois le split.
Ensuite tu pourrais parcourir tout ton dictionnaire, et pour chaque nom identique, tester les prenoms et faire ce que tu souhaites dessus.
Je pense qu'alors il faudrait même modifier la fonction doublon, soit pour qu'elle fasse le traitement, ou juste pour qu'elle te retourne le dictionnaire, histoire de ne pas le reconstruire, ou ne pas retraiter le fichier.
Cela dépend si ton traitement ne sert que pour de l'affichage ou si tu veux enregistré les valeurs traitées dans ton fichier.

Je vais essayer de voir ça quand j'aurai le temps et un peu plus de motivation pour le faire, mais je sens que j'aurais du mal. Merci pour ta réponse et tes précisions.