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.
apua kaivataan
eräs___
1
349
Vastaukset 1
- jokutoinen
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.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1251145
- 671035
Carunan hinnat
Yks proffa vauuttaa, ettei Caruna voi noin vain nostaa hintoja koska suomen laki kieltää, toinen proffa sanoo että Carun93813- 77753
- 45716
Kunnan päätie ja sen lähialueet
Arvon hyrynsalmelaiset. Tätä palstaa on näin Ukkohallan mökkiläisena ihan viihteellistä lukea. Milloin teitä ahdistaa la38676- 67624
Mikä sun kaivatussa on se miksi ihastuit
ja ikävöit? Eli se jokin asia, mikä aiheutti tunteen, että tuossa on sitä jotain? Meinasitko tehdä asialle jotain vai ka22582Mitä luulet
Mitä luulet kaivattusi ajattelevan sonusta? Onko jotain mitä haluaisit oikaista hänelle?37508Luule ja ajattele minusta
mitä tykkäät nainen, olet ajat sitten antanut itsestäsi ihan omanlaisen kuvan.. 😅44467