http://www.wewill.cn/n17346c7.aspx
对于Visual Basic开发者来说,处理字符串和执行各种各样的字符串操作是十分重要的。当你需要确定一个长字符串中的字数时,你可以使用vb.net中的一个简单函数Split来获得所需要的结果。
Split函数使你能够将长字符串分离为单独的字;但是如果在字与字之间不止一个空格,Split就会返回一个错误的结果。为了防止这种情况发生,你可以在使用Split之前用Replace函数来替换多个空格的出现。列表A给出了一个例子。
列表A
Private Sub CountWords()
Dim strText As String = "It's a wonderful world"
Dim iCount As Integer
do while (strText.IndexOf(Space(2)) >= 0)
strText = strText.Replace(Space(2),Space(1))
Loop
iCount = Split(strText,Space(1)).Length
MsgBox(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 Integer
do while (strText.IndexOf(Space(2)) >= 0) strText = strText.Replace(Space(2),Space(1)) Loop
iCount = Split(strText,Space(1)).Length MsgBox(iCount.ToString())
End Sub
原文地址:https://www.jb51.cc/vb/262346.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。