巧截字符串(探讨用ItrRev函数配合Right/Left函数截取字符串)_VB.net_黑客防线网安服务器维护基地--Powered by WWW.RONGSEN.COM.CN

巧截字符串(探讨用ItrRev函数配合Right/Left函数截取字符串)

作者:黑客防线网安VB教程基地 来源:黑客防线网安VB教程基地 浏览次数:0

本篇关键词:字符串函数配合探讨
黑客防线网安网讯:VB的Right函数、Left函数提供了从左或从右在已知字符串中截取指定数量的未知字符串的功能,不过要获取某个特定字符前面或者后面的字符串,情形就不一样了,比如我们要在字符串"E:MyFavourit...
VB的Right函数、Left函数提供了从左或从右在已知字符串中截取指定数量的未知字符串的功能不过要获取某个特定字符前面或者后面的字符串情形就不一样了,比如我们要在字符串"E:MyFavourite01xxx.xxx"中截取最后一个""后面的字符串亦即文件名,单单用上述几个函数是难以实现的,因为文件名的字节数难以确定这时函数InStrRev就派上用场了InStrRev返回一个字符串在另一个字符串出现的位置,充分利用它可以轻而易举地截取所要的内容。
  下面举个实例来加以说明,希望大家可以从中得到启示。本例仅需要一个TextBox控件。
  
  PrivateSubForm_Load()
  '声明已知字符串的字节数、""所在位置的变量
  DimnAsInteger,mAsInteger
  '声明字符串变量
  DimiAsString,jAsString
  j="E:MusicMyFavourite01Spring.mp3"'已知字符串初值
  i=""'要查找的指定字符
  Forn=1ToLen(j)'这里用了Len函数来计算已知字符串的字节数
  m=InStrRev(j,i,-1)'""所在的位置(其中的-1是默认的)
  Nextn
  '显示最后一个""后面的字符串
  Text1.Text=Right(j,Len(j)-m)
  EndSub
  
  运行程序,文本框中的是不是明明白白地躺着"Spring.mp3"?试着改一改j变量,得到的结果是不是预期的?->

    黑客防线网安服务器维护方案本篇连接:http://www.rongsen.com.cn/show-14516-1.html
网站维护教程更新时间:2012-04-03 01:08:12  【打印此页】  【关闭
我要申请本站N点 | 黑客防线官网 |  
专业服务器维护及网站维护手工安全搭建环境,网站安全加固服务。黑客防线网安服务器维护基地招商进行中!QQ:29769479

footer  footer  footer  footer