ASP中一个字符串处理类（加强）（VBScript）

最新推荐文章于 2021-05-17 03:29:44 发布
最新推荐文章于 2021-05-17 03:29:44 发布
阅读量164 收藏
点赞数
文章标签： VBScript ASP ASP.net .net

相关文章参见：

http://www.csdn.net/Develop/read_article.asp?id=22695

本文在此基础上进行了一些添加，加了几个适合中文网站的FUNCTION进去，可能还有些没有补充进去，有感兴趣的朋友可以再在此基础上加一点FUNCTION进去，不过可别忘记分享一下！

<%
class StringOperations

'****************************************************************************
'' @功能说明:把字符串换为char型数组
'' @参数说明:- str [string]: 需要转换的字符串
'' @返回值:- [Array] Char型数组
'****************************************************************************
public function toCharArray(byVal str)
redim charArray(len(str))
for i = 1 to len(str)
charArray(i-1) = Mid(str,i,1)
next
toCharArray = charArray
end function

'****************************************************************************
'' @功能说明:把一个数组转换成一个字符串
'' @参数说明:- arr [Array]: 需要转换的数据
'' @返回值:- [string] 字符串
'****************************************************************************
public function arrayToString(byVal arr)
for i = 0 to UBound(arr)
strObj = strObj & arr(i)
next
arrayToString = strObj
end function

'****************************************************************************
'' @功能说明:检查源字符串str是否以chars开头
'' @参数说明:- str [string]: 源字符串
'' @参数说明:- chars [string]: 比较的字符/字符串
'' @返回值:- [bool]
'****************************************************************************
public function startsWith(byVal str, chars)
if Left(str,len(chars)) = chars then
startsWith = true
else
startsWith = false
end if
end function

'****************************************************************************
'' @功能说明:检查源字符串str是否以chars结尾
'' @参数说明:- str [string]: 源字符串
'' @参数说明:- chars [string]: 比较的字符/字符串
'' @返回值:- [bool]
'****************************************************************************
public function endsWith(byVal str, chars)
if Right(str,len(chars)) = chars then
endsWith = true
else
endsWith = false
end if
end function

'****************************************************************************
'' @功能说明:复制N个字符串str
'' @参数说明:- str [string]: 源字符串
'' @参数说明:- n [int]: 复制次数
'' @返回值:- [string] 复制后的字符串
'****************************************************************************
public function clone(byVal str, n)
for i = 1 to n
value = value & str
next
clone = value
end function

'****************************************************************************
'' @功能说明:删除源字符串str的前N个字符
'' @参数说明:- str [string]: 源字符串
'' @参数说明:- n [int]: 删除的字符个数
'' @返回值:- [string] 删除后的字符串
'****************************************************************************
public function trimStart(byVal str, n)
value = Mid(str, n+1)
trimStart = value
end function

'****************************************************************************
'' @功能说明:删除源字符串str的最后N个字符串
'' @参数说明:- str [string]: 源字符串
'' @参数说明:- n [int]: 删除的字符个数
'' @返回值:- [string] 删除后的字符串
'****************************************************************************
public function trimEnd(byVal str, n)
value = Left(str, len(str)-n)
trimEnd = value
end function

'****************************************************************************
'' @功能说明:检查字符character是否是英文字符 A-Z or a-z
'' @参数说明:- character [char]: 检查的字符
'' @返回值:- [bool] 如果是英文字符,返回TRUE,反之为FALSE
'****************************************************************************
public function isAlphabetic(byVal character)
asciiValue = cint(asc(character))
if (65 <= asciiValue and asciiValue <= 90) or (97 <= asciiValue and asciiValue <= 122) then
isAlphabetic = true
else
isAlphabetic = false
end if
end function

'****************************************************************************
'' @功能说明:对str字符串进行大小写转换
'' @参数说明:- str [string]: 源字符串
'' @返回值:- [string] 转换后的字符串
'****************************************************************************
public function swapCase(str)
for i = 1 to len(str)
current = mid(str, i, 1)
if isAlphabetic(current) then
high = asc(ucase(current))
low = asc(lcase(current))
sum = high + low
return = return & chr(sum-asc(current))
else
return = return & current
end if
next
swapCase = return
end function

'****************************************************************************
'' @功能说明:将源字符串str中每个单词的第一个字母转换成大写
'' @参数说明:- str [string]: 源字符串
'' @返回值:- [string] 转换后的字符串
'****************************************************************************
public function capitalize(str)
words = split(str," ")
for i = 0 to ubound(words)
if not i = 0 then
tmp = " "
end if
tmp = tmp & ucase(left(words(i), 1)) & right(words(i), len(words(i))-1)
words(i) = tmp
next
capitalize = arrayToString(words)
end function

