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

892

    Vastaukset

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

    Luetuimmat keskustelut

    1. Stefu LOISTAVAA!

      Ilmeisesti joku vedonlyönti tms, selvinpäin-elämästä👍👍👍 ilmankos ei ole Sofiaa näkynyt. Miten tän parin nyt käy, kun viimi ei maksettuna enää virta
      Kotimaiset julkkisjuorut
      133
      1935
    2. Msisa on eronnut

      Mies ei kestänyt jatkuvia syrjähyppyjä eikä totuutta Turun yöstä.
      Kotimaiset julkkisjuorut
      28
      850
    3. Missä sinuun mies voisi

      näin pääsiäisenä vahingossa törmätä? Ei ilmeisesti missään?
      Ikävä
      69
      845
    4. Venäläisiä keksintöjä?

      Kun tässä nyt yritän miettiä venäläisiä keksintöjä, niin ei äkkiseltään tule oikein yhtään mieleen. Onko niitä edes?
      Maailman menoa
      259
      728
    5. Tiedän että on aika luovuttaa

      En vaan osaa. Liian kauan toivonut jotain, mikä ei koskaan tule toteutumaan. Olo ei ole mitenkään hyvä, mutta itken vähemmän kuin silloin kun sinuun r
      Ikävä
      64
      710
    6. Raviskalla tappo?

      Huhuja liikkuu et raviskalla ois joku laitettu kylymäksi?
      Oulainen
      10
      677
    7. Katumuksesta

      Pitkäperjantaina eräässä seurueessa puhuttiin katumisesta ja mitä itse kukin katuu. Yleisintä tuntui olevan pahasti sanominen jollekin läheiselle ja t
      Sinkut
      132
      671
    8. Et arvaa nainen, miten ikävä mulla on sinua.

      Sinua ei voi unohtaa. Pusu sulle musulle!
      Ikävä
      26
      644
    9. Sun mies on mun

      Sinun mies on yksin minun ja sinä et voi sille mitään.
      Ikävä
      77
      642
    10. Sisällissota kiihtyy Ruotsissa

      KaupunkiTaistelut koraanin puolesta kiihtyneet Linköpingissä ja Malmössä. Ruotsin poliisi joutunut vetäytymään suojiin. Päätän raporttini Ruotsista.
      Maailman menoa
      200
      635
    Aihe