一个asp快速字符串连接类
2006-08-25 00:00
471 查看
<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'快速字符串连接类
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'名称:Class_FastString
'来源:http://www.jansfreeware.com
'整理:qihangnet
'更新:2005年6月15日
'作用:高效地进行字符串连接,比 str = str & "abc"的方法快很多
'授权:免费使用
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Class Class_FastString
'************************************
'变量定义
'************************************
'index --- 字符串数组的下标
'ub ------ 用于调整数组度数的整数变量
'ar() ---- 字符串数组
Private index, ub, ar()
'************************************
'实例 初始化/终止
'************************************
Private Sub Class_Initialize()
Redim ar(50)
index = 0
ub = 49
End Sub
Private Sub Class_Terminate()
Erase ar
End Sub
'************************************
'事件
'************************************
'默认事件,添加字符串
Public Default Sub Add(value)
ar(index) = value
index = index+1
If index>ub Then
ub = ub + 50
Redim Preserve ar(ub)
End if
End Sub
'************************************
'方法
'************************************
'返回连接后的字符串
Public Function Dump
Redim preserve ar(index-1)
Dump = join(ar,"") '关键所在哦^_^
End Function
End class
%>
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'快速字符串连接类
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'名称:Class_FastString
'来源:http://www.jansfreeware.com
'整理:qihangnet
'更新:2005年6月15日
'作用:高效地进行字符串连接,比 str = str & "abc"的方法快很多
'授权:免费使用
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Class Class_FastString
'************************************
'变量定义
'************************************
'index --- 字符串数组的下标
'ub ------ 用于调整数组度数的整数变量
'ar() ---- 字符串数组
Private index, ub, ar()
'************************************
'实例 初始化/终止
'************************************
Private Sub Class_Initialize()
Redim ar(50)
index = 0
ub = 49
End Sub
Private Sub Class_Terminate()
Erase ar
End Sub
'************************************
'事件
'************************************
'默认事件,添加字符串
Public Default Sub Add(value)
ar(index) = value
index = index+1
If index>ub Then
ub = ub + 50
Redim Preserve ar(ub)
End if
End Sub
'************************************
'方法
'************************************
'返回连接后的字符串
Public Function Dump
Redim preserve ar(index-1)
Dump = join(ar,"") '关键所在哦^_^
End Function
End class
%>
相关文章推荐
- 一个asp快速字符串连接类
- 在ASP.NET MVC应用程序中随机获取一个字符串
- asp.net中利用正则表达式判断一个字符串是否为数字的代码
- asp.net中如何把一个字符串中的所有html代码去掉成为文本模式
- 快速使用 SQLite 开源数据库 一个Asp.Net 的小例子
- 一个Asp.net 字符串操作基类
- ASP中如何判断一个字符串中某个指定的字符出现的次数?
- 快速使用 SQLite 开源数据库 一个Asp.Net 的小例子
- ASP的一个字符串处理类加强版
- 分享一个全开源的ASP.NET快速开发平台,能快速开发OA CRM ERP 等系统
- ASP.NET快速开发框架,简单美观的UI,丰富的功能,给开发一个加速度
- 分享一个小工具:Excel表快速转换成JSON字符串
- hash数组快速查找一个字符串中出现最多的字符,并统计出现的次数
- 在ASP.NET中使用一个小技巧,把Render重定向到字符串
- Asp.Net判断一个字符串是否包含某个字符的最简单方法!(示例)
- 基于ASP.NET MVC的快速开发平台,给你的开发一个加速度!
- 一个改进的ASP生成SQL 命令字符串的类
- ASP中一个字符串处理类(加强)(VBScript)
- ASP中一个字符串处理类加强版
- 标题两行,但是只有一个字段,字符串分割,asp