Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
Elikäätten kun koodaa vaikka omaa ohjelmointikieltä tulee tarve tehdä erottelu vaikkapa lainaus omasta mureena basicen komennosta : print/moips eli kirjoitta moi ongelma on se miten saadaan eroteltua / merkin jälkeiset komennot...
Function erottele(sana As String, erottaja As String, tunnistettava as string)
eka = UCase$(Left$(sana, 3)) ' Otetaan 3 ensimmäistä kirjainta
If eka = UCase$(tunnistettava) Then ' Komento onkin tunnistetu
merkinkohta = InStr(sana, erottaja) 'Etsitään erottaja
If merkkikohta <> 0 Then ' Jos löytyi
kirjoitettava = Mid$(sana, merkkikohta + 1) 'Otetaan talteen loput sanasta
Else
'Erottajaa ei löydetty!
End If
End If
erottele = kirjoitettava 'Funktiolle palautusarvo
End FunctionKäyttöä
Private Sub Form_Load()
' Komento on print-juha erottelia on - ja etsittävä on pri
print erottele "print-juha","-","pri"
End Subehei muuten toimi
Aihe on jo aika vanha, joten et voi enää vastata siihen.