推 KCVO:方法瞭解了^^ 努力看懂程式碼中 非常感謝!! 02/01 14: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
: 因為代碼還蠻多的...感覺用這方法寫很笨...
: 想請問有沒有更精簡的寫法
: 感謝各位
原本想說寫簡潔一點沒想到還是co了50 lines orz
基本的想法是
要比對TWO的所有排列組合(TWO TOW OWT...) 跟 輸入的字串
只要統計每個字母出現的次數是不是相等就好
不過這對三個字的感覺沒什麼用 長一點比較有用
http://nopaste.csie.org/603e2
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.32.105.249