转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 软件开发 >> VB.NET程序 >> 正文
Split 函数应用示例 ( VBScript版本 )         ★★★★

Split 函数应用示例 ( VBScript版本 )

作者:闵涛 文章来源:闵涛的学习笔记 点击数:1159 更新时间:2009/4/23 18:59:25

Split 函数应用示例 ( VBScript版本 )
--  Sailflying
Sailflying(车仔)原创,版权所有,如需使用,请与我联系( sailflying@163.net )
动机:
经典论坛里有个朋友问“一串字符,逗号格开,分开做链接,VBS有这种函数吗?”他想解决的是:“一串字符,逗号格开,分开做链接。比如:论坛首页里‘Fly, mjking, stchin, vvjohn, 不太清醒, 苛子, 车仔’每个名字都是一个链接。”

这就需要从输入的变量中读取数据,根据数据项用split函数将其分开,转化为一个数组进行处理,并用trim函数去掉数据前后空格。这样可以轻松的提取自己需要的数值了。

这里我用到了正则表达式中的Split 函数。
Split 函数
将字符串依指定的规则切开。

语法: array split(string pattern, string string, int [limit]);
返回值: 数组
函数种类: 资料处理

内容说明
本函数可将字符串依指定的规则分开。切开后的返回值为数组变量。
参数 pattern 为指定的规则字符串、参数 string 则为待处理的字符串、参数 limit 可省略,表示欲处理的最多合乎值。
值得注意的是本函数的 pattern 参数有区分大小写。。

材料:
表单域 (form1)
文本框 (text1,text2)
显示层 (Layer1)
确定键 (Command1)

效果:
浏览这里
代码:
自定义函数:txtSplit (将输入框中的多个变量分离开来,并显示在列表项,在层中显示每个变量的链接) <SCRIPT LANGUAGE="VBScript">
<!--
Sub txtSplit()
form1.Text1.value = Replace(form1.Text1.value, " ", "") ''''清除字串中的空格
If form1.Text1.value <> "" Then
''''MsgBox "yes"
''''Dim vArr As Variant
''''Dim astr(10) As String
''''vArr = astr
vArr = Split(form1.Text1.value, ",")
form1.Text2.value = "分离变量列表 "+ vbCrLf + "-------------"+ vbCrLf
Layer1.innerHtml = "<br>&nbsp;&nbsp;变量链接列表<br>&nbsp;&nbsp;-------------<br>"
For i = LBound(vArr) To UBound(vArr)
If (vArr(i) <> "") Then
form1.Text2.value = form1.Text2.value + vArr(i)
If (i < UBound(vArr)) Then
form1.Text2.value = form1.Text2.value + vbCrLf
End If
Layer1.innerHtml= Layer1.innerHtml+"&nbsp;&nbsp;<A target=''''_blank'''' HREF=http://www.blueidea.com/bbs/viewuser.asp?username="+vArr(i)+">"+vArr(i)+"</A><br>"
End If
Next
Else
MsgBox "请输入变量。"
End If
End Sub
//-->
</SCRIPT>

表单源码 <form name="form1" >
请输入变量: (变量之间用“,”隔开)
<input type="text" name="text1" style="width:360" value="Fly, mjking, stchin, vvjohn, 不太清醒, 苛子, 车仔 ">
<input type="button" name="Command1" value="分离" onClick="txtSplit()">

<textarea name="text2" rows="9" cols="15" readonly></textarea>

<div id="Layer1" style=" width:160px; height:148px; background-color: #F0F7FF; layer-background-color: #F0F7FF; border: 1px none #000000; clip: rect(10 10 10 10)" align="left">
</div>

</form>



[VB.NET程序]XML 简单接口 (SAX2)用Visual Basic 实现的示例  [Delphi程序]delphi中的split函数
[VB.NET程序]VB5里面实现VB6的InstrRev()和Split()一样的替换函…  [VB.NET程序]用注册表保存数据 (VB函数篇)
[Web开发]ASP 中 Split 函数的实例  [电脑应用]关于头发的画法 (painter+压感笔)
[Sql Server]SQL Server 2000 (SP4)笔记整理(一):数据库  [Sql Server]SQL Server 2000 (SP4)笔记整理(二):数据库表
[Sql Server]SQL Server 2000 (SP4)笔记整理(三):触发器  
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台