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
330
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
Valtion alijäämä = yritystukien määrä = 10 mrd. euroa
Mutta persut eivät vaan suostu tasapainottamaan valtion budjettia, vaikka yritystuet on tiedetty haitallisiksi. Miksi p987432Suomi käyttää sosiaalietuuksiin suhteessa eniten rahaa koko maailmassa
Suomi käyttää sosiaaliturvaetuuksiin enemmän rahaa suhteessa bruttokansantuotteeseen kuin mikään muu maa maailmassa. Su3636513Grahn-Laasonen: "Kansalainen joutuu pettymään, jos demareita äänestää"
Ministeri viittaa tuoreeseen Helsingin Sanomien juttuun, jossa demarijohtajan keinoja Suomen suunnan muuttamiseksi esite613864Vähän fiksumpi Nimi kisa ? :=)
Kirjoita teidän etunimet allekkain. Jos nimissä on joku kirjain sama, poista se. Tee sama tarkistus kaikille kirjaimill293599Mikä on suurin luonne- eroavuus sinussa
Ja kaivatussasi? Vaikuttaako se huonoon vai hyvään suuntaan siinä, että teistä voisi tulla jotain?1922071Kenen haluaisit voittavan Amazing Racen: Tuomas ja Esko, Millu ja Karoliina vai Maria ja Vilma?
Amazing Race Suomi huipentuu lauantaina finaaliin. Jäljellä on kolme paria ja tiedossa on tehtäviä, jotka järkyttävät os181793- 611541
Gallup: Katsotko Salkkareita tai oletko katsonut?
Salatut elämät on suomalaisten suosikkisarja vuosikymmenestä toiseen. Salkkareiden parissa viettää aikaa sukupolvet laps181506Elämäni biisi starttaa uudessa muodossa - Voi olla pettymys faneille!
Elämäni biisi ja juontaja Katja Ståhl ovat suomalaisten suosikkeja. Lauantai-iltaisin ohjelma on vetänyt tv-katsojat arv11400Amazing Race Tomas rehellisenä Esko-appiukon, 63, tilasta: "Sairastelut ja..."
Tomas Grekov ja Esko Rotola-Pukkila ovat mukana Amazing Race Suomi -kisassa. Ja nyt vuorossa on finaali. Hankaluuksia m11387