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>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