| Вопрос: Обработать текстовый файл в ListView | Добавлено: 23.04.08 15:44 |
Автор вопроса:  Arti
|
| Подскажите код чтобы заполнить ListView строчками и столбцами из текстового файла, в качестве разделителя столбцов в файле используется табуляция. |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #1 | Добавлено: 23.04.08 20:33 |
|
1читаешь строку из файла
2с помощью Split с разделителем vbTab заполняешь массив 3Из массива заполняешь одну строчку лист-вью 1затем читаешь следущую строку из файла и т.д. |
||
|
Номер ответа: 2 Автор ответа: el-paso Вопросов: 3 Ответов: 164 |
Профиль | | #2 | Добавлено: 23.04.08 20:39 |
|
Sub FillList(FileName$, List As ListView) Dim f%: f = FreeFile Open FileName For Input As #1 Do While Not EOF(f) Dim l$: Line Input #f, l Dim t$(): t = Split(l, vbTab) With List.ListItems.Add(, , t(0)) Dim i%: For i = 1 To UBound(t): .SubItems(i) = t(i): Next End With Loop Close #1 End Sub |
||
|
Номер ответа: 3 Автор ответа: el-pasoВопросов: 3 Ответов: 164 |
Профиль | | #3 | Добавлено: 23.04.08 20:44 |
|
Сорри, накосячил с f:
Sub FillList(FileName$, List As ListView) Dim f%: f = FreeFile Open FileName For Input As #f Do While Not EOF(f) Dim l$: Line Input #f, l Dim t$(): t = Split(l, vbTab) With List.ListItems.Add(, , t(0)) Dim i%: For i = 1 To UBound(t): .SubItems(i) = t(i): Next End With Loop Close #f End Sub |
||
|
Номер ответа: 4 Автор ответа: Arti Вопросов: 2 Ответов: 5 |
Профиль | | #4 | Добавлено: 23.04.08 21:21 |
| Спасибо но нужно на VB.NET, хотя отчасти принцип понятен. | ||
|
Номер ответа: 5 Автор ответа: el-pasoВопросов: 3 Ответов: 164 |
Профиль | | #5 | Добавлено: 23.04.08 22:16 |
|
Для дотнетчиков есть свой раздел.
Вообще, если даже есть начальные познания по VB.NET, то переделать пример не составит большого труда. |
||
Страница: 1 |