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

1004

Ää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. Mitä mieltä olet?

      Miehestä jolla ei ole yhtään kaveria, ei facebookissa eikä livenä ja hän harrasta ja tekee kaiken yksin. Onko vähän outo
      Ikävä
      151
      1231

    2. Muistakaa pojat tämä.

      Mies joka haluaa naisen, löytää keinon. Ei epäröi eikä hämmennä. Tekee kaiken eteenne.
      Ikävä
      119
      1048

    3. Muhun rakastuu kaikki naiset, mut mä en rakastu niihin

      Mun vaatimustaso on 10+ Mut mua tavottelee 7+ naiset
      Ikävä
      215
      788

    4. En ehkä onnistu siinä

      Kovasti minä yritän näyttää kauniilta, vain sinua varten, mutta en taida onnistua siinä.
      Ikävä
      58
      765

    5. Oletko päättänyt

      Että luovutat minun suhteeni
      Ikävä
      64
      732

    6. Viesti jonka haluaisit lähettää...

      hänelle. Onko jokin pieni tunniste jonka vain te tiedätte. Onko naiselta miehelle tai toisinpäin, joku joku päivämäärä
      Ikävä
      26
      729

    7. Mies,oletko koskaan...

      Käyttänyt maksullista naista?
      Ikävä
      135
      696

    8. Kirjoita kolme sanaa

      mistä kaivattusi voisi sinut tunnistaa.
      Suhteet
      44
      631

    9. Pahoin pelkään nainen

      että pidät minua epäempaattisena, itsekeskeisenä, narsistisena ja kylmänä ihmisenä. Oletko koskaan ajatellut, että minus
      Ikävä
      57
      622

    10. Joko kaupungin johtaja saa iskeä kuokkansa kunttaan

      Särkiperällä tapahtuu 25.8 2026 klo.10.00 Fingrid Oy:n ja kahden maanomistajan kanssa maan lohkominen.Mahdollisesti täss
      Pyhäjärvi
      58
      554
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt