希望对大多数有经验的程序员来说是一个简单的问题。
让我这样做的数据类型是什么?
Dim lstOfStrings as *IDK*
Dim String0 As String = "some value"
Dim String1 As String = "some value"
Dim String2 As String = "some value"
Dim String3 As String = "some value"
Dim String4 As String = "some value"
Dim String5 As String = "some value"
lstOfStrings.add(String0, String1, String2, String3)
我会像这样访问这些
Dim s1 = lstOfStrings(0)
Dim s2 = lstOfStrings(1)
Dim s3 = lstOfStrings(2)
Dim s4 = lstOfStrings(3)
如果我使用List(of String),我只能(一次)将一个东西.add到list中,并且在我的函数中,我希望能够(一次)存储多个值。
解决方案:
Private Function Foo() As List(Of String)
Dim temp1 As String
Dim temp2 As String
Dim temp3 As String
Dim temp4 As String
Dim temp5 As String
Dim temp6 As String
Dim inputs() As String = {temp1, temp2, temp3, temp4, temp5, temp6}
Dim lstWriteBits As List(Of String) = New List(Of String)(inputs)
Return lstWriteBits
End Function
发布于 2012-11-08 00:34:31
大部分情况下,List(Of String)
都会处理这个问题--尽管你需要使用AddRange
来添加一个项目集合,或者使用Add
来一次添加一个项目:
lstOfString.Add(String1)
lstOfString.Add(String2)
lstOfString.Add(String3)
lstOfString.Add(String4)
如果您要添加已知值,一个好的选择是使用如下所示的内容:
Dim inputs() As String = { "some value", _
"some value2", _
"some value3", _
"some value4" }
Dim lstOfString as List(Of String) = new List(Of String)(inputs)
' ...
Dim s3 = lstOfStrings(3)
这仍然允许您稍后根据需要添加项目,而且还可以快速获取初始值。
编辑:
在您的代码中,您需要修复声明。更改:
Dim lstWriteBits() As List(Of String)
至:
Dim lstWriteBits As List(Of String)
目前,您正在声明一个List(Of String)对象的数组。
发布于 2015-01-27 21:25:23
你可以这样做,
Dim lstOfStrings As New List(Of String) From {"Value1", "Value2", "Value3"}
发布于 2012-11-08 00:48:06
这两个集合都不允许您以这种方式添加项。
您可以做一个扩展,使examle List(Of String)
有一个可以做到这一点的Add
方法:
Imports System.Runtime.CompilerServices
Module StringExtensions
<Extension()>
Public Sub Add(ByVal list As List(Of String), ParamArray values As String())
For Each s As String In values
list.Add(s)
Next
End Sub
End Module
现在您可以在一个调用中添加多个值:
Dim lstOfStrings as New List(Of String)
lstOfStrings.Add(String1, String2, String3, String4)
https://stackoverflow.com/questions/13273997
复制相似问题