vb過濾非法字元串

『壹』 VB特殊字元過濾

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

『貳』 VB過濾多個非法字元求助

使用replace函數
text1.text=replace( replace(text1.text, "#",""),"%","")
這個語句過濾掉了文本框text1中的 # 和 %

『叄』 vb 從字元串中取特定字元串

你應該用 Split() 函數，按空格將字元串拆分。
例如：
Dim Str() as string
Str = Split("0 0 3 80 CE 6F", " ")

拆分的結果是一個字元串數組，你循環解析就可以了。

『肆』 VB中含變數和字元串過濾的刪除

vbs的命令我不怎麼熟悉，不敢瞎寫，這是我寫的一個批處理，同樣可以達到你的目的，這是在xp下寫的，如果在win7中可能需要把
桌面
修改為
desktop

@echo
off&setlocal
enabledelayedexpansion

for
/f
"delims="
%%i
in
('dir
"%userprofile%\桌面\"
/b')
do
(

set
fname=%%~i

set
fname=!fname:~0,6!

if
not
!fname!==客戶服務平台
del
/q
"%userprofile%\桌面\%%~i"
)

pause

『伍』 VB6.0，查找某一字元串中符合要求的字元。

Dim str1 As String
Dim a1, a2 As Integer
str1 = "D:\Media\GVODMedia\GVODMedia\20110101-11411-401.d"
a1 = InStrRev(str1, ".")
a2 = InStrRev(str1, "\")
MsgBox Mid(str1, a2 + 1, a1 - a2 - 1)
從後往前找，先找 "." 的位置a1，然後再找最後一個"\"的位置a2
起始位置就是a2+1，查找的字元串的長度就是 a1-(a2+1)
所以用mid函數就能取出來了。
當然在實際做程序時還要判斷在字元串是否存在"."、"\"，即 a1、a2數值的大小，避免用mid時出錯。

『陸』 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

『柒』 VB6如何過濾如下 \ / : * "<>|字元

ban = Array("\", "/", ":", "*", "?", """", "<", ">", "|") '要過濾的字元
For i = 0 To Ubound(ban)
If InStr(FileName, ban(i)) <> 0 Then
MsgBox "文件名包含禁止字元"
Exit For
End If
Next

『捌』 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過濾指定字元串

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

『拾』 如何過濾掉字元串中的非法字元

過濾來非法字元：自
/**
* 替換xml特殊字元，
* 過濾非法字元 HJX
* @param s
* @return
*/
public static String format(String s){
String reg = "[//x00-//x08//x0b-//x0c//x0e-//x1f]";//過濾掉非法字元
if ( s == null )
return "";
else{
s=s.replaceAll("&","&").replaceAll("<","<").replaceAll(">",">").replaceAll("/"",""").replaceAll(reg,"");;
return s;
}
}