VB.NET Split函数的应用

在学习中我们要善于总结，总结对我们有很大的帮助，可以加快我们学习的步伐。在这里我给大家总结一下关于VB.NET Split使用方法，希望朋友们在工作学习中总结出更多的方法。

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

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

=== 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使用方法二. 分割一个完整文件路径

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使用方法三. 根据单词分割语句 这里用了正则表达式

Often you need to extract the words from a String or sentence in VB.NET. The code here needs to handle punctuation and non-word characters differently than the String Split method. Here we use Regex.Split to parse the words.
=== Program that splits words (VB.NET) ===
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.
''' << span><< span> 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
Description of the example code. In the Main() subroutine you can see that two variables are declared. The second variable is a String() array that receives the results from the Private Function next.
Description of the Regex. The Function shown in the example calls the Regex.Split method, which can be accessed with dot notation, with no instance necessary. The second parameter to the method is a regular expression pattern.
Description of the Regex pattern. The pattern "\W+" is used, and this means "1 or more non-word characters".This pattern will match punctuation and spaces. Therefore, all those characters will be used as delimiters.

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

Here we see one way to Split each line in a file using File.ReadAllLines and Split.We have a comma-separated-values CSV file, and want to print out each value and its row number. Here is the input file "example.txt". [See below]
The Split code example follows. It first reads in the file with ReadAllLines. This function puts each line in the file into an array element. The example next Splits on ","c. The final comment shows the output of the program.
=== Input file used ===
frontal,parietal,occipital,temporal
pulmonary artery,aorta,left ventricle
=== Example program that splits lines (VB.NET) ===
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