Comp
Result = Comp ( String1 AS String , String2 AS String [ , Mode AS Integer ] ) AS Integer
Compara dos cadenas y devuelve:
-
0 si las dos cadenas son iguales.
-
1 si String1 es estrictamente mayor que String2.
-
-1 si String1 es estrictamente menor que String2
El parámetro
Mode puede ser cualquier combinación definida en la página
Méthodos de Comparación.
Examples
IF (Comp(command, "open") = 0) THEN open_file
DIM UserName AS String
Print "Ingrese su nombre:";
Input UserName
IF Comp(UserName, "Akiti") = 0 THEN
PRINT "Puede ingresar"
ELSE
PRINT "Lo siento, no puedes ingresar"
ENDIF
' Este es un ejemplo a modo ilustrativo.
' Para eliminar realmente el archivo deberá escribir el código adecuado.
DIM answer AS String
PRINT "Desea eliminar el archivo? [S/N]"
INPUT answer
IF Comp(answer, "S", gb.text) = 0 THEN
'...... (código para eliminar el archivo)
'......
'......
' Si se pudo eliminar se muestra el siguiente mensaje
PRINT "Archivo eliminado"
ELSE
PRINT "Archivo No eliminado"
ENDIF
Véase también