Visual Basic 6 - Ordinamento dalla A alla Z di una stringa.

Forum - Visual Basic 6 - Ordinamento dalla A alla Z di una stringa.

kevin Mitnick (Normal User)
Newbie

Messaggi: 4
Iscritto: 05/12/2008

Postato alle 17:46
Venerdì, 23/01/2009

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.

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 20:32
Venerdì, 23/01/2009

che fai?
http://forum.html.it/forum/showthread.php?s=&threadid=1304192

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:

Codice sorgente - presumibilmente VB.NET

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 il 23/01/2009 alle 21:17