Просто ради интереса... Не могу написать функцию сохранения) При вызове из AddNote() функция сохранения SaveIndex() работает нормально, при вызове из DeleteIndex() функция сохранения не работает! ни в каком виде! Бьюсь второй вечер) Либо не происходит переход на другой индекс по команде NoteList.Key = i либо при выводе в файл Print #hIndexDB, NoteList.Current.Text Сообщает Null Object

Функция добавления: Public Sub AddNote(NoteName As String)

NoteList.Add(NoteList.Count, NoteName) NoteList.Item.Selected = True SaveIndex()

End

Функция удаления: Public Sub DeleteIndex()

Dim ret As Integer If NoteList.MoveCurrent() ret = Message.Error(«Выберите заметку для удаления!», «Ok») Else ret = Message.Delete(«Удалить заметку?», «Да», «Нет») If ret = 1 NoteList.Remove(NoteList.Item.Key) SaveIndex() Endif Endif

End

Функция сохранения: Public Sub SaveIndex()

Dim i As Integer Dim iCount As Integer iCount = NoteList.Count - 1 If Exist(IndexDB) Then Kill IndexDB hIndexDB = Open IndexDB For Create

For i = 0 To iCount Step 1 NoteList.Key = i Print #hIndexDB, NoteList.Current.Text Next

End

Необходимо из параметра $1 в переменную записать только цифры и символы запятая и точка. Как это сделать?