作者JacobTai (不想跟世界说话)
看板Visual_Basic
标题Re: [VB6 ] 代码查询的问题
时间Wed Feb 1 14:50:36 2012
※ 引述《KCVO (KCVO)》之铭言：
: 最近想写一个查询代码的程式
: 大概程式码如下:
: Private Sub Command1_Click()
: n = UCase(Text1.Text)
: If n = "HUN" Or n = "HNU" Or n = "UHN" Or n = "UNH" Or n = "NHU" Or n = "NUH" Then
: Print "100"
: ElseIf n = "TWO" Or n = "TOW" Or n = "WTO" Or n = "WOT" Or n = "OTW" Or n = "OWT" Then
: Print "200"
: .
: .
: end if
: 因为代码还蛮多的...感觉用这方法写很笨...
: 想请问有没有更精简的写法
: 感谢各位
n = UCase(Text1.Text)
If instr(n, "H") * instr(n, "N") * instr(n, "U") > 0 then
Print "100"
ElseIf instr(n, "T") * instr(n, "W") * instr(n, "O") > 0 then
Print "200"
.
.
end if
睡觉前写的 有错不负责
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 207.216.90.49
1F：推 Y78:推这个 我都忘记有instr了 02/01 16:37
2F：推 KCVO:刚刚去查了instr的用法 又学到一个函数了! 谢谢大大^^ 02/01 22:06