当前位置:首页 > ASP > 正文内容

Replace,Instr函数不区别大小写的方法

canca15年前 (2010-07-15)ASP589

有时候感觉互联网是万能的,什么答案都能到,但还是有时候不能直接找到答案,要靠自己去解决。

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函数具体用法整理上来。

扫描二维码推送至手机访问。

版权声明:本文由Ant.Master's Blog发布,如需转载请注明出处。

本文链接:https://iant.work/post/285.html

标签: ASP
分享给朋友:

“Replace,Instr函数不区别大小写的方法” 的相关文章

ASP生成JSON

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!--#include file="json.asp"--><!--#include file="inc/Conn.asp" --><...

Asp读写UTF-8格式文件

最近一个项目用到这个,为什么呢?因为要用ASP文件来修改ASP文件,也就是说在代码中动态的修改要执行的ASP文件,由于项目是多语种的,所以,最终选用UTF-8统一编码开始尝试用ASP的FSO对象来完成,在尝试过无数次后,终于死心,FSO对象只能读写ANSI编码的文本文件,并且只能读写文本文件在GOO...

如何提高ASP数据查询执行效率

1 明确查询的字段名称2 使用rs(0)比rs(“name”)更快3 使用记录集rs值前,将其赋值给变量4 [TEST] 现有10W条数据,Access数据库保存通过正常提取 | 通过存储过程提取| 使用GetRows()方法提取: 1 明确查询的字段名称 Select * from [data_t...

XML加ASP实现网页“本地化”

  想让你的站点能被来自多个国家的冲浪者看明白吗?无疑,这就需要提供多个语言版本的页面内容,也就是所谓的“本地化”功能。最容易想到的方法就是分别编写多种语言的页面内容,然后放置到不同的目录下,再在首页上添加导航到各自语言位置的链接。很明显,这样的处理方式将浪费许多包含公共元素以及设计框架的空间,而且...

asp控制xml数据库的6段代码

NO.1--建立一个XML数据库data.xml <?xml version="1.0"?><records><record><name>caca</name><qq>154222225</qq><email&...

ASP中如何实现类似Sleep()的时间延迟?

ASP中有时候也需要SLEEP()函数,即等待一段时间再继续执行跟着的代码。如何实现呢?我搜索了很久,得到很少解决的办法。下面是一些折中的做法: 1. sub MySleep(mySleepTime)dim myTimemyTime = nowWhile DateDiff("s",myTime,no...

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。