Ongelma on seuraavanlainen:
Dim rivi As String
Dim las1
Dim x, kpl As Integer
Dim haku(70) As String
Dim las$
Private Sub Command1_Click ()
Open "c:\luvut.txt" For Input As #1
Do While Not EOF(1)
Input #1, rivi$
For x = 1 To 70 Step 2
las$ = Mid$(rivi$, x, 2)
If las$ = "01" Then las1 = las1 1
Next x
Loop
Print las1;
Close #1
End Sub
Miten tämän ohjelman saisi siten toimimaan että se
vertailisi useampaa numeroa kerralla??? kiitos jo etukäteen.
Dim rivi As String
Dim las1
Dim x, kpl As Integer
Dim haku(70) As String
Dim las$
Private Sub Command1_Click ()
Open "c:\luvut.txt" For Input As #1
Do While Not EOF(1)
Input #1, rivi$
For x = 1 To 70 Step 2
las$ = Mid$(rivi$, x, 2)
If las$ = "01" Then las1 = las1 1
Next x
Loop
Print las1;
Close #1
End Sub
Miten tämän ohjelman saisi siten toimimaan että se
vertailisi useampaa numeroa kerralla??? kiitos jo etukäteen.
Vastaukset
Vanhimmat
Ei vielä vastauksia
Aloittaja odottaa vastauksia. Kerro oma näkemyksesi ensimmäisenä.