如何将字符串转换为VB.NET中的字符串数组？

Question

嗯，我有一个函数，采用一个字符串数组作为输入...

我有一个字符串，以从该函数处理...

所以，

Dim str As String = "this is a string" 

func(// How to pass str ?) 

Public Function func(ByVal arr() As String) 
    // Processes the array here 
End Function 

我也试过：

func(str.ToArray) // Gives error since it converts str to char array instead of String array. 

我该如何解决这个问题？

Answer 1

随着VB10，你可以简单地这样做：

func({str}) 

与旧版本你就必须做到：

func(New String() {str}) 

Answer 2

使用String.Split方法按“空格”拆分。更多细节在这里：

http://msdn.microsoft.com/en-us/library/system.string.split.aspx

如果逐个字符然后写自己的函数来做到这一点。

试试这个代码：

Dim input As String = "characters" 
Dim substrings() As String = Regex.Split(input, "") 
Console.Write("{") 
For ctr As Integer = 0 to substrings.Length - 1 
    Console.Write("'{0}'", substrings(ctr)) 
    If ctr < substrings.Length - 1 Then Console.Write(", ") 
Next 
Console.WriteLine("}") 
' The example produces the following output: 
' {'', 'c', 'h', 'a', 'r', 'a', 'c', 't', 'e', 'r', 's', ''} 

使用正则表达式，http://msdn.microsoft.com/en-us/library/8yttk7sy.aspx#Y2166。

Answer 3

你的意思是喜欢String.ToCharArray？此外，您可以访问字符串directly中包含的字符。

Answer 4

只是实例化一个新的数组只包括你的字符串

Sub Main() 
    Dim s As String = "hello world" 
    Print(New String() {s}) 
End Sub 

Sub Print(strings() As String) 
    For Each s In strings 
     Console.WriteLine(s) 
    Next 
End Sub 

Answer 5

可你只要把在一个数组一个字符串？我的VB是生锈，但试试这个：

Dim arr(0) As String 
arr(0) = str 

func(arr) 

Answer 6

我不是一个VB的专家，但是这看起来像最清晰的方式对我说：

func(New String() { str }) 

然而，如果这还不够干净你，你可以使用扩展方法要么特定字符串：

func(str.ToStringArray) 

在一个通用的方式或：

func(str.ToSingleElementArray) 

这里是后者作为扩展方法：

<Extension> _ 
Public Shared Function ToSingleElementArray(Of T)(ByVal item As T) As T() 
    Return New T() { item } 
End Function