Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: sortowanie słów
radekpik




Typ: neutral
Postów: 1
Zarejestrowany: Nov 2004
sortowanie słów

witam
ma ktos moze programik sortujący słowa alfabetycznie,
mam zadeklarowanie litery ale nie mam pojęcia jak to posortowac, na piechotę to będzie 216 kombinacji dla max 6-literowych słów...
z góry dzięki za pomoc

19-11-2004 21:52
Pokaż profil radekpik  Wyślij email do radekpik   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
Przykład z głowy...


Sub SortujSlowa(ByRef slowa() As String, kierunek As Long)
Dim i As Long, j As Long
Dim retVal As Long
Dim sPom As String

'retVal może przyjąć jedną z wartości:
'porównanie                | wartość
'---------------------------------
'string1 < string2          | -1
'string1 = string2          | 0
'string1 > string2          | 1
'string1 lub string2 = Null | Null


For i = LBound(slowa) To UBound(slowa)
    For j = i + 1 To UBound(slowa)
        retVal = StrComp(slowa(i), slowa(j), vbBinaryCompare)
        'sortowanie Z -> A
        If kierunek = iSortDown And retVal = -1 Then
            sPom = slowa(i)
            slowa(i) = slowa(j)
            slowa(j) = sPom
        End If
        'sortowanie A -> Z
        If kierunek = iSortUp And retVal = 1 Then
            sPom = slowa(i)
            slowa(i) = slowa(j)
            slowa(j) = sPom
        End If
    Next j
Next i
End Sub



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

20-11-2004 14:27
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1