| Вопрос: ListView | Добавлено: 09.08.05 03:00 |
Автор вопроса:  ArtBase | ICQ: 55593017 |
|
Есть, 6 столбцов и N строк.
Надо их аккуратненько по порядку записать в txt. Чтоб в каком положении данные были в ListView, в таком были и в txt, т.е. в соответствии со строками и столбцами. Помогите, целый день пытался, не получилось что-то. Тупняк, однако. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Softer ICQ: 203660381 Вопросов: 29 Ответов: 205 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 09.08.05 07:20 |
|
Может так:
Dim i,f f=freefile Open file for output as f For i=0 to N print a.ListItems(i).Text, _ a.ListItems(i).SubItems(1), _ a.ListItems(i).SubItems(2), _ a.ListItems(i).SubItems(3), _ a.ListItems(i).SubItems(4), _ a.ListItems(i).SubItems(5), _ a.ListItems(i).SubItems(6) next close Я когда-то подобным образом делал.... PS: Поправь если что, я по памяти писал - может че забыл... 
|
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #2 | Добавлено: 09.08.05 18:15 |
|
не
print a. а print #f, ListItems(i).SubItems(1) ... но суть не в этом... я вопрос то не до конца понял... Чтоб в каком положении данные были в ListView, в таком были и в txt, т.е. в соответствии со строками и столбцами. Ну строки в текстовом ладно, но как же столбцы? Можно их разделить визуально каким нибуть знаком, например "|" тогда так же, только print #f, ListItems(i).SubItems(1) & "|" & ListItems(i).SubItems(1) & ListItems(i).SubItems(2) & ListItems(i).SubItems(3) & ListItems(i).SubItems(4) & ListItems(i).SubItems(5) & ListItems(i).SubItems(6) это тоже не особо супер получится, в идеале тебе придётся определить сколько символов у тебя на каждый столбец, и при записи дописывать вместо тех символов что нехватает (если строка короче будет) пробелы, но всёравно текст, столбцы, и "|" будет смещаться, т.к. буквы и др. символы имеют разную толщину... вообщем кое как можно, но по нормальному это не получится. |
||
|
Номер ответа: 3 Автор ответа: ArtBase ICQ: 55593017 Вопросов: 23 Ответов: 76 |
Профиль | Цитата | #3 | Добавлено: 11.08.05 01:38 |
| Спасибы! Буду рыть! | ||
Страница: 1 |