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