Oppure

Loading
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