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;
}
}