转自:http://cancait.blog.163.com/blog/static/21335744201061522243144/
有时候感觉互联网是万能的,什么答案都能到,但还是有时候不能直接找到答案,要靠自己去解决。
VB语言里Replace函数如何不区别大小写是很多问的问题,但网上难得看到好答案,一般都是用正则表达式,其实此函数本身就有忽略大小写的功能参数,只是平时大家都不用,于是舍近求远了。
Replace函数一共有六个参数,其中三个必须三个可选:
Replace( expression , find , replacewith [, start [, count [, compare ]]])
compare参数表示比较方式,平时我们都省略了,那样是按二进制比较,区分大小写的,还可以设为按文字比较(值1),这样就不区别大小写了。
当我们指定了compare参数,就必须把start(开始位置)和count(替换次数)都指定了,因为它们在前面。
所以不区别大小写替换的方法是(用举例看得明白些):
Replace("pPfdppf","PP","",1,-1,1) 结果返回:fdf
其它方法
使用正则表达式:
Function replace1(str,rplstr,rplwith)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern=rplstr
replace1=re.replace(str,rplwith)
End Function
调用方法:replace1("pPfdppf","PP","")
大小转换法:
如果内容的大小写不重要可以先将内容Ucase或Lcase一下再替换,不过既然有了前面的好方法,此法就作废了。
Instr函数返回某字符(串)在某字符串里首次出现的位置,如果没有则返回0。它有四个参数,两个必须两个可选,如果省略了可选参数就会区别大小写。
InStr ([start , ]string1 , string2 [, compare ])
要不区别大小写应该这样写:
Instr(1,"pPfdppf","PP",1) 结果返回1
起作用的是后面那个1,原理同Replace函数。需要注意的是前面那个1不能省略,省略了会报错。
其实很多函数我们都是只知其一不知其二,只满足于简单的用法是不行的。据我所了解的,现在还没有一个完整系统又简单易理解的VB函数教程,很多使用教程都没有实例,那些参数的用法看不明白。我会在以后把常用的VB函数具体用法整理上来。