[VB2010] caricare array da file di testo

[zenplus]

salve a tutti, vorrei un aiuto... vorrei caricare in un array alla'avvio del programma l'alfabeto ovviamente ogni singolo carattere deve avere la sua posizione... in pratica un array di char caricato da file di testo che contiene la stringa "abcdefghijk....", potete farmi un esempio in codice? grazie in anticipo

[michelecali]

esempio semplice così:

        Dim Str As String = ""

        For Asci As Long = Asc("a") To Asc("z")
            Str &= Chr(Asci)
        Next Asci

        Dim Vet As Char() = Str.ToCharArray

' Vet è un array contenente tutte le letterein ordine alfabetico

[zenplus]

ma a me serve in maniera diversa cioè:

vet(1)=a
vet(2)= b
.....
.....
vet(26)=z


uno con caratteri minuscoli e uno con caratteri maiuscoli e poi un terzo con questi:
αβςδәғɢнιנкℓʍησρqЯsтυνω×Чz

[zenplus]

così può andare?

Dim indice
Dim cambio As String = "αβςδәғɢнιנкℓʍησρqЯsтυνω×Чz"
Dim normale_maiusc(0 To 25) As String
Dim normale_min(0 To 25) As String
Dim neo(0 To 25) As String

For Asci As Long = Asc("a") To Asc("z")
normale_min(Asci) = Chr(Asci)
Next Asci

For Asci As Long = Asc("A") To Asc("Z")
normale_maiusc(Asci) = Chr(Asci)
Next (Asci)

For indice As Integer = 0 To Len(cambio)
neo(indice) = cambio(indice)
Next indice

[zenplus]

Originariamente inviato da zenplus
così può andare?

Dim indice
Dim cambio As String = "αβςδәғɢнιנкℓʍησρqЯsтυνω×Чz"
Dim normale_maiusc(0 To 25) As String
Dim normale_min(0 To 25) As String
Dim neo(0 To 25) As String

For Asci As Long = Asc("a") To Asc("z")
normale_min(Asci) = Chr(Asci)
Next Asci

For Asci As Long = Asc("A") To Asc("Z")
normale_maiusc(Asci) = Chr(Asci)
Next (Asci)

For indice As Integer = 0 To Len(cambio)
neo(indice) = cambio(indice)
Next indice

No riuscivo a modificare il post quindi ho quotato.. comunque ho risolto così:

Dim Stringa1 As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim CharArr1() As Char = Stringa1.ToCharArray
Dim Stringa2 As String = "abcdefghijklmnopqrstuvwxyz"
Dim CharArr2() As Char = Stringa2.ToCharArray
Dim Stringa3 As String = "αβςδәғɢнιנкℓʍησρqЯsтυνω×Чz"
Dim CharArr3() As Char = Stringa3.ToCharArray