- Код: Выделить всё
open app.path & "\myfile" for input as #1
do until eof(1)
line input #1, lst
list=list+lst
loop
close #1
for q =1 to list
listbox1.additem q
next
А как удалять из листбокса все что там есть? т.е. сначала проверить что там есть потом удалить а потом заново записать!