0514-86177077

9:00-17:00（工作日）

主页 > 知识库 > 一个asp快速字符串连接类

一个asp快速字符串连接类
热门标签：凤台百度地图标注店 个人可以办理400电话么 县域地图标注打印店 修改地图标注 怎么在地图标注自己 金昌电话机器人价格 武夷山旅游地图标注 外呼系统API接口 莱西电子地图标注
%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'快速字符串连接类
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'名称：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,快速,字符串,连接,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《一个asp快速字符串连接类》相关的同类信息！
  • 本页收集关于一个asp快速字符串连接类的相关信息资讯供网民参考！
    • 推荐文章

    上一篇：一个简单的asp数据库操作类

    下一篇：ByVal和ByRef(编写ASP子程序所用到命令）

    Copyright © 1999-2012 诚信 合法 规范的巨人网络通讯始建于2005年

    苏ICP备15040257号-8

    产品关键词： 一个asp快速字符串连接类 一个,asp,快速,字符串,连接,