'****************************************************************************
'' @功能说明:将源字符Str后中的'过滤为''
'' @参数说明:- str [string]: 源字符串
'' @返回值:- [string] 转换后的字符串
'****************************************************************************
public function checkstr(Str)
If Trim(Str)="" Or IsNull(str) Then
checkstr=""
else
checkstr=Replace(Trim(Str),"'","''")
end if
End function

'****************************************************************************
'' @功能说明:将字符串中的str中的HTML代码进行过滤
'' @参数说明:- str [string]: 源字符串
'' @返回值:- [string] 转换后的字符串
'****************************************************************************
Public Function HtmlEncode(str)
If Trim(Str)="" Or IsNull(str) then
HtmlEncode=""
else
str=Replace(str,">","&gt;")
str=Replace(str,"<","&lt;")
str=Replace(str,Chr(32),"&nbsp;")
str=Replace(str,Chr(9),"&nbsp;")
str=Replace(str,Chr(34),"&quot;")
str=Replace(str,Chr(39),"&#39;")
str=Replace(str,Chr(13),"")
str=Replace(str,Chr(10) & Chr(10), "</p><p>")
str=Replace(str,Chr(10),"<br> ")
HtmlEncode=str
end if
End Function

'****************************************************************************
'' @功能说明:计算源字符串Str的长度(一个中文字符为2个字节长)
'' @参数说明:- str [string]: 源字符串
'' @返回值:- [Int] 源字符串的长度
'****************************************************************************
Public Function strLen(Str)
If Trim(Str)="" Or IsNull(str) Then
strlen=0
else
Dim P_len,x
P_len=0
StrLen=0
P_len=Len(Trim(Str))
For x=1 To P_len
If Asc(Mid(Str,x,1))<0 Then
StrLen=Int(StrLen) + 2
Else
StrLen=Int(StrLen) + 1
End If
Next
end if
End Function

'****************************************************************************
'' @功能说明:截取源字符串Str的前LenNum个字符(一个中文字符为2个字节长)
'' @参数说明:- str [string]: 源字符串
'' @参数说明:- LenNum [int]: 截取的长度
'' @返回值:- [string]: 转换后的字符串
'****************************************************************************
Public Function CutStr(Str,LenNum)
Dim P_num
Dim I,X
If StrLen(Str)<=LenNum Then
Cutstr=Str
Else
P_num=0
X=0
Do While Not P_num > LenNum-2
X=X+1
If Asc(Mid(Str,X,1))<0 Then
P_num=Int(P_num) + 2
Else
P_num=Int(P_num) + 1
End If
Cutstr=Left(Trim(Str),X)&"..."
Loop
End If
End Function

end class
%>

