Comp
Result = Comp ( String1 AS String , String2 AS String [ , Mode AS Integer ] ) AS Integer
Compare deux chaînes et donne en retour :
-
0 si les deux chaînes de caractères sont égales.
-
1 si String1 est strictement plus grande à String2.
-
-1 si String1 est strictement plus petite à String2.
Le paramètre
Mode peut être n’importe quelle combinaison définie dans la page
Méthodes de comparaison.
Exemples
Dim command as string = "open"
If Comp(command, "open") = 0 Then Print "open_file"
DIM UserName AS String
PRINT "Veuillez entrer votre nom d’utilisateur SVP :";
INPUT UserName
IF Comp(UserName, "Akiti") = 0 THEN
PRINT "Vous pouvez entrer"
ELSE
PRINT "Désolé, Vous ne pouvez pas entrer"
ENDIF
' C’est un simple exemple illustratif.
' Pour réellement effacer le fichier, vous devrez écrire le code approprié.
Dim answer As String
Print "Voulez-vous effacer le fichier ? [O/N]"
Input answer
If Comp(answer, "O", gb.IgnoreCase) = 0 Then
'...... (code pour effacer le fichier)
'......
'......
' En cas de succès nous affichons le message suivant
Print "Fichier effacé"
Else
Print "Fichier non effacé"
Endif
Voir aussi