 |
字符串截取技术(探讨用InStrRev函数配合Right/Left函数截取字符串) |
热 |
| 字符串截取技术(探讨用InStrRev函数配合Right/Left函数截取字符串) |
|
| 作者:佚名 文章来源:本站原创 点击数: 更新时间:2008-1-13 |
| VB的Right函数、Left函数提供了从左或从右在已知字符串中截取指定数量的未知字符串的功能,不过要获取某个特定字符前面或者后面的字符串,情形就不一样了,比如我们要在字符串"E:\MyFavourite\001\xxx.xxx"中截取最后一个"\"后面的字符串亦即文件名,单单用上述几个函数是难以实现的,因为文件名的字节数难以确定。这时函数InStrRev就派上用场了。InStrRev返回一个字符串在另一个字符串出现的位置,充分利用它可以轻而易举地截取所要的内容。 下面举个实例来加以说明,希望大家可以从中得到启示。本例仅需要一个TextBox控件。
PrivateSubForm_Load() '声明已知字符串的字节数、"\"所在位置的变量 DimnAsInteger‚mAsInteger '声明字符串变量 DimiAsString‚jAsString j="E:\Music\MyFavourite\001\Spring.mp3"'已知字符串初值 i="\"'要查找的指定字符 Forn=1ToLen(j)'这里用了Len函数来计算已知字符串的字节数 m=InStrRev(j‚i‚-1)'"\"所在的位置(其中的-1是默认的) Nextn '显示最后一个"\"后面的字符串 Text1.Text=Right(j‚Len(j)-m) EndSub
运行程序,文本框中的是不是明明白白地躺着"Spring.mp3"?试着改一改j变量,得到的结果是不是预期的?-> |
| 文章录入:付晓波 责任编辑:付晓波 |
|
上一篇文章: 用ASP程序调用Alexa世界排名的代码
下一篇文章: Aspjpeg添加水印完整方法 |
| 【字体:小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |