Работа с файлом.Команда Asc и Chr.VB6
Формулировка задачи:
Добрый вечер всем.Заранее благодарен всем за внимание.
К делу,имею задачу :Текстовый файл А содержит текст с русскими и латинскими буквами. Создать новый файл В, котором из этого текста будут удалены русские буквы.
Потратив сегодняшний на попытку разобраться и написать код,потерпел фиаско.
Суть проблемы:Я не могу разобраться до конца с работой Asc.
Для теста я решил написать прогу для строки из 12 символов,обработав которую он выводил бы результат сразу в программу.Но....Прога обрабатывает только первый символ строчки.Я пытался сделать это через массив.Пытался присвоить каждому символу по строке,чтобы добиться хоть какого-то результата.пытался работать с char-ом прицип работы,которого я так и не понял,потому что на любое его появление Vb выдавал ошибку.Поэтому обращаюсь к вам за помощью и советом.
"
Решение задачи: «Работа с файлом.Команда Asc и Chr.VB6»
textual
Листинг программы
Private Sub Command1_Click() Dim A1 As String, B1 As String, S As Integer, i As Integer, k1 As Integer, k2 As Integer k1 = FreeFile Open "A.txt" For Input As k1 k2 = FreeFile Open "B.txt" For Output As k2 Do While Not EOF(k1) Line Input #k1, A1 B1 = "" For i = 1 To Len(A1) S = Asc(Mid(A1, i, 1)) If (S >= 192 And S <= 255) Or S = 168 Or S = 184 Then B1 = B1 & Chr(S) End If Next i Print #k2, B1 Loop End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д