lang • comp

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