在VB.NET中利用Split和Replace函数计算字数
2009-03-22 10:58
239 查看
Split函数使你能够将长字符串分离为单独的字;但是如果在字与字之间不止一个空格,Split就会返回一个错误的结果。为了防止这种情况发生,你可以在使用Split之前用Replace函数来替换多个空格的出现。列表A给出了一个例子。
列表A
Private Sub CountWords()Dim strText As String = "It's a wonderful world"Dim iCount As IntegerDo While (strText.IndexOf(Space(2)) >= 0)strText = strText.Replace(Space(2), Space(1))LoopiCount = Split(strText, Space(1)).LengthMsgBox(iCount.ToString())End Sub
在这个例子中,我创建了字符串strText,再将它设置成有多个字符的长字符串。然后,我利用Replace函数来把出现的多个空格替换成一个空格。这样做是为了把字符串strText准备就绪,让你能够使用Split函数并提供正确的结果。
接着,我将strText输入Split函数,并且得到了包括在字符串strText中的字数。注意:如果你跳过或注释用来移除多余空格的循环,结果是7个字。使用移除所有多余空格的循环后,结果才是正确的,4个字。
Private Sub CountWords()Dim strText As String = "It's a wonderful world" Dim iCount As IntegerDo While (strText.IndexOf(Space(2)) >= 0) strText = strText.Replace(Space(2), Space(1)) LoopiCount = Split(strText, Space(1)).Length MsgBox(iCount.ToString())End Sub
列表A
Private Sub CountWords()Dim strText As String = "It's a wonderful world"Dim iCount As IntegerDo While (strText.IndexOf(Space(2)) >= 0)strText = strText.Replace(Space(2), Space(1))LoopiCount = Split(strText, Space(1)).LengthMsgBox(iCount.ToString())End Sub
在这个例子中,我创建了字符串strText,再将它设置成有多个字符的长字符串。然后,我利用Replace函数来把出现的多个空格替换成一个空格。这样做是为了把字符串strText准备就绪,让你能够使用Split函数并提供正确的结果。
接着,我将strText输入Split函数,并且得到了包括在字符串strText中的字数。注意:如果你跳过或注释用来移除多余空格的循环,结果是7个字。使用移除所有多余空格的循环后,结果才是正确的,4个字。
Private Sub CountWords()Dim strText As String = "It's a wonderful world" Dim iCount As IntegerDo While (strText.IndexOf(Space(2)) >= 0) strText = strText.Replace(Space(2), Space(1)) LoopiCount = Split(strText, Space(1)).Length MsgBox(iCount.ToString())End Sub
相关文章推荐
- VB.NET中如何利用Split和Replace函数计算字数
- 在VB.NET中利用Split和Replace函数计算字数
- 利用VB.NET Format函数实现四舍五入功能
- VB .Net 利用FTP.exe上传文件至FTP服务器
- vb 利用ADO.Net实现数据库的连接,修改,删除,插入操作
- 利用两种VB.NET串联运算符方法讲解
- VB.net | 如何在程序中执行用户脚本以及进行代数式计算
- 利用VB.NET Stopwatch对象记录时间
- VB.net和c#利用IOleCommandTarget接口实现Html编辑器的Glyphs(原创)
- vb.net 计算文字的宽度
- ASP.NET中利用Split实现对Checkbox的字符串分离放到DataTable里面
- VB.NET 利用Hashtable.Dictionary等键值对类型来实现按添加顺序读取。
- 一个驱动webcam的类,利用通用的摄像头驱动程序avicap32.dll [vb.net]
- 开源.NET(C#、VB.NET、J#等)脚本执行引擎(利用CodeDOM)
- 【VB.NET】利用SharpZipLib压缩与解压文件夹中的所有文件、内存中动态压缩解压数据、内存中压缩与解压文本
- vb.net利用webbrowser下载(加载完成判断、多线程、委托)
- VB.NET 利用ScriptManager执行客户端脚本方法
- 数学之路-vb.net并行计算(3)
- asp.net中计算两个日期之间的相差的天数的方法(vb)
- 基于WGS-84坐标系的GPS坐标下两点间距离计算 VB.net实现