用InStr函数实现代码减肥
您可以以“并行”方式使用Instr函数来实现代码简洁。以下是检测字符串是否包含元音字母的典型示例:
1.常用方法:
如果UCase$(char) = "A "或UCase$(char) = "E "或UCase$(char) = "I "或UCase$(char) = "O "或UCase$(char) = "U "则
这是一个元音
如果…就会结束
2.一种更简洁的方法:
如果InStr("AaEeIiOoUu ",char)则
这是一个元音
如果…就会结束
同样,通过使用单词中没有的字符作为分隔符,使用InStr来检查变量的内容。以下示例检查Word是否包含季节名称:1。常用方法:
如果LCase$(word) = "冬天"或LCase$(word) = "春天"或LCase$(word) = _ "夏天"或LCase$(word) = "秋天"那么
这是一个季节的名字
如果…就会结束
2.一种更简洁的方法:
if Instr(";冬天;春天;夏天;摔倒;”, ";"& word & ";")然后
这是一个季节的名字
如果…就会结束
有时候,你甚至可以用InStr代替Select。
Case代码片段,但是一定要注意参数中的字符数。在下面的例子中,数字0到9对应的英文名称是阿拉伯数字:1。常用方法:
选择大小写LCase$(word)
案例“零”
结果= 0
案例一
结果= 1
案例二
结果= 2
案例三
结果= 3
案例四
结果= 4
案例五
结果= 5
案例六
结果= 6
案例七
结果= 7
案例八
结果= 8
案例“九”
结果= 9
结束选择
2.一种更简洁的方法:
result = InStr(";零;;一;;;二;;;三;四;;五;;六;;;七;八;九;”, ";"& LCase $(word)& ";") \ 6
位律师回复
0条评论