Private Sub Command1_Click()
Dim intList%, strFileText$
intList = Combo1.ListIndex
If intList = -1 Then
MsgBox "Не выбраны данные для редактирования", vbExclamation, "Информация"
Exit Sub
End If
strOldData = Combo1.Text
strDate = InputBox("Редактирование записей", "Редактирование", strOldData)
If Len(strDate) = 0 Then
MsgBox "Отказ от редактирования/ввода", vbExclamation, "Информация"
Exit Sub
End If
If strOldData = strDate Then
MsgBox "Значение не изменено", vbExclamation, "Информация"
Exit Sub
End If
Open App.Path & "\user.log" For Input As #1
strFileText = Input(LOF(F), #1)
Close #1
strFileText = Replace(strFileText, strOldData, strDate)
Open App.Path & "\user.log" For Output As #1
Print #1, strFileText
Close #1
Combo1.List(intList) = strDate
End Sub
редактирование и перезапись данных в файл
Здравствуйте ребята! помогите с таким вопросом, пример приложил, единственный момент который нужно реализовать это положить на кнопку "-" редактирование данных, которое выполняет функцию открытия файла А вотдальше как отредактироватьданные и потом перезаписать их в файл! Заранее благодарен дмитрий!
Всё правильно, ведь кот существует не для этого :)
а если серьёзно, то можно попробовать что-то вроде этого :
Код:
assei, Если подобный подход, по каким-то причинам, неприемлем, то можно сделать по другому(проще)
1) При загрузке формы Вы заполняете свой Combo1 данными из текстового файла (как это реализовано сейчас)
2) В процессе работы просто меняете значения элементов списка в Combo1, не трогая текстовый файл
3) При выгрузке формы, просто сохраняете весь список в текстовый файл (не добавляя данные в старый файл, а просто создавая новый список)
1) При загрузке формы Вы заполняете свой Combo1 данными из текстового файла (как это реализовано сейчас)
2) В процессе работы просто меняете значения элементов списка в Combo1, не трогая текстовый файл
3) При выгрузке формы, просто сохраняете весь список в текстовый файл (не добавляя данные в старый файл, а просто создавая новый список)
Огромное спасибо, во втором варианте п 3) При выгрузке формы, просто сохраняете весь список в текстовый файл (не добавляя данные в старый файл, а просто создавая новый список) я так понял есть такая функция KILL, т.е фаайл надо удалить и создать новый файл далее перезаписать новые данные из комбо1, я правильно понял!
На самом деле, в удалении файла - нет необходимости, ибо достаточно просто использовать (пункт #3) :
P.S. На всякий случай, хочу уточнить, что первый вариант также рабочий (проверено)
Код:
Open App.Path & "\user.log" For Output As #1
Print #1, strText
Close #1
Print #1, strText
Close #1