Какое условие поставить

[olik111]

Пользователь вводит данные в combobox вручную и эти данные сохраняются в файл, при повторном запуске программы они считываются из файла в combobox, когда выбираешь из списка значение или заносишь новое, которое совпадает с уже имеющимся в combobox оно добавляется туда еще раз, как сделать, чтобы совпадающие значения в файл не добавлялись
Private Sub Form_Load()
Dim fnum As Integer
Dim txt As String

cboAnimals.Clear
On Error GoTo NoFile
fnum = FreeFile
Open App.Path & "\animals.dat" For Input As fnum

Do While Not EOF(fnum)
Line Input #fnum, txt
txt = Trim$(txt)
If Len(txt) > 0 Then cboAnimals.AddItem txt
Loop

Close fnum
NoFile:

End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim fnum As Integer
Dim i As Integer
fnum = FreeFile
Open App.Path & "\animals.dat" For Output As fnum
For i = 0 To cboAnimals.ListCount - 1
Print #fnum, cboAnimals.List(i)
Next i
Close fnum
End Sub

[Matew]

Код: Выделить всё

For i = 0 To cboAnimals.ListCount - 1
    if cboAnimals.List(i) = txt then
          MsGbox "Запись существует"
          Exit sub ' Например
    end if
next i


[CORBA]

Если добавляется в комбо, то с моей точки зрения должно добавляться и файл, поэтому сделай лучше как предложил Matew, не позволяй создавать повторные записи в комбо и информируй об повторе юзера.