标题: 在Access中如何用InStr函数实现代码瘦身？ [打印本页] 作者: 徐依淼 时间: 2013-7-4 10:39 标题: 在Access中如何用InStr函数实现代码瘦身？ 作者: 淡写轻描 时间: 2013-7-4 10:52
可以采用“旁门左道”的方式使用Instr函数实现代码的简练。下面是一个典型的例子，检测字符串中是否包含一个元音字母： 1、普通的方法：If UCase$(char) = "A" orUCase$(char) = "E" or UCase$(char) = "I" or UCase$(char) ="O" or UCase$(char) = "U" Then ' it is a vowel End If 2、更加简练的方法：If InStr("AaEeIiOoUu", char) Then ' it is a vowel End If 同样，通过单词中没有的字符作为分界符，使用InStr来检查变量的内容。下面的例子检查Word中是否包含一个季节的名字： 1、普通的方法：If LCase$(word) = "winter" orLCase$(word) = "spring" or LCase$(word) = _ "summer" orLCase$(word) = "fall" Then ' it is a season's name End If 2、会更加简练的方法：IfInstr(";winter;spring;summer;fall;", ";" & word &";") Then ' it is a season's name End If 有时候，甚至可以使用InStr来替代Select Case代码段，但一定要注意参数中的字符数目。