VB.NET Split函数使你能够将长字符串分离为单独的字；但是如果在字与字之间不止一个空格，Split就会返回一个错误的结果。为了防止这种情况发生，你可以在使用Split之前用Replace函数来替换多个空格的出现。列表A给出了一个例子。

</>code
Private Sub CountWords()  
Dim strText As String = "It's a wonderfulworld" 
Dim iCount As Integer  
 
Do While (strText.IndexOf(Space(2)) >= 0)  
strTextstrText = strText.Replace(Space(2), Space(1))  
Loop  
iCount = Split(strText, Space(1)).Length  
MsgBox(iCount.ToString())  
End Sub

在这个例子中，我创建了字符串strText，再将它设置成有多个字符的长字符串。然后，我利用Replace函数来把出现的多个空格替换成一个空格。这样做是为了把字符串strText准备就绪，让你能够使用VB.NET Split函数并提供正确的结果。接着，我将strText输入Split函数，并且得到了包括在字符串strText中的字数。

注意：如果你跳过或注释用来移除多余空格的循环，结果是7个字。使用移除所有多余空格的循环后，结果才是正确的，4个字。

VB.NET Split使用方法一. 简单的split分割字符串

首先我们拿了一个带多个空格的字符串来做分割. 我们分配一个New Char() array 保存为String() array 来储存我们例子中的那些分割后的单词.最后，我们用loop循环来遍历和显示这些分割后的字母集合.

</>code
=== Program that uses Split on String (VB.NET) ===  
Module Module1  
Sub Main()  
' We want to split this input string  
Dim s As String = "Our website address is www.51cto.cn" 
' Split string based on spaces  
Dim words As String() = s.Split(New Char() {" "c})  
' Use For Each loop over words and display them  
Dim word As String  
For Each word In words  
Console.WriteLine(word)  
Next  
End Sub  
End Module 
=== Output of the program ===  
Our   
website   
address   
is

VB.NET Split使用方法二. 分割一个完整文件路径

</>code
Here we see how you can Split a file system path into separate parts using Visual Basic .NET. We use a New Char() array with one string, "\""c, and then loop through and display the results. 
=== Program that splits file path (VB.NET) ===  
Module Module1  
Sub Main()  
' The file system path we need to split  
Dim s As String = "C:\Users\Sam\Documents\Perls\51cto" 
' Split the string on the backslash character  
Dim parts As String() = s.Split(New Char() {"\"c})  
' Loop through result strings with For Each  
Dim part As String  
For Each part In parts  
Console.WriteLine(part)  
Next  
End Sub  
End Module 
=== Output of the program ===  
C:  
Users  
Sam  
Documents  
Perls

VB.NET Split使用方法三. 根据单词分割语句 这里用了正则表达式

</>code
Imports System.Text.RegularExpressions  
Module Module1  
Sub Main()  
' Declare iteration variable  
Dim s As String  
' Loop through words in string  
Dim arr As String() = SplitWords(".Net Fans's QQ group No is 40797788, man!")  
' Display each word. Note that punctuation is handled correctly.  
For Each s In arr  
Console.WriteLine(s)  
Next  
Console.ReadLine()  
End Sub  
''' <summary> 
''' Split the words in string on non-word characters.  
''' This means commas and periods are handled correctly.  
''' summary> 
Private Function SplitWords(ByVal s As String) As String()  
'  
' Call Regex.Split function from the imported namespace.  
' Return the result array.  
'Return Regex.Split(s, "\W+")  
End Function  
End Module 
=== Output of the program ===  
第一行是空白  
Net ---- 这个是第2行了  
Fans  
s   
QQ   
group   
No   
is   
40797788  
man

VB.NET Split使用方法四. 分割一个文本文件中的每行

</>code
Imports System.IO  
Module Module1  
Sub Main()  
Dim i As Integer = 0 
'vb.net  
' Loop through each line in array returned by ReadAllLines  
Dim line As String  
For Each line In File.ReadAllLines("example.txt")  
' Split line on comma  
Dim parts As String() = line.Split(New Char() {","c})  
' Loop over each string received  
Dim part As String  
For Each part In parts  
' Display to Console  
Console.WriteLine("{0}:{1}", i, part)  
Next  
i += 1  
Next  
End Sub  
End Module 
=== Output of the program ===  
0:frontal  
0:parietal  
0:occipital  
0:temporal  
1:pulmonary artery  
1:aorta  
1:left ventricle