Как поставить точку в конце каждого слова?(слова записаны в столбик!) - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д