Работа с файлом.Команда 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

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

14   голосов , оценка 4.286 из 5