Как поставить точку в конце каждого слова?(слова записаны в столбик!) - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте ) мучаюсь с этой задачей уже 8 пару...(( Открыть файл в textbox1, затем нажать на кнопку и в textbox2 должен появиться эти же слова только с точками. Слова в текстовом файле записаны в столбик без пробелов. Пожалуйста подскажите как решить) Заранее благодарю)

Решение задачи: «Как поставить точку в конце каждого слова?(слова записаны в столбик!)»

textual
Листинг программы
Dim f As Integer, txt As String, str1 As String, str2 As String 'Объявляем глобальные переменные
Private Sub Command1_Click() 'событие при нажатии на кнопку
Text2.Text = str2            'во второе поле суём слова через точку
End Sub
Private Sub Form_Load() 'событие при загрузке формы
f = FreeFile
Open "C:\1.txt" For Input As #f 'Открываем файл 1.txt, находящийся на диске Ц
    Do While Not EOF(f) 'Пока не достигнут конец файла цикл:_
        Line Input #f, txt        'Считываем по очереди строки из файла, по 1 строке, в переменную txt
        str1 = str1 & txt & " "   'в переменную str1 дописываем очередное слово + пробел
        str2 = str2 & txt & "."   'в переменную str2 дописываем очередное слово + точка
    Loop        '_конец цикла
Close #f 'закрываем файл
Text1.Text = str1 'в первое поле заносим слова через пробел
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы