Alun osaan mutta ....

YksinPulassa...Neuvoton

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ä?

12

1006

Äänestä

    Vastaukset 12

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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 rivi

        Ei 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 If

        Ei 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 #1

        Eiks 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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Tässä ovat Elämäni biisi vieraat lauantai 19.9. - Yksi vieras on kohuttu TTK-juontajaehdokas

      Elämäni biisi vieraslista on harvinaisen mielenkiintoinen lauantaina. Mukana myös kohuttu TTK-juontajaehdokas, josta ei
      Tv-sarjat
      9
      1024

    2. Mies joka on oikeasti kiinnostunut

      Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää
      Ikävä
      125
      966

    3. Onko nyt kaikki asiat käyty läpi?

      Mun mielestä on👍
      Ikävä
      109
      949

    4. Ikävä niitä hetkiä,kun katselin sua suoraan silmiin...

      😊
      Ikävä
      56
      935

    5. Rauha, sopiiko

      Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.
      Ikävä
      85
      822

    6. Kunnanhallitus

      Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.
      Puolanka
      43
      769

    7. Miesten (epä)viehättävyydestä kysymys

      Mieltä askarruttava asia, liki dilemma. Palstallahan jotkut miesoletetut usein toteavat, että kaikki naiset tavoittelev
      Sinkut
      160
      727

    8. Ei siitä pääse yli, eikä ympäri!

      Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle
      Ikävä
      66
      711

    9. Minkä kappaleen

      haluaisit soivan, kun astellaan alttarille?
      Ikävä
      64
      687

    10. Mitä meidän välillämme

      On käynyt näiden vuosien aikana?
      Ikävä
      70
      586

    11. Mikä sun salaisuus on,kun näytät niin nuorelta..

      Vaikka oot jo noin vanha!?
      Ikävä
      40
      575

    12. Olit hyödytön.

      Mulle hyödytön..
      Ikävä
      95
      561

    13. Tykkäätkö minusta

      Mies vai et? -nainen
      Ikävä
      52
      531

    14. Kumpi tästä nyt

      Teki niin vaikeaa?
      Ikävä
      60
      524

    15. Teini kuolema

      Jatketaan uudestaan kun poistettu eka aloitus.
      Kajaani
      22
      516

    16. Vieläkö tykkäät

      Minusta niin paljon että olisit valmis?
      Ikävä
      35
      497

    17. MiltäKaivattusi

      Näyttää? !
      Ikävä
      26
      490

    18. Myönnetään, tunnen lämpimiä tunteita kohtaasi

      Vaikutat tosin liian hyvältä ollaksesi totta. Komeita miehiä on maailma pullollaan mutta sinussa on jotain.....
      Ikävä
      31
      453

    19. Humppila korvasi johtajia tekoälyllä

      https://yle.fi/a/74-20215155 Humppilassa on lakkautettu teknisen ja hallintojohtajan virat. Säästöä tuli hetkessä 150
      Maailman menoa
      52
      449

    20. Mnot, miksi sinulle on tärkeää solvata uskovia?

      Onko sinulla joku katkeruus tai peräti viha heitä kohtaan? Kirjoituksesi nimittäin tihkuvat katkeruutta ja vihaa uskovi
      Luterilaisuus
      246
      408
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt