Заполнить CheckedListBox из файла

@Goodlord · Регистрация: 14.06.2012

Author24 — интернет-сервис помощи студентам

Как в CheckedListBox или в Listbox загрузить из txt строки?

@Spread · 10.07.2012, 19:46

На форму кинь OpenFileDialog, ListBox, Button.
В Button вставь этот код:

VB.NET    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim Name As String
OpenFileDialog1.Filter = ""
OpenFileDialog1.Filter.Index = 2
On Error GoTo Errhandler:
OpenFileDialog1.ShowDialog()
OpenFileDialog1.FileName = OpenFileDialog1.FileName
FileOpen(3, OpenFileDialog1.FileName, OpenMode.Input)
Do While Not EOF (3)
Name = LineInput(3)
If Len(Trim(Name)) > 0 Then
ListBox1.Items.Add(Trim(Name))
End If
Loop
FileClose(3)
Exit Sub
Errhandler:
Exit Sub

@Darth Coder · 10.07.2012, 22:20

VB.NET    
        
    Скопировано
1
2
3
dim r as new io.streamreader("c:\1.txt")
dim s() as string = r.readtoend.split(vbcrlf)
cheskenedlistbox1.items.addrange(s)

@Goodlord · 11.07.2012, 10:10 **[ТС]**

Что то не один не работает

@kOS_77 · 11.07.2012, 10:29

Последний должен работать, только в 3 строке поправь - cheskenedlistbox1. на CheckedListBox1

Попробуй открыть новый проект и там его заполнить.

@Goodlord · 11.07.2012, 10:46 **[ТС]**

Добавлено через 25 секунд

Сообщение от kOS_77

Последний должен работать, только в 3 строке поправь - cheskenedlistbox1. на CheckedListBox1

Попробуй открыть новый проект и там его заполнить.

Он вроде бы и работает, но в текстовом файле столбец строк, а он считывает только первую

@~~Dzhej-Dzhej~~ · 11.07.2012, 11:06

VB.NET    
        
    Скопировано
1
ListBox1.Items.AddRange(System.IO.File.ReadAllLines("D:/1.txt"))

@kOS_77 · 11.07.2012, 11:25

Все правильно в третьей строчке нужно воспользоваться оператором Do Loop, т.е. считывать строчки до тех пор пока строчка имеет текст.

Пример:

Здесь считывается столбец из документа эксель до тех пор пока ячейка содержит какую-нубудь информацию.

VB.NET    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
 Dim Ячейка As Integer = 1
Do Until .Range("A" & Ячейка).Value Is Nothing
 ListBox1.Items.Add(Exc.Range("A" & Ячейка).Value)
 ComboBox1.Items.Add(Exc.Range("A" & Ячейка).Value)
 Ячейка += 1
Loop     'до тех пор пока следующая ячейка не будет пустой

Новые блоги и статьи Все статьи Все блоги /
Django или Flask: что выбрать для веб-разработки на Python py-thonny 13.03.2025 Django – это высокоуровневый фреймворк, который придерживается философии "всё включено". Он предоставляет разработчику готовые решения для большинства типичных задач веб-разработки: от аутентификации. . .	Непрерывное развертывание в Java с Kubernetes Javaican 13.03.2025 Чем так привлекателен Kubernetes для развертывания Java-приложений? Этот оркестратор контейнеров позволяет автоматизировать развертывание, масштабирование и управление контейнеризированными. . .	Предотвращение XSS, CSRF и SQL-инъекций в JavaScript run.dev 13.03.2025 JavaScript занимает первые позиции среди языков веб-разработки, но его распространенность делает его привлекательной целью для злоумышленников. Межсайтовый скриптинг (XSS), межсайтовая подделка. . .	PHP 8: JIT-компиляция и улучшение производительности Jason-Webb 13.03.2025 PHP никогда не славился своей скоростью. Многие сталкивались с проблемами производительности при работе со сложными вычислениями или обработкой больших объемов данных. Традиционная модель выполнения. . .	Сериализация данных с Apache Avro в Kafka Javaican 12.03.2025 Apache Kafka стала одним из ключевых решений для работы с большими потоками данных. Однако с ростом объемов передаваемых данных возникает проблема: как эффективно сериализовать и десериализовать. . .
Создание потребителей Kafka с помощью Reactor Kafka Javaican 12.03.2025 Reactor Kafka — это библиотека, объединяющая Apache Kafka с реактивным программированием на базе Project Reactor. Такое сочетание позволяет строить неблокирующие, асинхронные приложения с контролем. . .	Ключевые слова Python py-thonny 12.03.2025 Ключевые слова — не просто часть синтаксиса, а настоящий каркас языка, определяющий его возможности и ограничения. В Python существует 35 ключевых слов и 4 так называемых "мягких ключевых слова" —. . .	Сортировка в Python: Подробный обзор sorted() и .sort() py-thonny 12.03.2025 В Python для решения задач сортировки предусмотрены два основных инструмента: функция sorted() и метод . sort(). На первый взгляд, различия между ними могут показаться незначительными, но когда дело. . .	Автоматизация задач в HCL Notes Mr. Docker 12.03.2025 Если вы когда-нибудь работали с HCL Notes (раньше известным как Lotus Notes), то наверняка испытали смешанные чувства. С одной стороны, это мощная платформа для корпоративных приложений, с другой —. . .	Установка и настройка HCL Notes Mr. Docker 12.03.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) — это не просто почтовый клиент, а целая корпоративная платформа для коллективной работы. Если вы когда-нибудь попадали в компанию, где все. . .

@Goodlord 5 / 5 / 0 Регистрация: 14.06.2012 Сообщений: 175
		1
	Заполнить CheckedListBox из файла 10.07.2012, 19:11. Показов 2138. Ответов 7 Метки нет (Все метки) Как в CheckedListBox или в Listbox загрузить из txt строки? 0

@Goodlord 5 / 5 / 0 Регистрация: 14.06.2012 Сообщений: 175
	11.07.2012, 10:10 [ТС]	4
	Что то не один не работает 0

@kOS_77 196 / 188 / 9 Регистрация: 14.06.2011 Сообщений: 495
	11.07.2012, 10:29	5
	Последний должен работать, только в 3 строке поправь - cheskenedlistbox1. на CheckedListBox1 Попробуй открыть новый проект и там его заполнить. 1

@Goodlord 5 / 5 / 0 Регистрация: 14.06.2012 Сообщений: 175
	11.07.2012, 10:46 [ТС]	6
	Добавлено через 25 секунд Сообщение от kOS_77 Последний должен работать, только в 3 строке поправь - cheskenedlistbox1. на CheckedListBox1 Попробуй открыть новый проект и там его заполнить. Он вроде бы и работает, но в текстовом файле столбец строк, а он считывает только первую 0