Разделить исходный файл на два, записав в один только четные числа, а в другой - нечетные - VB

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

Текстовый файл содержит несколько строк, в каждой из которых записано целое число. Разделить этот файл на два, записав в один только четные числа, а в другой – нечетные. Я не могу создать програму, кто-нибудь можете помочь меня? Спс !

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Open "FILE" For Input As #1
Do Until EOF(1)
    Input #1, S
    For i = 1 To Len(S)
    If Asc(Mid(es par)) < 192 Or Asc(Mid(es impar)) > 255 Then
   
    End If
    Next
    Print #2, S1
    Loop
    End Sub

Решение задачи: «Разделить исходный файл на два, записав в один только четные числа, а в другой - нечетные»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
    Open App.Path & "\Input.txt" For Input As #1
    Open App.Path & "\Output1.txt" For Output As #2
    Open App.Path & "\Output2.txt" For Output As #3
         Do Until EOF(1)
            Input #1, S
            Print #((Val(S) Mod 2) + 2), S
         Loop
    Close
End Sub

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

15 голосов , оценка 3.933 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы