Discussion :

[1MrchB]

Bonjour,

J'insere dans un programme une entrée via Inputbox et cette entrée ne doit s'inscrire dans un fichier texte que si elle n'est pas déjà présente et ce quelque soit le format (minuscule ou majuscule).
Mon problème est que je n'arrive pas à réaliser la boucle If qui me permettra d'éviter d'inscrire un doublon dans le fichier texte.
Pouvez vous m'aider? Merci

[Cachlab]

Est-ce que quelquechose comme ça pourrait t'inspirer ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
29
30
31
32
33
34
35
36
37
38
Const ForReading = 1, ForWriting = 2
Dim objDictionary, objFSO, Saisie, strName
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Saisie = " "
 
'Lecture du fichier
Set objFile = objFSO.OpenTextFile ("Fichier.txt", ForReading)
Do Until objFile.AtEndOfStream
strName = objFile.ReadLine
If Not objDictionary.Exists(strName) Then
objDictionary.Add strName, strName
End If
Loop
 
'Saisie de nouvelles entrées et test d'existance 
Do While Saisie <> ""
Saisie = InputBox("Entrée :","Saisie","")
If Saisie = "" Then Call Ecriture : WScript.Quit
If Not objDictionary.Exists(Saisie) Then
objDictionary.Add saisie, strName : MsgBox "Ajouté!"
Else
MsgBox "Doublon!"
End if
Loop
 
'Fin du script 
Call Ecriture
WSCript.Quit
 
'Fonction d'écriture dans le fichier
Sub Ecriture
Set objFile = objFSO.OpenTextFile ("Fichier.txt", ForWriting)
For Each strKey in objDictionary.Keys
objFile.WriteLine strKey
Next
objFile.Close
End Sub

[ProgElecT]

Salut

Bonjour,

J'insère dans un programme une entrée via Inputbox et cette entrée ne doit s'inscrire dans un fichier texte que si elle n'est pas déjà présente et ce quelque soit le format (minuscule ou majuscule)...........

Récupérer le contenu entier du fichier, y rechercher l'entrée de l'utilisateur avec Instr(1,Ucase(ContenuFichier),Ucase(EntréeInputBox)), les 2 paramétres chaines étant mis en MAJUSCULE avec Ucase(), si le résultat de Instr < 1, le mot rechercher n'est pas trouvé.
Tu pourrais utiliser indifféremment Lcase() sur les 2 paramètres.