lang • comp

Comp

iResultado = Comp ( String1 AS String , String2 AS String [ , Modo AS Integer ] ) AS Integer

Compara duas strings, e retorna:

  • 0 se as duas strings são iguais;

  • 1 se String1 é estritamante maior que String2;

  • -1 se String1 é estritamante menor que String2.

O parâmetro Mode pode ser qualquer combinação definida na página Métodos de comparação.

Exemplos

IF Comp(command, "open") = 0 THEN open_file
DIM UserName AS String

PRINT "Digite seu nome de usuário:";
INPUT UserName

IF Comp(UserName, "Akiti") = 0 THEN
  PRINT "Você pode entrar"
ELSE
  PRINT "Desculpe, você não pode entrar"
ENDIF
 'Este é apenas um exemplo ilustrativo.
 'Para realmente excluir o arquivo você terá que escrever o código apropriado.

DIM answer AS String

PRINT "Você quer excluir o arquivo? [y/n]"
INPUT answer

IF Comp(answer, "y", gb.text) = 0 THEN

  '...... (Código para excluir o arquivo)
  '......
  '......

  ' Se obtivermos êxito total, nós imprimimos a seguinte mensagem
  PRINT "File Deleted"

ELSE
  PRINT "Arquivo não Excluídos"
ENDIF

Veja também