Удаление полей из комбобокса

[nikemike]

В комбобокс заносятся поля из файла(в файле есть много строк) при помощи этого кода :

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

Dim stroka As String
Dim filePath As String
filePath = "путь к файлу"
Open filePath For Input As #1
Do While Not EOF(1)
Line Input #1, stroka
Combo1.AddItem stroka
Loop
Close

Мне надо чтобы при выделении определенной строки в комбо боксе и нажатия кнопки эта строка удалялась из файла, как мне это сделать?

[Odrick]

По разному Если относительно быстро, то опять читать файл в строку, сплитить ее по vbCrLf и формировать файл по-новому, записывая построчно с пропуском нужной строки.

[nikemike]

Не это очень долго делать напиши код, плиз!

[A.A.Z.]

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

Dim I&
Combo1.Tag = Combo1.Tag & Combo1.ListIndex & " "
Open "путь к файлу" For Output As #1
For I = 0 To Combo1.ListCount - 1
If InStr(Combo1.Tag, I & " ") = 0 Then Print #1, Combo1.List(I)
Next
Debug.Print Combo1.Tag
Close #1

По-моему, не так уж и долго

[nikemike]

ОУ это правда спасибо, A.A.Z.