欢迎光临
我们一直在努力

巧截字符串(探讨用instrrev函数配合right/left函数截取字符串)_visualbasic教程

建站超值云服务器,限时71元/月

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变量,得到的结果是不是预期的?->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 巧截字符串(探讨用instrrev函数配合right/left函数截取字符串)_visualbasic教程
分享到: 更多 (0)