vb過濾日語字元

㈠ 用VB可以把輸入法輸入的東西過濾嗎

可以，但我的方案是建立一個字元-拼音對照表，對照表可以生成在程序里，也可以存在MDB資料庫里。至於國家一級、二級字型檔中每個漢字的拼音，Windows下有個文件能找到，你可以先搜一下。
這個方案我在1999年用過，在VB5+DAO下調試通過，但近些年是否有更好的方案我就不清楚了。
另外這個方案有個缺點：多音字問題，同一個漢字，可能有兩種發音，比如『單』，可以是『Dan』也可以是『Chan』，雖然程序可以通過片語來判斷該選擇哪種拼音，但程序智能化程度太高了，反而不容易操作。

㈡ VB 從字元串中去掉某段字元

mid(字元串，從第幾個開始，長度) 在[字元串]中[從第幾個開始]取出[長度個字元串]
例如 mid("iam123",4,3) 則返回 "123"

VB 字元串處理函數集
mid(字元串，從第幾個開始，長度) 在[字元串]中[從第幾個開始]取出[長度個字元串]
例如 mid("小欣無敵",1,3) 則返回 "小欣無"
instr(從第幾個開始,字元串1,字元串2) 從規定的位置開始查找，返回字元串2在字元串1中的位置
例如 instr(1,"小欣無敵","小") 則返回 1,instr(2,"小欣無敵","小")，則返回 0 。 0 表示未找到
InStrRev(字元串1,字元串2,從第幾個開始) 從規定的位置開始，從後住前查找，返回字元串2在字元串1中的位置，此處注意，雖是從後住前查找，但是返回的值還是從前往後算的。
例如 instrRev("小欣無敵","小",2) 則返回 2 ; instrRev("小欣無敵","欣",1) 則返回 0 ,因為它從"小欣無敵"的第1個字開始往前查找，所以找不到 。0 表示未找到
left(字元串,長度) 從[字元串]的左邊開始返回[長度]個字元
例如 Left("小欣無敵,3) 則返回 "小欣無"
right(字元串,長度) 從[字元串]的右邊開始返回[長度]個字元
例如 Right("小欣無敵",3) 則返回 "欣無敵"
ucase(字元串) 返回[字元串]的大寫形式，只對英文字元有效
例如 ucase("xiaoXINwuDi") 則返回 "XIAOXINWUDI"
lcase(字元串) 返回[字元串]的小寫形式，只對英文字元有效
例如 lcase("xiaoXINwuDi") 則返回 "xiaoxinwudi"
asc(字元) 返回[字元]的ascii編碼，若有多個字元，則只返回首字元的ascii編碼,和Chr()函數是一個可逆的過程
例如 asc("小") 則返回 -12127 ; asc("小欣無敵") 也返回 -12127
chr(ASCii編碼) 返回[Ascii]編碼所代表的字元，和Chr()函數是一個可逆的過程
例如 chr(-12127) 則返回 "小" ；chr(asc("小")) 則返回"小"(這里是為了說明asc和chr的可逆性，例用此特性可以加密文本)
trim(字元串) 返回去掉了前、後之後的[字元串]
例如 trim(" 小 欣 無敵 ") 則返回 "小 欣 無敵" ，中間的空格不受任何影響
string(個數,字元) 返回[個數]個[字元]
例如 string(3,"小") 則返回 "小小小" , 而 string(3,"小欣無敵") 也返回 "小"，只有首字元才有效
space(個數) 返回[個數]個空格
例如 space(5) 則返回 " "
strconv(字元串,轉換的類型) 將字元串轉成指定的類型。常用的類型只有兩個,vbwide 半形轉成全形,vbNarrow 全形轉成半形
例如 strconv("xiao",vbwide) 則返回 "XIAO",而strconv("XIAO",vbnarrow) 則返回 "XIAO"
』備注 vbwide = 4 ,vbnarrow = 8
len(字元串) 返回[字元串]的長度
例如 len("小欣無敵") 則返回 4

㈢ VB.net 過濾文字

dim a as string = replace(trim(textbox1.text),"TMD","") 'a 是過濾後的字元串，沒有"TMD"，
還有：if textbox1.text.indexOf("TMD")> -1 then exit sub
就這個之類的

㈣ VB特殊字元過濾

原字元串 = Replace(原字元串,"特殊字元1")原字元串 = Replace(原字元串,"特殊字元2")……原字元串 = Replace(原字元串,"特殊字元N")

㈤ VB 過濾其他字元串,只留下漢字

PrivateSubcmdGL_Click()

DimsAsString

DimstrAsString

DimmesAsString

DimiAsLong

mes=txtmain.Text

Fori=1ToLen(mes)

str=Mid(mes,i,1)

IfAsc(str)>255OrAsc(str)<0Then

s=s&str

EndIf

Next

Txtresult.Text=s

EndSub

兩個textboxname：txtcmd

multiline：ture

--------------------------------------------------------

name:txtresult

multiline：ture

一個commandbuttonname：txtGL

㈥ vb代碼中含有日文 如何在在中文版本上不顯示亂碼啊 給解決下吧 最好詳細點哈 謝謝

你好，有一個比較好的方法：

1. 將 VB 代碼復制到記事本里保存成一個文本文檔。
2. 將該文檔用 Word 打開（一定要是 Word 而不是記事本）
3. 文字編碼選擇」自動「或者」Shift-JIS5「
4. 將打開的文檔重新另存為一個 txt 純文本文檔，同時將編碼設置為簡體中文的編碼就可以啦。
5. 打開新的記事本文件，再將代碼復制到 VB 窗口中。

㈦ vb過濾指定字元串

Private Sub Command1_Click()
Dim c As String, i As Integer
c = "\/:*?""<>|"
For i = 1 To Len(c)
If InStr(1, s, Mid(c, i, 1)) > 0 Then s = Replace(s, Mid(c, i, 1), "")
Next
End Sub

㈧ VB過濾字元串【求助】

DimintLenAsInteger
DimiAsInteger
DimstrCurrentAsString

intLen=Len(Text1.Text)


Fori=1TointLen

strCurrent=Mid(Text1,i,1)

IfstrCurrent="."Or(Asc(strCurrent)>=48AndAsc(strCurrent)<=57)Then

Text2=Text2&strCurrent

EndIf

Next