Olen tekemässä ohjelmaa joka käy rivit läpi etsii joka riviltä samat numerot tässä tapauksessa.
Miten teen sen silleen että se avaa tiedoston esim. c:\numerot.txt ja käy rivi riviltä läpi numerot. esim. rivit:
0102030405
0203040506
0304050607
Ja näistä etsii esim. 03 numeroa.
Tein alun mutta en päässy puusta pitkälle:
*/ ------------------------------
For I = 1 to 5
If Mid$(WinNum, i, 1) = Mid$(MyNum, i, 1) Then
strmatch = strmatch & Mid$(WinNum, i, 1)
End If
Next I
Matches = Len(strMatch)
Miten tästä edetä?
Alun osaan mutta ....
YksinPulassa...Neuvoton
12
988
Vastaukset
- jokuvaan
kuinka yksinkertainen ja helppo.
Esimerkissä etsitään siis "03" merkkijonoa, jos se löytyy riviltä, rivi tulostetaan.
Open App.Path & "\numerot.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, rivi
If InStr(1, rivi, "03", vbTextCompare) Then Print rivi
Loop
Close #1- jokuvaan
Tuo App.Path on ohjelman oletushakemisto, siis mistä se ohjelma käynnistetään, tuo numerot.txt tulee olla siinä hakemistossa.
Voit kirjoittaa luonnollisesti koko polun, vaikka "C:\numerot.txt" tai missä se sitten onkaan. - Yksin pulassa...
jokuvaan kirjoitti:
Tuo App.Path on ohjelman oletushakemisto, siis mistä se ohjelma käynnistetään, tuo numerot.txt tulee olla siinä hakemistossa.
Voit kirjoittaa luonnollisesti koko polun, vaikka "C:\numerot.txt" tai missä se sitten onkaan.Miten haetaan kahta numeroa tekstistä esim. 03 lisäksi numeroa "15"??
- pulassa
Miten voi formiin määritellä esimerkiksi kolme lukua joita etsitään. esim. 02, 05 ja 29??
Siis nämä luvut haluaisin itse määrätä? - jokuvaan
pulassa kirjoitti:
Miten voi formiin määritellä esimerkiksi kolme lukua joita etsitään. esim. 02, 05 ja 29??
Siis nämä luvut haluaisin itse määrätä?Lisäämällä Form1 kolme Text-kehystä
kirjoittamalla niihin haettavat merkkijonot.
Jos jokin noista ehdoista toteutuu, rivi tulostuu.
If InStr(1, rivi, Text1.Text, vbTextCompare) Then Print rivi
If InStr(1, rivi, Text2.Text, vbTextCompare) Then Print rivi
If InStr(1, rivi, Text3.Text, vbTextCompare) Then Print rivi - Pulassa
jokuvaan kirjoitti:
Lisäämällä Form1 kolme Text-kehystä
kirjoittamalla niihin haettavat merkkijonot.
Jos jokin noista ehdoista toteutuu, rivi tulostuu.
If InStr(1, rivi, Text1.Text, vbTextCompare) Then Print rivi
If InStr(1, rivi, Text2.Text, vbTextCompare) Then Print rivi
If InStr(1, rivi, Text3.Text, vbTextCompare) Then Print riviEi toimi toi antamasi ehdotus.
en ainakaan minä sitä saa toimimaan.. - pulasa
Pulassa kirjoitti:
Ei toimi toi antamasi ehdotus.
en ainakaan minä sitä saa toimimaan..Lisäys edelliseen... kaikki kolme lukua pitäisi olla kerrallaan haku ehtoina. Ei siis yksitelle vaan kaikki esim. 02,03,05
- jokuvaan
pulasa kirjoitti:
Lisäys edelliseen... kaikki kolme lukua pitäisi olla kerrallaan haku ehtoina. Ei siis yksitelle vaan kaikki esim. 02,03,05
laita ehdot peräkkäin, eli jokaisen ehdon pitää toteutua:
If InStr(1, rivi, Text1.Text, vbTextCompare) Then
If InStr(1, rivi, Text2.Text, vbTextCompare) Then
If InStr(1, rivi, Text3.Text, vbTextCompare) Then Print rivi
End If
End If - Pulassa
jokuvaan kirjoitti:
laita ehdot peräkkäin, eli jokaisen ehdon pitää toteutua:
If InStr(1, rivi, Text1.Text, vbTextCompare) Then
If InStr(1, rivi, Text2.Text, vbTextCompare) Then
If InStr(1, rivi, Text3.Text, vbTextCompare) Then Print rivi
End If
End IfEi toimi toi lauseesi siinä aiemmassa. Kirjoita toimiva coodi
- jokuvaan
Pulassa kirjoitti:
Ei toimi toi lauseesi siinä aiemmassa. Kirjoita toimiva coodi
Siis, tee tekstitiedosto numerot.txt
ja tallenna se johonkin.
Tässä esimerkissä "C:\hakemisto\polku\"
Tee kolme Text-kehystä, Text1, Text2 ja Text3.
ja jos laitat Text1 "01", Text2 "02", Text3 "03"
ja jos kirjoitit tuohon tiedostoon vaikka rivin "01342025903", josta siis löytyy kaikki Text-kehyksissä syöttämäsi arvot, niin kyllä tulostuu näytölle. Ja ei niiden tarvitse olla tuossa järjestyksessä, kunhan vaan kaikki annetut merkkojonot löytyvät riviltä.
Open "C:\hakemisto\polku\numerot.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, rivi
If InStr(1, rivi, Text1.Text, vbTextCompare) Then
If InStr(1, rivi, Text2.Text, vbTextCompare) Then
If InStr(1, rivi, Text3.Text, vbTextCompare) Then Print rivi
End If
End If
Loop
Close #1 - Basillius
jokuvaan kirjoitti:
Siis, tee tekstitiedosto numerot.txt
ja tallenna se johonkin.
Tässä esimerkissä "C:\hakemisto\polku\"
Tee kolme Text-kehystä, Text1, Text2 ja Text3.
ja jos laitat Text1 "01", Text2 "02", Text3 "03"
ja jos kirjoitit tuohon tiedostoon vaikka rivin "01342025903", josta siis löytyy kaikki Text-kehyksissä syöttämäsi arvot, niin kyllä tulostuu näytölle. Ja ei niiden tarvitse olla tuossa järjestyksessä, kunhan vaan kaikki annetut merkkojonot löytyvät riviltä.
Open "C:\hakemisto\polku\numerot.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, rivi
If InStr(1, rivi, Text1.Text, vbTextCompare) Then
If InStr(1, rivi, Text2.Text, vbTextCompare) Then
If InStr(1, rivi, Text3.Text, vbTextCompare) Then Print rivi
End If
End If
Loop
Close #1Eiks toi toimis lyhyemmin:
If (tosi) And (tosi) And (tosi) Then PrintLine
ei tarvis kuin yhden Iffin :) - yksinpulassa
Basillius kirjoitti:
Eiks toi toimis lyhyemmin:
If (tosi) And (tosi) And (tosi) Then PrintLine
ei tarvis kuin yhden Iffin :)olen tuota ehtolausetta kokeillut mutta ei se tee haluttua toimintoa. Eli toisin sanoen ei toimi vaikka pitäisi.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Vuonna 2026 jää entistä vähemmän rahaa käteen palkansaajille
Työttömyysvakuutusmaksu nousee 0,3 prosenttia. Työeläkemaksu nousee 7,15 prosentista 7,3 prosenttiin. Työmarkkinajärjest1137097Suomen kansa puhunut: Purra huonoimpia ministereitä
Kouluarvosanalla 6–, eli samaa tasoa mitä Purran oikeakin koulutodistus. Epäpätevyys on tullut huomattua Suomen talouden4945251Mitä aiot tehdä uudenvuoden aattona
Mitä olet suunnitellut tekeväsi uudenvuoden aattona ja aiotko ensi vuonna tehdä jotain muutoksia tai uudenvuoden lupauks1463230Joulun ruokajonoissa entistä enemmän avuntarvitsijoita - Mitä ajatuksia tämä herättää?
Räppärit Mikael Gabriel, VilleGalle ja Jare Brand jakoivat ruokaa ja pehmeitäkin paketteja vähävaraisille jouluaattoa ed2152621Marin sitä, Marin tätä, yhyy yhyy, persut jaksaa vollottaa
On nuo persut kyllä surkeaa porukkaa. Edelleen itkevät jonkun Marinin perään, vaikka itse ovat tuhonneet Suomen kansan t362302Pituuden mittaaminen
Ihmisen pituuden mittaaminen ja puolikkaat senttimetrit. Kuuluuko ne puolikkaatkin sentit tai millit teistä ilmoittaa m431272En tiedä enää
Pitäiskö mun koittaa vältellä sua vai mitä? Oon välillä ollut hieman mustasukkainen, myönnän. En ymmärrä miksi en saa su771232Muistattekos kuinka persujen Salainen Akentti kävi Putinin leirillä
Hakemassa jamesbondimaista vakoiluoppia paikan päällä Venäjällä? Siitä ei edes Suomea suojeleva viranomainen saanut puhu111159Varsinainen vetonaula tämä Pyhäjärven keskustelupalsta
Lisää kummasti muuttohaluja, kun lukee tätä foorumia. Tosin väärään suuntaan. Marraskuuhun mennessä tämä vähäinenkin vä681138- 1111133