23/01/09 16:46
kevin Mitnick
Ho il seguente problema:
data una stringa a piacere come ad esempio "palazzo" dovrei ordinare questa stringa in un vettore dalla Z alla A cioè nel vettore deve comparire "zzpolaa" (palazzo dalla Z alla A). Come fare? Grz in anticipo.
aaa
23/01/09 19:32
GrG
che fai?
forum.html.it/forum/…
lol
comunque sia sto lavorando a una function...ora devo cenare..appena posso ti dico...(cmq probabilmente esisterà almeno credo una funzione apposita già integrata con vb)...
EDIT:
cmq se nn hai risolto ho fatto per te questa funzione:
Private Function OrdinaZA(ByVal stringa As String)
Dim lettere() As String, x As Integer, i As Integer, y As Integer, z As Integer
stringa = UCase(stringa)
x = Len(stringa)
ReDim lettere(1 To x)
For i = 1 To x
lettere(i) = Mid(stringa, i, 1)
DoEvents
Next i
y = 90
Do
For z = 1 To i - 1
If lettere(z) = Chr(y) Then
OrdinaZA = OrdinaZA & lettere(z)
End If
DoEvents
Next z
y = y - 1
DoEvents
Loop Until y < 65
OrdinaZA = LCase(OrdinaZA)
End Function
il testo restituito è tutto minuscolo anche se come input gli dai un testo maiuscolo.
Ultima modifica effettuata da GrG 23/01/09 20:17
aaa