在VB.NET中利用Split和Replace函式計算字數

iDotNetSpace發表於2009-04-01
函式

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

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/12639172/viewspace-582439/，如需轉載，請註明出處，否則將追究法律責任。

相關文章