View Single Post
Old 07-02-2007, 20:54   #2
mangzeus
Senior Member
 
L'Avatar di mangzeus
 
Iscritto dal: Sep 2003
Messaggi: 1025
ho fatto il tutto con un array...solo che ovviamente devo passarmi riga per riga...ecco come ho fatto...

il mio problema alla fine č quello di ordinare in modo crescente i valori all'interno di una stringa nel minor tempo possibile....

esempio:

str= "10 5 4 7 2"

devo ottenere

str="2 4 5 7 10"

io ho fatto in questo modo ma cercavo un modo pių veloce, sperando che esista....

io ho fatto cosė:

Codice:
Dim j As Integer
        Dim a As String, c As String
        Dim b
        Dim arrayl As New ArrayList
        arrayl.Clear()
        ''trasformo la stringa in un array
        a = str

        ''se a =nothing esci dalla funzione che non serve
        If a = Nothing Then
           Exit Function
        End If

        b = Split(a, " ")

        ''faccio il ciclo per iserire all'interno di un array list i valori
       For j = 0 To UBound(b)
        '    'converto in numero il contenuto dell'array cosė mi mette in ordine crescente i numeri, tutti i numeri.
         arrayl.Add(CInt(b(j)))
        Next

        ''li ordino
        arrayl.Sort()

        b = arrayl
        For j = 0 To arrayl.Count - 1
           c = LTrim(c & " " & arrayl.Item(j))

        Next

        ritstrord = c
qualcuno potrebbe dirmi se c'č un modo pių veloce per fare l'operazione di mettere in ordine numerico crescente una stringa????
mangzeus č offline   Rispondi citando il messaggio o parte di esso