Разбить текст из файла на слова и показать в Label. Перевести с VB6

@uzlprog · Регистрация: 23.04.2012

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

Visual Basic
1
2
3
4
5
6
7
8
9
Open myfile For Input As 1
        str = Input(LOF(1), 1)
    Close 1
    strarr = Split(str, , , vbTextCompare)
    For i = LBound(strarr) To UBound(strarr)
        Label1.Caption = strarr(i)
        Sleep 100
        DoEvents
    Next i

@uzlprog · 15.01.2014, 18:34 **[ТС]**

VB.NET
1
2
3
4
5
6
7
Dim s As String = System.IO.File.ReadAllText(OpenHashFileDialog.FileName, System.Text.Encoding.Default)
dim b() as string=s.split(" ")
for i=0 to length(b)-1
label1.text=b(i)
threading.thread.sleep(100)
application.doevents
next i

Как не будет разбивать?! Выводит же по словам!

Или мы про разные коды?

Памирыч · 15.01.2014, 18:36

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

Как не будет разбивать?

А так будет

По всей видимости, своим кодом я лишь сбил Вас с толку.

Добавлено через 1 минуту
Только не
length(b)
а
b.Length

@uzlprog · 15.01.2014, 18:36 **[ТС]**

Памирыч, ну вот и порешали) Вы в соседней теме не подскажите по WriteAllText

Новые блоги и статьи Все статьи Все блоги /
Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@uzlprog 21 / 24 / 1 Регистрация: 23.04.2012 Сообщений: 628
	15.01.2014, 18:36 [ТС]
	Памирыч, ну вот и порешали) Вы в соседней теме не подскажите по WriteAllText 0