VB.Net Tutorial/Data Type/String Array — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
(нет различий)

Текущая версия на 15:54, 26 мая 2010

Array.Reverse a string array

<source lang="vbnet">Imports System.Collections

public class Test

  public Shared Sub Main
       Dim StringArray() As String = {"This", "is", "a", "test"}
       
       Array.Reverse(StringArray)
           
       Dim E As IEnumerator = StringArray.GetEnumerator()
   
       While (E.MoveNext())
         Console.WriteLine(E.Current())
       End While
  End Sub

End class</source>

test
a
is
This

Array.Sort a string array

<source lang="vbnet">Imports System.Collections

public class Test

  public Shared Sub Main
       Dim StringArray() As String = {"This", "is", "a", "test"}
       
       Array.Sort(StringArray)
   
       Dim E As IEnumerator = StringArray.GetEnumerator()
   
       While (E.MoveNext())
         Console.WriteLine(E.Current())
       End While
  End Sub

End class</source>

a
is
test
This

Store data in a multivalue array

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
       Dim multiValue(2)() As String
       Dim counter1 As Integer
       Dim counter2 As Integer
       " ----- Build the multivalue array.
       multiValue(0) = New String() {"alpha", "beta", "gamma"}
       multiValue(1) = New String() {"A", "B", "C", "D", "E", "F", "G", "H"}
       multiValue(2) = New String() {"Yes", "No"}
       " ----- Format the array for display.
       For counter1 = 0 To multiValue.Length - 1
           For counter2 = 0 To multiValue(counter1).Length - 1
               Console.WriteLine(multiValue(counter1)(counter2))
           Next counter2
           Console.WriteLine("")
       Next counter1
       
       
   End Sub

End Class</source>

alpha
beta
gamma
A
B
C
D
E
F
G
H
Yes
No

String array

<source lang="vbnet">Module Test

   Public Sub Main()
       Dim sMonths() As String = {"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", Oct", "Nov", "Dec"}
       Console.WriteLine("Eleventh month of the year = {0}", sMonths(10))
   End Sub

End Module</source>

Eleventh month of the year = Nov

Two dimensional string array

<source lang="vbnet">public class Test

  public Shared Sub Main
       Dim str_values(,,) As String = _
       { _
           { _
               {"000", "001", "002"}, _
               {"010", "011", "012"} _
           }, _
           { _
               {"100", "101", "102"}, _
               {"110", "111", "112"} _
           } _
       }
       Console.WriteLine("")
       For i As Integer = 0 To 1
           For j As Integer = 0 To 1
               For k As Integer = 0 To 2
                   Console.Write(str_values(i, j, k) & " ")
               Next k
           Next j
           Console.WriteLine("")
       Next i
  End Sub

End class</source>

000 001 002 010 011 012
100 101 102 110 111 112

Use For Each Loop to output a String array

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
       Dim fruitArray() As String = {"Oranges", "Apples", "Grapes", "Bananas", "Blueberries"}
       For Each fruit As String In fruitArray
           Console.WriteLine(fruit)
       Next fruit
   End Sub

End Class</source>

Oranges
Apples
Grapes
Bananas
Blueberries