推 Y78:推這個 我都忘記有instr了 02/01 16:37
推 KCVO:剛剛去查了instr的用法 又學到一個函數了! 謝謝大大^^ 02/01 22:06
※ 引述《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