Разбить текст из файла на слова и показать в 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

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

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