Записать в файл только те строки, которые начинаются с русских слов. - VB
Формулировка задачи:
Дан файл, состоящий из строк, к-ые могут начинаться либо с русских, либо с английских слов. Записать в другой файл только те строки, к-е начинаются с русских слов.
Решение задачи: «Записать в файл только те строки, которые начинаются с русских слов.»
textual
Листинг программы
Private Sub Command1_Click()
On Error Resume Next ' игнорируем ошибку, если пустая строка
Dim a As String
Open ("C:\1.txt") For Input As #1 ' Первый это файл со строками
Open ("C:\2.txt") For Output As #2 ' Второй это выходной только с русским текстом
Do Until EOF(1) ' Читаем, пока строки не кончатся
Line Input #1, a
If Len(a) >= 1 Then ' Убеждаемся, что не пустая строка
a = Trim(a) ' Убираем пробелы
If Asc(Left(a, 1)) > 122 Then ' Английские по заданию не нужны!
Print #2, a ' Русские буквы имеют ASCII>122, их пишем в файл
End If
End If
Loop
Close #1
Close #2
End Sub