將輸入轉換爲其他鍵盤語言的最佳方式是什麼？

我最近建立了一個訪問程序，其中有一個代理機構的客戶帳戶。將輸入轉換爲其他鍵盤語言的最佳方式是什麼？

問題是很多客戶的帳戶名稱不是英文。這使代理人很難進行搜索，因爲他們必須不斷改變這兩種語言。

我給他們發了一個軟件，我發現它可以在輸入後改變語言（http://langover.com/），但他們不滿意。

他們希望我建立一些能夠自動搜索這兩種語言的東西。

下面是代碼我現在使用：

Private Sub SearchBox_AfterUpdate() 
    Me.Filter = "[USER]" & " like ""*" & me.SearchBox & "*"" 
    Me.FilterOn = True 
End Sub

什麼是根據兩個鍵盤語言設置來獲得兩個字符串的最好方法？

（打字akuo時，例如，你會得到akuo結果以及שלום）

來源

2016-12-21 Dan

你可以直接在數據庫中存儲兩種編碼嗎？ – Comintern

1.這並沒有解決問題 - 它只是繞過它。 – Dan

2.那已經有7,000多個用戶呢？ 3.當我開設新帳戶時，我仍然需要相同的功能。 – Dan

這應該工作：

SearchBox_AfterUpdate() 
searchstringlang1 = Me.searchbox 
searchstringlang2 = Me.searchbox 
str1 = "qwertyuiopasdfghjkl;zxcvbnm,./" & "/'קראטוןםפשדגכעיחלךףזסבהנמצתץ" 
str2 = "/'קראטוןםפשדגכעיחלךףזסבהנמצתץ" & "qwertyuiopasdfghjkl;zxcvbnm,./" 
For n = 1 To Len(searchstringlang1) 
If InStr(1, str1, Mid(searchstringlang1, n, 1)) > 0 Then 
searchstringlang2 = searchstringlang2 & Mid(str2, InStr(1, str1, Mid(searchstringlang1, n, 1)), 1) 
Else 
searchstringlang2 = searchstringlang2 & Mid(searchstringlang1, n, 1) 
End If 
Next 
Me.Filter = "[username]" & " like ""*" & searchstring & "*"" or [username] like ""*" & searchstringlang2 & "*""" 
End Sub

很明顯，你可以用任何語言做到這一點（我選擇了語言，你在您的示例中使用），同意您以兩個字符串[str1和str2]的相同順序鍵入兩種語言。

很幸運

來源

2016-12-21 17:43:24

將輸入轉換爲其他鍵盤語言的最佳方式是什麼？

回答

相關問題