Visual basic onkelma

Jasu__

Miten visual basic voi vertailla merkkijonoja esim. 0102030405 ja 0203040509..

Oisko jelppaajia?

4

806

    Vastaukset 4

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ....

      Esimerkiksi näin voit vertailla luku merkkijonoja.
      Voit myös muuttaa merkkkijonon kokonaisluvuksi str$() komennolla ja vertailla niitä.

      Tuossa tulostetaan edit boksiin kumpi on suurempi
      vai yhtäsuuret.

      Private Sub Form_Load()
      A$ = "0102030405"
      B$ = "0203040509"
      If A$ = B$ Then Text1.Text = "Yhtäsuuri"
      If A$ > B$ Then Text1.Text = "A$ suurempi"
      If A$ < B$ Then Text1.Text = "B$ suurempi"
      A = Str$(A$): Rem täss A$ muutetaan kokonais luvuksi a
      B = Str$(B$): Rem täss B$ muutetaan kokonais luvuksi b

      End Sub

      • YksiJaAinoaM

        Miten tuohon saadaan että liitettyä se kohta että se vertailu tapahtuu tiedostosta. ???'
        Eli vertailaan tiedostossa olevia tuollaisia merkkijonoja. esimerkiksi c:\merkkijono.txt
        Ei voi muistaa kaikkea.


      • puh
        YksiJaAinoaM kirjoitti:

        Miten tuohon saadaan että liitettyä se kohta että se vertailu tapahtuu tiedostosta. ???'
        Eli vertailaan tiedostossa olevia tuollaisia merkkijonoja. esimerkiksi c:\merkkijono.txt
        Ei voi muistaa kaikkea.

        tarkoitat varmaankin että olet laiska ja etkä VIITSI tarkistaa asiaa. Tai sit vaan oot taidoton noppa.


      • näin??
        puh kirjoitti:

        tarkoitat varmaankin että olet laiska ja etkä VIITSI tarkistaa asiaa. Tai sit vaan oot taidoton noppa.

        Open [tiedosto] for Input as #1
        Dim Rivi1 as integer, Rivi2 as integer
        line input #1, Rivi1
        line input #1, Rivi2
        close
        If Rivi1=Rivi2 then 'Jos yhtäsuuria
        'Koodia
        end if

        If Rivi1 < Rivi2 then 'jos rivi1 pienempi kuin rivi2
        'koodia
        End if

        If Rivi1 Z Rivi2 then 'jos rivi1 suurempi kuin rivi2
        'koodia
        End if


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Gallup: Kansalaiset eivät usko velkajarruun

      Puolet suomalaisista ei usko velkajarrun vaatimien sopeutusten toteutuvan, kertoo Iro Researchin kyselytutkimus. Kokoom
      Maailman menoa
      120
      1319
    2. Mä oon kallistumassa

      Rikosilmoitukseen!
      Suhteet
      230
      1087
    3. Ethän mies vielä

      luovu meistä? Haluaisin jo sun syliin.
      Ikävä
      67
      990
    4. Haaveilen edelleen

      Sinusta aika ajoin
      Ikävä
      58
      942
    5. Sinulle nainen

      En ehkä koskaan osannut sanoa tätä oikein. Minun vaikeuteni luottaa liittyi ennen kaikkea menettämisen pelkoon. Siihen
      Ikävä
      66
      916
    6. Martsusta tuli leuhka

      Ja ylimielinen. Hän ei nosta persettäkään ilmaseksi . Luulempa et nämä ei tee hyvää hyvinvointivalmennuksille.... Nannal
      Kotimaiset julkkisjuorut
      250
      860
    7. Kuisla Group Oy jättänyt yrityssaneeraushakemuksen

      Samalla yrityssaneeraukseen on hakeutunut Kuisla henkilökohtaisesti ja Seinäjoen Motelli Oy, joka omistaa Sorsanpesän ki
      Seinäjoki
      37
      798
    8. Hei rakkaani.

      Kohtaaminen lähestyy. Miten teemme sen? Kumpi ottaa yhteyttä vai törmäämmekö jossain sattumalta? Tuleva vaimosi
      Ikävä
      70
      775
    9. Ethän voinut nainen tietää, että rikot rikotun

      Omaa elämää taas mietin aamuyön tunteina. En vieläkään löytänyt muistin sokkeloista ainuttakaan onnen hetkeä. Kaipuu on
      Ikävä
      72
      762
    10. Tiedätkö sitä

      Että sinun äänesi on ihanan pehmeä
      Ikävä
      42
      736
    11. Uskallanko laittaa sulle viestiä?

      Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S
      Ikävä
      58
      700
    12. On paha olla

      Kun olen käyttäytynyt aiemmin kaivattua kohtaan kuin joku narsisti.
      Ikävä
      66
      688
    13. Kiulu myynnissä!

      Kiulu hakee taas uutta yrittäjää. https://www.yritysporssi.fi/etela-pohjanmaa-lansi-suomi-finland/myytavat/yritykset/ma
      Ähtäri
      26
      608
    14. 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ä
      117
      565
    15. Onko nyt kaikki asiat käyty läpi?

      Mun mielestä on👍
      Ikävä
      83
      563
    16. Tulisiko naisille asettaa korkeammat eläkemaksut

      Tämä tuli mieleeni kun luin aamun lööppejä. Japanissa alkaa olla "uutta nuorisoa" ihan urakalla, ikä alkaa sadan jälkeen
      Sinkut
      181
      523
    17. Et pysty peittämään minulta

      Sinä olet hyvä peittämään asioita niin halutessasi. Pystyt pitkiäkin aikoja salaamaan juttuja. Juuri mietin tuossa, olet
      Ikävä
      47
      504
    18. Mikä tekee kaivatustasi

      Haluttavan?
      Ikävä
      18
      498
    19. Vieläkin saat

      Sydämen tykyttämään. Vaikka emme näe
      Ikävä
      24
      494
    20. Mitä oikein tapahtui? Maajussi-Jetta sai tylyt pakit - Sulhoehdokas selittää: "Ei lentänyt kipinät"

      Maajussille morsian -sarjassa etsitään rakkautta ja rinnalle kumppania. Yksi maajusseista on Jetta - liikunnallinen ja
      Maajussille morsian
      12
      487
    Aihe