[VB.NET] Inserire caratteri da un testo in un vettore

[BIG88]

Buongiorno, avrei bisogno di sapere come si fa questo: ho un testo (anche in un textbox per dire) e voglio inserire ogni carattere come elemento all'interno di un vettore ad esempio, se avessi la parola "cane" vorrei che ci sia l'inserimento nel vettore degli elementi {c,a,n,e}
Spero di essermi spiegato , come avrete capito sono un neofita
Grazie di cuore!

[MItaly]

Linguaggio?

[BIG88]

Originariamente inviato da MItaly
Linguaggio?

Si scusate, VB

[oregon]

Originariamente inviato da BIG88
Si scusate, VB

VB ... quale versione? Presumo VB.NET ...

E comunque la sezione per il VB non è questa.

Per evitarti problemi in seguito, ti consiglio di dare un'occhiata attenta al regolamento prima di postare ... attendi che un moderatore sposti questa discussione nel forum giusto ...

Per il problema, puoi studiare questo metodo

http://msdn.microsoft.com/en-us/library/ezftk57x.aspx

con i relativi esempi in VB.NET e C#

[BIG88]

Scusate, spostate nella sezione corretta!

In ogni caso l'obiettivo sarebbe di prenere un testo e trasformarlo in un altro
Per ora ho provato così, è solo un esempio:

Public Class Form1
Dim alfabeto() As String = {"a", "b", "c"}
Dim codice() As String = {"d", "e", "f"}
Dim testo As String
Dim stringa(testo.Length) As Char

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

testo = TextBox3.Text
testo.CopyTo(0, stringa, 0, testo.Length)

Dim messaggio As String = ""
Dim ind As Integer
For i As Integer = 0 To testo.Length - 1
ind = 0
Do While ind < 3
If stringa(i) = alfabeto(ind) Then
messaggio &= codice(ind)
ind = 3
ElseIf ind = 3 Then
messaggio &= stringa(i)
Else
ind = ind + 1

End If
Loop
Next
TextBox2.Text = messaggio

End Sub
End Class


Secondo le mie rosee aspettative doveva essere in grado di trasformare "bca" in "efd", ad esempio, ma al debug mi dà un InvalidOperationException e non carica nessuna soluzione

[oregon]

Non usare gli array di char ma direttamente le stringhe.

Inserisci il tuo alfabeto in

Dim alfabeto As String = "abc"
Dim codice As String = "def"

e utilizza i metodi delle stringhe per le ricerche ...