| Вопрос: Удалить строку в txt-файле через ListBox | Добавлено: 22.12.07 18:18 |
Автор вопроса:  Semicolon
|
|
Здравствуйте!
Прочесал весь форум, но способа реализации не нашёл. Есть ListBox с данными, полученными из txt-файла. Требуется удалить строку из txt-файла, ориентируясь на позицию в ListBoxе. Я предполагаю, что надо считать инфу из текущей строки листбокса, открыть файл, найти нужное слово и удалить его. Затык происходит в самом начале - отслеживание текущей строки и её чтение. Есть у кого мысли по этому поводу? Буду сверхблагодарен за пример в коде, тк пока не особо силён в VB. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 22.12.07 18:53 |
|
примерно так, насколько я понял
Const FileName = "c:\asd.txt"
Private Sub Form_Load() Open FileName For Input As #1 While Not EOF(1) Line Input #1, strLine List1.AddItem strLine Wend Close End Sub Private Sub List1_DblClick() Open FileName For Output As #1 For i = 0 To List1.ListCount - 1 If i <> List1.ListIndex Then Print #1, List1.List(i) Next Close End Sub |
||
|
Номер ответа: 2 Автор ответа: Semicolon Вопросов: 2 Ответов: 5 |
Профиль | | #2 | Добавлено: 22.12.07 23:27 |
| Спасибо! Это именно то, что нужно! | ||
|
Номер ответа: 3 Автор ответа: SemicolonВопросов: 2 Ответов: 5 |
Профиль | | #3 | Добавлено: 23.12.07 16:04 |
|
Вот код для редактирования записи, полученной из txt-файла, в ListBoxе.
Может кому понадобится. Private Sub Form_Load() Dim sTemp As String 'грузим данные из файла в ListBox Open App.Path & "\data.txt" For Input As #1 While Not EOF(1) Line Input #1, sTemp List1.AddItem sTemp Wend Close #1 End Sub Private Sub Command1_Click() Dim j As Integer 'присваеваем строке ListBoxа значение TextBoxа List1.List(List1.ListIndex) = Text1.Text 'пишим данные из ListBoxа в txt-файл Open App.Path & "\data.txt" For Output As #1 For j = 0 To List1.ListCount - 1 Print #1, List1.List(j) Next Close #1 |
||
Страница: 1 |