Pystyykö miten vertailemaan numeroita visbasicilla?
Esim. kuinka monesta jotkut tietyt numerot esiintyvät jssakin tiedostossa. Esimerkki:
kuinka monesti 2,3,5 esiintyvät 50 rivissä jos ri vin pituus on 10 numeroa pitkö kun kyseinen tiedosto mistä tieto haetaan on tiedosto esim. c:\numerot.txt. Miten toteutetaan?
Kiitos etukäteen.
Esim. kuinka monesta jotkut tietyt numerot esiintyvät jssakin tiedostossa. Esimerkki:
kuinka monesti 2,3,5 esiintyvät 50 rivissä jos ri vin pituus on 10 numeroa pitkö kun kyseinen tiedosto mistä tieto haetaan on tiedosto esim. c:\numerot.txt. Miten toteutetaan?
Kiitos etukäteen.
Vastaukset 1
Vanhimmat
Tein esimerkiksi tälläisen.
Tiedostossa numerot.txt on rivejä, joilla voi olla numero 1...9.
Esim.
1
2
3
3
3
3
4
4
5
5
5
Sitten ohjelma:
'************************************************
Dim numero As Integer
Dim laskuri(10) As Integer
Dim s As Integer
Open "C:\numerot.txt" For Input As #1
Do While Not EOF(1)
Input #1, numero
laskuri(numero) = laskuri(numero) 1
Loop
Close
For s = 1 To 9
Print "numero " & s & " esiintyy " & laskuri(s) & " kertaa"
Next s
'************************************************
Jos luvut ovat isompia kuin 10, tuo määrittely täytyy tehdä vastaavasti, vaikka
Dim laskuri(100) As Integer.
Jos rivillä on muuta kuin yksi luku, esim.
1 2 3, homma ei toimi noin, menee hieman monimutkaisemmaksi.