Comp
Result = Comp ( String1 AS String , String2 AS String [ , Mode AS Integer ] ) AS Integer
比较两个字符串,返回:
-
0:两个字符串相等。
-
1:String1完全大于String2。
-
-1:String1完全小于String2。
Mode参数可以是在
比较方式页面中定义的组合。
示例
IF Comp(command, "open") = 0 THEN open_file
DIM UserName AS String
PRINT "输入你的用户名:";
INPUT UserName
IF Comp(UserName, "Akiti") = 0 THEN
PRINT "欢迎进入"
ELSE
PRINT "对不起,你不能进入"
ENDIF
' 这只是一个示例,
' 要真正删除文件你还要写出相应的代码。
DIM answer AS String
PRINT "是否删除文件?[y/n]"
INPUT answer
IF Comp(answer, "y", gb.text) = 0 THEN
'...... (删除文件的程序代码)
'......
'......
' 成功,打印如下信息。
PRINT "文件已删除"
ELSE
PRINT "文件未删除"
ENDIF
参见