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
1
248
Vastaukset
- 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
- 1343619
- 1101419
Timo Soini tyrmää Tynkkysen selitykset Venäjän putinistileiristä
"Soini toimi ulkoministerinä ja puolueen puheenjohtajana vuonna 2016, jolloin silloinen perussuomalaisten varapuheenjoht2711330Sulla on nainen muuten näkyvät viiksikarvat naamassa jotka pitää poistaa
Kannattaa katsoa peilistä lasien kanssa, ettet saa ihmisiltä ikäviä kommentteja.691249Kalateltta fiasko
Onko Tamperelaisyrittäjälle iskenyt ahneus vai mistä johtuu että tänä vuonna ruuat on surkeita aikaisempiin vuosiin verr171144Nainen voi rakastaa
Ujoakin miestä, mutta jos miestä pelottaa näkeminenkin, niin aika vaikeaa on. Semmoista ei varmaan voi rakastaa. Miehelt791081Ikävöimäsi henkilön ikä
Minkä ikäinen kaipauksen kohteenne on? Onko tämä vain plus 50 palsta vai kaivataanko kolme-neljäkymppisiä? Oma kohde mie451038IS Viikonloppu 20.-21.7.2024
Tällä kertaa Toni Pitkälä esittelee piirrostaitojansa nuorten pimujen, musiikkibändien ja Raamatun Edenin kertomusten ku571029- 301026
- 53938