happmaoo
关注
ASP的字符串处理函数
huishouwang的专栏
11-07 780
<br />    在脚本的功能处理中，通常需要对一些字符串进行一些修饰性处理。比如过滤掉字符串中的敏感字眼以符合最终显示的要求；又比如一段较长的字符串，需要提取开头的几个字符时。 <br />　　（1）Asc函数：返回字符串中第一个字母对应的ANSI字符代码。使用方法：asc(string)。其中string参数表示字符串。 <br />　　（2）Chr函数：返回指定了ANSI 字符代码对应的字符。使用方法：chr(chrcode)。参数chrcode是相关的标识数字。该函数的功能和asc函数形成对应。
VBScript把json字符串解析成json对象的2个方法
09-04
在VBScript中，处理JSON数据通常需要借助其他语言的支持，因为VBScript本身不内置JSON...这两种方法在ASP或VBScript环境中处理JSON数据时非常实用。在实际应用中，根据具体项目需求和环境限制，可以选择适合的方法。
asp字符串处理函数大全
10-31
函数 语法 功能 Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 Mid Mid(string,start,length) 从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串结尾的字符串 Left Left(string,length) 从string字符串的左边取得length长度的字符串 Right Right(string,length) 从string字符串的右边取得length长度的字符串 LCase LCase(string) 将string字符串里的所有大写字母转化为小写字母 UCase UCase(string) 将string字符串里的所有大写字母转化为大写字母 StrComp StrComp(string1,string2[，compare]) 返回string1字符串与string2字符串的比较结果，如果两个字符串相同，则返回0，如果小于则返回-1，如果大于则返回1 InStr InStr(string1,string2[,compare]) 返回string1字符串在string2字符串中第一次出现的位置 Split Split(string1,delimiter[,count[,start]]) 将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。如果省略，使用空格("")作为分隔符。count返回的子字符串数目，-1指示返回所有子字符串。start为1执行文本比较；如果为0或者省略执行二进制比较。 Replace Replace(expression,find,replacewith[,compare[,count[,start]]]) 返回字符串，其中指定数目的某子字符串(find)被替换为另一个子字符串(replacewith)。
ASP字符串函数大全
天涯 书塾
01-13 8144
ASP字符串函数：Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 Mid Mid(string,start,length) 从string字符串的start字
ASP 字符串函数
Blackcat1212的博客
09-08 146
函数 语法 功能 Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 函数 语法 功能 Len Len(string|varname) 返回字符串内字符...
asp之字符串函数示例
04-26 767
用字符串函数对字符串进行截头去尾、大小写替换等操作。 函数 语法 功能 Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 Mid Mid(string,star
asp实现二进制字符串转换为Unicode字符串
10-30
ADODB.Stream是ASP中处理数据流的重要对象，它可以读取、写入和操作数据。首先，我们需要创建一个Stream对象，设置其类型为adTypeText（表示文本流）。 ```vbscript Set BytesStream = Server.CreateObject(...
asp字符串转json对象类
05-24
题目中提到的"asp字符串转json对象类"就是这样一个功能，它允许开发者将JSON格式的字符串转换为VBScript可以操作的对象。 在VBScript中，对象的属性通常通过"obj.property"的方式访问，但根据描述，这里的JSON对象...
asp 字符串截取函数
01-20
这三个函数在处理含有汉字的ASP字符串时非常有用，可以确保正确处理多字节字符，如汉字。在实际应用中，可以根据需求选择合适的函数进行字符串截取，例如，`cutStr`可用于限制显示的字符数，`strlen`可用来获取准确...
asp字符控制大全
weixin_34392906的博客
04-23 144
Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 Mid Mid(string,start,length) 从string字符串的...
c语言asp截取字符串函数,字符串处理函数
weixin_39963080的博客
05-17 192
在C中，并没有字符串这个数据类型，而是使用字符数组来保存字符串。C字符串实际上就是一个以null('\0')字符结尾的字符数组，null字符表示字符串的结束。需要注意的是：只有以null字符结尾的字符数组才是C字符串，否则只是一般的C字符数组。C字符串定义时可以利用"="号进行初始化，但是以后不能利用"="对C字符串进行赋值。对C字符串的操作需要通过"string"文件中定义的字符串处理函数。例如...
ASP字符串转换函数用法
weixin_30911809的博客
11-22 205
Asc（str）返回第一个字符的ASCll符号 InStr（start，str1,Str2)从字符串str1的start位置开始查找str2） Lcase（str）将字符串str中的所有字符转换为小写 Left（str，len）返回字符串str中最左侧长度为len的字符串 len（str）返回字符串str长度 Ltrim（str）去除str左边的空格 Mid（str，s...
asp字符串函数及实例
暗淡亮点的博客
10-28 552
以下是asp字符串函数及实例(vb字符串函数)的讲解与用法，len函数的使用，left函数, instr函数，Split函数的使用等。 用字符串函数对字符串进行截头去尾、大小写替换等操作。Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。Trim Trim(string) 将字符串前后的空格去掉Ltrim Ltrim(string) 将字符串前面的
ASP编程入门进阶(十二):ASP技巧累加(一)
regina的专栏
05-11 765
一、On Error 语句该语句的作用是：启用或禁用错误处理程序。一般用法如下： On Error Resume NextOn Error GoTo 0 如果在您的代码中未使用On Error Resume Next语句，所发生的运行时错误将显示错误信息，同时，代码的执行也随之终止。但当你采用它时，
ASP.NET 中对字符串进行操作
web开发
01-23 325
1、判断字符串中是否存在“元”，如果存在则截取，如果不存在可根据需求进行其它操作 //首先定义一个字符串 string str="abc元/斤123"; string temp="元"; int i=2; Regex regex = new Regex(temp); Match match = r.Match(str); if (match.Succes...
ASP - 字符串拼接类
qq_19250999的博客
07-19 1667
在ASP中，要拼接字符串的时候，第一个用到的绝对是&，后来在某次项目中，我发现在拼接超长字符串的时候，使用&的效率极低。使用join拼接字符串可使效率提升几百倍。 <% Class appendString Private arrIndex, arrUbound, arrList() Private Sub Class_Initialize() ‘分配10长度 ...
提升ASP应用中字符串处理性能的技术
`StringBuilder`类是.NET Framework提供的一种更高效的字符串处理工具，特别适合需要频繁连接字符串的情况。与简单的字符串连接相比，它避免了多次内存分配和对象创建，从而提高了性能。 5. **内置方法** 文档还...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值