Commande de compilation...
Commande d'enregistrement des ActiveX...
Commande d'exécution...
Fichier source...
upsvtm Com=Charger
caractere.exe
Dim MUpsKrn As IUpsKrn
Private Sub EcrireEcran(ByVal Libelle As String)
' ==============================================
Ecran.AddItem Libelle
End Sub
Private Sub Form_Load()
' =====================
Dim C As IUpsKrnCaractere
Dim L As Integer
On Error GoTo GestionErreur
Set MUpsKrn = CreateObject("UpsApp.UpsKrn")
Set C = MUpsKrn.Caractere2(MUpsKrn.ComVariantBool2Booleen(True))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.Caractere5(MUpsKrn.ComInt2Entier(5))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.Caractere8(MUpsKrn.ComFloat2Reel(3.14159))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde")
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour").Additionner(MUpsKrn.ComBStr2Caractere("
Le")).Additionner(MUpsKrn.ComBStr2Caractere(" Monde"))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde").Soustraire()
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
L = MUpsKrn.Entier2ComInt(MUpsKrn.ComBStr2Caractere("Bonjour").Longueur())
EcrireEcran Str$(L)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde").Gauche(MUpsKrn.ComInt2Entier(5))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde").Droite(MUpsKrn.ComInt2Entier(5))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde").Milieu(MUpsKrn.ComInt2Entier(2),
MUpsKrn.ComInt2Entier(5))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde").Majuscule()
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde").MajMinuscule()
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde").Minuscule()
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour monde").Inserer(MUpsKrn.ComBStr2Caractere("
le"), MUpsKrn.ComInt2Entier(7))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
L = MUpsKrn.Entier2ComInt(MUpsKrn.ComBStr2Caractere("Bonjour le monde").Compter(MUpsKrn.ComBStr2Caractere("o"),
MUpsKrn.ComInt2Entier(0)))
EcrireEcran Str$(L)
L = MUpsKrn.Entier2ComInt(MUpsKrn.ComBStr2Caractere("Bonjour le monde").Compter(MUpsKrn.ComBStr2Caractere("o"),
MUpsKrn.ComInt2Entier(4)))
EcrireEcran Str$(L)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour XYZT monde").Remplacer(MUpsKrn.ComBStr2Caractere("XYZT"),
MUpsKrn.ComBStr2Caractere("le"), MUpsKrn.ComInt2Entier(0))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour XYZT monde").Remplacer(MUpsKrn.ComBStr2Caractere("XYZT"),
MUpsKrn.ComBStr2Caractere("le"), MUpsKrn.ComInt2Entier(4))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde").Ajouter(MUpsKrn.ComInt2Entier(20),
MUpsKrn.ComBStr2Caractere(" "))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde").Ajouter(MUpsKrn.ComInt2Entier(20),
MUpsKrn.ComBStr2Caractere("."))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde").AjouterGauche(MUpsKrn.ComInt2Entier(20),
MUpsKrn.ComBStr2Caractere(" "))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde").AjouterGauche(MUpsKrn.ComInt2Entier(20),
MUpsKrn.ComBStr2Caractere("."))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde").AjouterDroite(MUpsKrn.ComInt2Entier(20),
MUpsKrn.ComBStr2Caractere(" "))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde").AjouterDroite(MUpsKrn.ComInt2Entier(20),
MUpsKrn.ComBStr2Caractere("."))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere(" Bonjour le monde ").Supprimer(MUpsKrn.ComBStr2Caractere("
"))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("..Bonjour le monde..").Supprimer(MUpsKrn.ComBStr2Caractere("."))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere(" Bonjour le monde").SupprimerGauche(MUpsKrn.ComBStr2Caractere("
"))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("....Bonjour le monde").SupprimerGauche(MUpsKrn.ComBStr2Caractere("."))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde ").SupprimerDroite(MUpsKrn.ComBStr2Caractere("
"))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le monde....").SupprimerDroite(MUpsKrn.ComBStr2Caractere("."))
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
L =
MUpsKrn.Entier2ComInt(MUpsKrn.ComBStr2Caractere("Bonjour le monde").Compter(MUpsKrn.ComBStr2Caractere("o"),
MUpsKrn.ComInt2Entier(0)))
EcrireEcran Str$(L)
L = MUpsKrn.Entier2ComInt(MUpsKrn.ComBStr2Caractere("Bonjour le monde").Compter(MUpsKrn.ComBStr2Caractere("o"),
MUpsKrn.ComInt2Entier(3)))
EcrireEcran Str$(L)
Set C = MUpsKrn.ComBStr2Caractere("Bonjour le")
C.AdditionnerAffecter MUpsKrn.ComBStr2Caractere(" monde")
EcrireEcran MUpsKrn.Caractere2ComBStr(C)
Set C = MUpsKrn.ComBStr2Caractere("B")
Set C = C.Additionner(MUpsKrn.ComBStr2Caractere("B"))
If MUpsKrn.Booleen2ComVariantBool(C.Egal(MUpsKrn.ComBStr2Caractere("B")))
Then
EcrireEcran "C==B"
End If
If MUpsKrn.Booleen2ComVariantBool(C.Different(MUpsKrn.ComBStr2Caractere("B")))
Then
EcrireEcran "C!=B"
End If
If MUpsKrn.Booleen2ComVariantBool(C.InferieurOuEgal(MUpsKrn.ComBStr2Caractere("B")))
Then
EcrireEcran "C<=B"
End If
If MUpsKrn.Booleen2ComVariantBool(C.SuperieurOuEgal(MUpsKrn.ComBStr2Caractere("B")))
Then
EcrireEcran "C>=B"
End If
If MUpsKrn.Booleen2ComVariantBool(C.Inferieur(MUpsKrn.ComBStr2Caractere("B")))
Then
EcrireEcran "C<B"
End If
If MUpsKrn.Booleen2ComVariantBool(C.Superieur(MUpsKrn.ComBStr2Caractere("B")))
Then
EcrireEcran "C>B"
End If
If MUpsKrn.Booleen2ComVariantBool(MUpsKrn.ComBStr2Caractere("B").Egal(C))
Then
EcrireEcran "B==C"
End If
If MUpsKrn.Booleen2ComVariantBool(MUpsKrn.ComBStr2Caractere("B").Different(C))
Then
EcrireEcran "B!=C"
End If
If MUpsKrn.Booleen2ComVariantBool(MUpsKrn.ComBStr2Caractere("B").InferieurOuEgal(C))
Then
EcrireEcran "B<=C"
End If
If MUpsKrn.Booleen2ComVariantBool(MUpsKrn.ComBStr2Caractere("B").SuperieurOuEgal(C))
Then
EcrireEcran "B>=C"
End If
If MUpsKrn.Booleen2ComVariantBool(MUpsKrn.ComBStr2Caractere("B").Inferieur(C))
Then
EcrireEcran "B<C"
End If
If MUpsKrn.Booleen2ComVariantBool(MUpsKrn.ComBStr2Caractere("B").Superieur(C))
Then
EcrireEcran "B>C"
End If
Set C = MUpsKrn.ComBStr2Caractere("ab")
Set C = C.Additionner(MUpsKrn.ComBStr2Caractere("cd"))
If MUpsKrn.Booleen2ComVariantBool(C.IdentiqueMajMinuscule(MUpsKrn.ComBStr2Caractere("def")))
Then
EcrireEcran "C==def"
Else
EcrireEcran "C!=def"
End If
If MUpsKrn.Booleen2ComVariantBool(C.IdentiqueMajMinuscule(MUpsKrn.ComBStr2Caractere("AbCd")))
Then
EcrireEcran "C==AbCd"
Else
EcrireEcran "C!=AbCd"
End If
Set C = Nothing
Set MUpsKrn = Nothing
Exit Sub
GestionErreur:
'=============
EcrireEcran "Erreur UpsKrn-0 : L'exception suivante a été envoyée dans le
source '" + Err.Source + "' :"
EcrireEcran Err.Description
End Sub