blocks|key|2846268|text|查看List+AddRange方法here|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2846269|entityMap|0|LINK|mutability|MUTABLE|url|http://msdn.microsoft.com/en-us/library/z883w3dc.aspx^0|7|8|H|4|0|0^^$0|@$1|2|3|4|5|6|7|N|8|@$9|O|A|P|B|C]]|D|@$9|Q|A|R|1|S]]|E|$]]|$1|F|3|-4|5|6|7|T|8|@]|D|@]|E|$]]]|G|$H|$5|I|J|K|E|$L|M]]]]

look to the List <code>AddRange</code> method <a href="http://msdn.microsoft.com/en-us/library/z883w3dc.aspx" rel="nofollow">here</a>

blocks|key|3059246|text|大部分情况下，List(Of+String)都会处理这个问题--尽管你需要使用AddRange来添加一个项目集合，或者使用Add来一次添加一个项目：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|3059247|lstOfString.Add(String1)
lstOfString.Add(String2)
lstOfString.Add(String3)
lstOfString.Add(String4)|code-block|syntax|javascript|3059248|如果您要添加已知值，一个好的选择是使用如下所示的内容：|3059249|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)|3059250|这仍然允许您稍后根据需要添加项目，而且还可以快速获取初始值。|3059251|3059252|编辑：|3059253|在您的代码中，您需要修复声明。更改：|3059254|Dim+lstWriteBits()+As+List(Of+String)+|3059255|至：|3059256|Dim+lstWriteBits+As+List(Of+String)+|3059257|目前，您正在声明一个List(Of+String)对象的数组。|3059258|entityMap^0|7|F|13|8|1P|3|0|0|0|0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|15|8|@$9|16|A|17|B|C]|$9|18|A|19|B|C]|$9|1A|A|1B|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|1C|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|1D|8|@]|D|@]|E|$]]|$1|M|3|N|5|H|7|1E|8|@]|D|@]|E|$I|J]]|$1|O|3|P|5|6|7|1F|8|@]|D|@]|E|$]]|$1|Q|3|-4|5|6|7|1G|8|@]|D|@]|E|$]]|$1|R|3|S|5|6|7|1H|8|@]|D|@]|E|$]]|$1|T|3|U|5|6|7|1I|8|@]|D|@]|E|$]]|$1|V|3|W|5|H|7|1J|8|@]|D|@]|E|$I|J]]|$1|X|3|Y|5|6|7|1K|8|@]|D|@]|E|$]]|$1|Z|3|10|5|H|7|1L|8|@]|D|@]|E|$I|J]]|$1|11|3|12|5|6|7|1M|8|@]|D|@]|E|$]]|$1|13|3|-4|5|6|7|1N|8|@]|D|@]|E|$]]]|14|$]]

<code>List(Of String)</code> will handle that, mostly - though you need to either use <code>AddRange</code> to add a collection of items, or <code>Add</code> to add one at a time:

<pre><code>lstOfString.Add(String1)
lstOfString.Add(String2)
lstOfString.Add(String3)
lstOfString.Add(String4)
</code></pre>

If you're adding known values, as you show, a good option is to use something like:

<pre><code>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)
</code></pre>

This will still allow you to add items later as desired, but also get your initial values in quickly.

<hr>

Edit:

In your code, you need to fix the declaration. Change:

<pre><code>Dim lstWriteBits() As List(Of String) 
</code></pre>

To:

<pre><code>Dim lstWriteBits As List(Of String) 
</code></pre>

Currently, you're declaring an Array of List(Of String) objects.

blocks|key|205975|text|这两个集合都不允许您以这种方式添加项。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|205976|您可以做一个扩展，使examle+List(Of+String)有一个可以做到这一点的Add方法：|offset|length|style|CODE|205977|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|code-block|syntax|javascript|205978|现在您可以在一个调用中添加多个值：|205979|Dim+lstOfStrings+as+New+List(Of+String)
lstOfStrings.Add(String1,+String2,+String3,+String4)|205980|entityMap^0|0|H|F|17|3|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|T|8|@$D|U|E|V|F|G]|$D|W|E|X|F|G]]|9|@]|A|$]]|$1|H|3|I|5|J|7|Y|8|@]|9|@]|A|$K|L]]|$1|M|3|N|5|6|7|Z|8|@]|9|@]|A|$]]|$1|O|3|P|5|J|7|10|8|@]|9|@]|A|$K|L]]|$1|Q|3|-4|5|6|7|11|8|@]|9|@]|A|$]]]|R|$]]

Neither collection will let you add items that way.

You can make an extension to make for examle <code>List(Of String)</code> have an <code>Add</code> method that can do that:

<pre><code>Imports System.Runtime.CompilerServices
Module StringExtensions

 &lt;Extension()&gt;
 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
</code></pre>

Now you can add multiple value in one call:

<pre><code>Dim lstOfStrings as New List(Of String)
lstOfStrings.Add(String1, String2, String3, String4)
</code></pre>

blocks|key|3059289|text|你可以这样做，|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3059290|++Dim+lstOfStrings+As+New+List(Of+String)+From+{"Value1",+"Value2",+"Value3"}|code-block|syntax|javascript|3059291|Collection+Initializers+|offset|length|3059292|entityMap|0|LINK|mutability|MUTABLE|url|https://msdn.microsoft.com/query/dev12.query?appId=Dev12IDEF1&l=EN-US&k=k(vb.CollectionInitializer);k(TargetFrameworkMoniker-.NETFramework,Version=v4.5);k(DevLang-VB)&rd=true^0|0|0|0|O|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|U|8|@]|9|@$I|V|J|W|1|X]]|A|$]]|$1|K|3|-4|5|6|7|Y|8|@]|9|@]|A|$]]]|L|$M|$5|N|O|P|A|$Q|R]]]]

