Visual basic onkelma

Jasu__

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

Oisko jelppaajia?

4

752

    Vastaukset

    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. Janne Ahonen E R O A A

      Taas 2 lasta jää vaille ehjää perhettä!
      Kotimaiset julkkisjuorut
      145
      2519
    2. En kai koskaan saa sinua

      Koska et usko että riitäisit minulle. Olet aina pitänyt itseäsi liian risana ja heikkona. Katkot korkeutesi, ja poraat k
      Ikävä
      154
      1649
    3. Terveystalon lääkärit ylilaskuttaneet

      Tämän pörriäiset osaavat, laskuttamisen. Terveystalo myöntää asian. https://www.hs.fi/suomi/art-2000011134269.html "K
      Maailman menoa
      133
      1613
    4. Saran ökytyyli käänsi katseita.

      On nyt kyllä Sara kasvoistaan, kuvan perusteella todellakin pyöristynyt ainakin kuvan perusteella.
      Kotimaiset julkkisjuorut
      146
      1344
    5. Nyt on aika laittaa parit selkoon.

      Onko pareja täällä. Laita kirjaimet kuka tykkää kenestäkin ?
      Ikävä
      66
      1338
    6. The Summit Suomi: Maxie avaa hyytävästä tilanteesta kuvauksissa: "Veri roiskui ja tajusi, että..."

      Oletko seurannut The Summit Suomea? Tykkäätkö vai et tai mitä mieltä ylipäätään olet sarjasta? Moni katsoja on kaikonnut
      Tv-sarjat
      13
      1170
    7. Työttömille lusmuille luvassa lisää keppiä

      Hallitus aikoo kiristää velvoitteiden laiminlyönnistä seuraavia työttömyysturvan karensseja ensi vuodesta alkaen. Hall
      Maailman menoa
      261
      1123
    8. Ootko huomannut miten

      pursuat joka puolelta. Sille joka luulee itsestään liikoja 🫵🙋🏻‍♂️
      Ikävä
      156
      966
    9. Miksi ihmeessä?

      Erika Vikman diskattiin, ei osallistu Euroviisuihin – tilalle Gettomasa ja paluun tekevä Cheek
      Ateismi
      22
      904
    10. Tiedän kaiken sinusta ja kaikesta

      Tiedän miten kärsit. Tiedän millanen oikeesti oot. Tiedän miksi valehtelit, tiedän miksi satutit mua. Tiedän mitä tapaht
      Ikävä
      58
      889
    Aihe