V-Форум / Corel VBA / Тема: textbox@помогите.help

textbox@помогите.help

 27/03/2008 19:41:23 #Link

Всем привет!
Назрел вопрос....и без помощи оществености и просвещенных мудрецов не обойтись мне , посоветуйте!
Имею на форме несколько listbox и textbox в них по нажатию одной кнопки заносятся строки, есть еще др кнопка "удалить последенюю строку"
если с listbox все понятно и просто:
If ListBox3.ListIndex >= 0 Then
ListBox3.RemoveItem ListBox3.ListIndex

а вот как из textbox удалять последнюю строку??? (количество строк известно) (пробовал сначала считывать в txt файл, потом читать его кроме последней строки в тотже textbox при первом нажатии на кнопку последняя строка удаляется, а при повторном вываливается ошибка , что файл уже открыт(File already open))


записываю в файл так:

Dim FN As Integer
FN = FreeFile
Dim FName As String
FName = "C:\......\GoodvinTemp\Temp" & ttp & ".txt"
Open FName For Output As #FN
Print #FN, TextBox5.Text
Close #FN

читаю так:

Dim colstrok
colstrok = 0
Dim txt As String
Open "C:\...\GoodvinTemp\Temp" & ttp & ".txt" For Input As #1
Do While Not EOF(1)
Line Input #1, txt
colstrok = colstrok + 1
If colstrok = np + 1 Then
Exit Sub
End If
TextBox5 = TextBox5 & txt & vbCrLf
Loop
Close #1

np = np - 1
End If

Re: textbox@помогите.help

 08/04/2008 23:50:06 #Link

Может попробовать из textBox загружать в массив , а потом возвращать назад на одну строку меньше???

как из textBox сформировать массив строк???

Re: textbox@помогите.help

 08/04/2008 23:59:36 #Link

dim i&
i=instrrev(TextBox5,vbCr)
if i then TextBox5=left$(TextBox5,i-1)

Re: textbox@помогите.help

 09/04/2008 8:48:44 #Link

Вау !! всего то две строчки , а работает как часы!!!

Спасибо, выручил!