You can do something like this, 

<pre><code> Dim lstOfStrings As New List(Of String) From {"Value1", "Value2", "Value3"}
</code></pre>

<a href="https://msdn.microsoft.com/query/dev12.query?appId=Dev12IDEF1&amp;l=EN-US&amp;k=k(vb.CollectionInitializer);k(TargetFrameworkMoniker-.NETFramework,Version%3Dv4.5);k(DevLang-VB)&amp;rd=true" rel="noreferrer">Collection Initializers </a>

blocks|key|208196|text|您可以在函数中使用IList(Of+String)：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|208197|Private+Function+getWriteBits()+As+IList(Of+String)


Dim+temp1+As+String
Dim+temp2+As+Boolean
Dim+temp3+As+Boolean


'Pallet+Destination+Unique
Dim+temp4+As+Boolean
Dim+temp5+As+Boolean
Dim+temp6+As+Boolean

Dim+lstWriteBits+As+Ilist+=+{temp1,+temp2,+temp3,+temp4,+temp5,+temp6}

Return+lstWriteBits
End+Function|code-block|syntax|javascript|208198|使用list1.AddRange(list2)添加列表|208199|希望能有所帮助。|208200|entityMap^0|9|G|0|0|2|L|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@$9|R|A|S|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|T|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|U|8|@$9|V|A|W|B|C]]|D|@]|E|$]]|$1|M|3|N|5|6|7|X|8|@]|D|@]|E|$]]|$1|O|3|-4|5|6|7|Y|8|@]|D|@]|E|$]]]|P|$]]

You can use <code>IList(Of String)</code> in the function :

<pre><code>Private Function getWriteBits() As IList(Of String)


Dim temp1 As String
Dim temp2 As Boolean
Dim temp3 As Boolean


'Pallet Destination Unique
Dim temp4 As Boolean
Dim temp5 As Boolean
Dim temp6 As Boolean

Dim lstWriteBits As Ilist = {temp1, temp2, temp3, temp4, temp5, temp6}

Return lstWriteBits
End Function
</code></pre>

use 
<code>list1.AddRange(list2)</code> to add lists

Hope it helps.

blocks|key|2846456|text|有时，我不想在实例化列表时向列表中添加项目。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2846457|实例化空白列表|2846458|Dim+blankList+As+List(Of+String)+=+New+List(Of+String)|code-block|syntax|javascript|2846459|添加到列表中|2846460|blankList.Add("Dis+be+part+of+me+list")+'blankList+is+no+longer+blank,+but+you+get+the+drift|2846461|循环遍历列表|2846462|For+Each+item+in+blankList
++'+write+code+here,+for+example:
++Console.WriteLine(item)
Next|2846463|entityMap^0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|T|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|U|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|V|8|@]|9|@]|A|$]]|$1|K|3|L|5|F|7|W|8|@]|9|@]|A|$G|H]]|$1|M|3|N|5|6|7|X|8|@]|9|@]|A|$]]|$1|O|3|P|5|F|7|Y|8|@]|9|@]|A|$G|H]]|$1|Q|3|-4|5|6|7|Z|8|@]|9|@]|A|$]]]|R|$]]

Sometimes I don't want to add items to a list when I instantiate it. 

Instantiate a blank list

<pre><code>Dim blankList As List(Of String) = New List(Of String)
</code></pre>

Add to the list

<pre><code>blankList.Add("Dis be part of me list") 'blankList is no longer blank, but you get the drift
</code></pre>

Loop through the list

<pre><code>For Each item in blankList
 ' write code here, for example:
 Console.WriteLine(item)
Next
</code></pre>

blocks|key|2846513|text|对于那些被困在维护旧的.net的人来说，这里有一个可以在.net+Framework2.x中工作的：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2846514|Dim+lstOfStrings+As+New+List(of+String)(+new+String(){"v1","v2","v3"}+)|code-block|syntax|javascript|2846515|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

For those who are stuck maintaining old .net, here is one that works in .net framework 2.x:
<pre><code>Dim lstOfStrings As New List(of String)( new String(){&quot;v1&quot;,&quot;v2&quot;,&quot;v3&quot;} )
</code></pre>

Hopefully a simple question to most programmers with some experience. 

What is the datatype that lets me do this?

<pre><code>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)
</code></pre>

I would access these like this

<pre><code>Dim s1 = lstOfStrings(0)
Dim s2 = lstOfStrings(1) 
Dim s3 = lstOfStrings(2) 
Dim s4 = lstOfStrings(3)
</code></pre>

if I use List(of String)
I am only able to .add one thing to the list (at a time), and in my function I want to be able to store several values(at a time).

Solution:

<pre><code>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
</code></pre>

List(of String) or Array or ArrayList

希望对大多数有经验的程序员来说是一个简单的问题。让我这样做的数据类型是什么？Dim lstOfStrings as *IDK*Dim String0 As String = "some value"Dim String1 As String = "some value"Dim String2 As String = "...

问List(of String)、Array或ArrayList
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问List(of String)、Array或ArrayListEN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问List(of String)、Array或ArrayList
EN