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 ....
12
980
Vastaukset
- jokuvaankuinka 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- jokuvaanTuo 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"?? 
- pulassaMiten voi formiin määritellä esimerkiksi kolme lukua joita etsitään. esim. 02, 05 ja 29?? 
 Siis nämä luvut haluaisin itse määrätä?
- jokuvaanpulassa 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
- Pulassajokuvaan 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..
- pulasaPulassa 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 
- jokuvaanpulasa 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
- Pulassajokuvaan 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 
- jokuvaanPulassa 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
- Basilliusjokuvaan 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 :)
- yksinpulassaBasillius 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
- Jalankulkija kuoli. Poliisi etsii mustaa BMW Coupe -autoa, jossa on punertavat vanteet.Jalankulkija kuoli jäätyään auton alle Joensuussa – kuljettaja pakeni, poliisi pyytää havaintoja https://www.mtvuutiset.2345172
- Mikä vasemmistolaisista jankkaavaa vaivaa?Pahasti on ihon alle, siis korvien väliin sinne tyhjään tilaan, päässeet kummittelemaan. Ei ole terveen ihmisen merkki673390
- PÄIVÄN PARAS: Nigerialainen haki turvapaikkaa Suomesta, lähti takas huilaamaankotimaahansa, koska turvapaikan saaminen kesti niin kauan. Ja tämän kertoo ihan Yle, eikä yhtään toimittaja kyseenalaist943077
- Ohjelma "Rikollisjengien Ruotsi" hyvin paljasti jakautuneen maaneli ns. ruotsalaiset yhdellä puolella, muslimit ja muut kehitysmaalaiset toisella puolella. Siinäkin hyvin näki mitä ma383018
- Vassarina hymyilyttää vaurastuminen persujen kustannuksellaOlen sijottanut määrätietoisesti osan Kelan tuista pörssiosakkeisiin, ja salkku on paisunut jo toiselle sadalle tuhanne622875
- Riikka runnoo: Elisalta potkut 400:lleErinomaisen hallitusohjelman tavoite 100 000 työllistä lisää yksityisellä sektorilla on kohta saavutettu. Toivotaan toiv902705
- Pidennetään viikko 8 päiväiseksiJa jätetään työpäivien määrä nykyiseen 5:een. Tuo olisi kompromissiratkaisu vellovaan keskusteluun työajan lyhentämisest142401
- Pääseekö kuka tahansa hoitaja katselemaan kenen tahansa ihmisen terveystietoja?"Meeri selaili puhelinta uteliaisuuttaan ja katuu nyt – Moni hoitaja on tehnyt saman rikoksen Tuttujen ihmisten asiat k1032247
- 1571686
- Vapaa- ajan asunto palanut HaapavedelläHaapavesi päässyt Iltalehteen Vapaa- ajan asunto palanut 35 neliötä palanut. Missä päin tämä on ollut? Poliisin tutkinn91340