用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