我怎樣才能找到亂七八糟的字母？Visual Basic 2010

Question

我已經打亂了字母，所以每次都會有所不同，並且有一個txt文件，其中包含字典中的所有單詞。我對此很陌生，並試圖自學VB，但是這讓我感到很開心，所以可以真正做到一些幫助。

基本上，我怎樣才能確保玩家進入文本框是一個單詞，可以通過比較字符串和txt文件來查找它是一個真正的單詞，可以在亂七八個字母中找到？這句話可以是任何長度，只要他們是小於8

我有兩個數組，一個輔音和一個元音，讓玩家通過按下其中一個按鈕元音輔音或創建炒信按鈕。

一個例子是： KEEIAQWL LEAK這個詞是存在的。 :)

Answer 1

一種方法是檢查單個字母，因爲它們是由用戶輸入到文本框中;如果它們不存在，請不要添加它們 - 這樣，您將永遠不需要在字典查找之前進行檢查。

一般的方法將涉及查看提交的單詞中的每個字符;

available_letters = "KEEIAQWL" 
.... 
entered_word = "leak" 
available_letters_temp = available_letters 

entered_word = Ucase$(entered_word) '//ensure same case 

dim i as long, pos as long 
for i = 1 to Len(entered_word) 
    '// see if letter ok 
    pos = instr(1, available_letters_temp, mid$(entered_word, i, 1)) 
    if pos = 0 then 
     msgboxMid$(entered_word, i, 1) & " is not valid" 
    else 
     '// ok, remove for future lookups 
     mid$(available_letters_temp, pos, 1) = "@" 
    end if 
Next 

這也確保一個字母只能使用一次，即從「BO」中的「BOOB」是不允許的。