Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: sortowanie alfabet.
ksieluk
from Alex city




Typ: neutral
Postów: 30
Zarejestrowany: Mar 2004
sortowanie alfabet.

Czy jest jakiś proty sposób na zrobienie progu sortującego nazwy alfabetycznie?


_____________________________________________
Jeżeli to jest pytanie - to pomóż mi. Jeśli odpowiedź to  powodzenia :-)

18-05-2004 18:50
Pokaż profil ksieluk  Wyślij email do ksieluk   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Jest.

Na razie spróbuj użyć funkcji StrComp().


_____________________________________________
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ś

18-05-2004 19:46
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Można też zwyczajnie > < = <> - te operatory też działają.


_____________________________________________
www.mob.abc.pl - moja strona o VB

18-05-2004 19:48
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Jednym ze sposobów sortowania zbioru nazw jest stworzenie wirtualnego ADODB.Recorset np. z 1-dna kolumną Fields(0) i po otworzeniu go z właściwością CursorLocation = adUseClient, umieszczenie zbioru nazw w kolumnie Fields(0), następnie  wykorzystanie metody Sort obiektu Recordset np. (zamiast nazw w przykładzie wstawiłam Cstr(i) ):

Public Sub TworzRecordSet()
On Error GoTo lerror
Dim MyRs As ADODB.Recordset
Set MyRs = New ADODB.Recordset
Dim ColFieldName As String
Dim i As Integer,maxRow As Integer
maxRow = 10
With MyRs
    ' nazwy pól nie mają znaczenia i tak odczytujemy przez index
  ColFieldName = "Col0"
  .Fields.Append ColFieldName, adVarWChar, 255
  .CursorType = adOpenStatic
  .CursorLocation = adUseClient
  .LockType = adLockOptimistic
  .Open
  ' dodajemy tyle rekordów ile jest nazw
    For i = 0 To maxRow
        .AddNew
        .Fields(0).Value = CStr(i)
        .Update
    Next i
' rosnąco
    .Sort = .Fields(0).Name
' malejąco
'    .Sort = .Fields(0).Name & " DESC"

    .MoveFirst
    Do While Not .EOF()
        MsgBox (.Fields(0).Value)
      .MoveNext
    Loop
    .Close
End With
Exit Sub
lerror:
MsgBox (Err.Description & "  " & Err.Number)
End Sub

Oczywiście: Project/References- Microsoft ActiveX Data Object 2.X  Library


_____________________________________________
Karolina

19-05-2004 20:05
Pokaż profil karolinavb  Wyślij email do karolinavb   
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

Ale kombinujecie ;-)

najprościej jest wpisać wszystkie wyrazy do ListBoxa (musi mieć ustawioną cechę sorted=true) a potem ładnie wszystko zczytać ;-)

Trzeba umieć kombinować, aby nie wykonywać czarnej roboty ;-)


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

20-05-2004 16:27
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Po wycięciu z kodu kawałków czysto "informacyjnych" jego długość i praca jest taka sama jak przy kontrolce Listbox, co kto lubi...., nie zwykłam oceniać autorytatywnie co lepsze i kiedy lepsze, nie jestem aż taka mądra


_____________________________________________
Karolina

20-05-2004 19:53
Pokaż profil karolinavb  Wyślij email do karolinavb   
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

W dziale Workshop jest plik pokazujący różne metody sortowania
http://www.coderscity.pl/no-vb4all/workshop/lessort.zip

od jelcyn'a: nie używajcie jakiegoś dziwnego TAGa URL. Z doświadczenia wiem, że samo wpisanie adresu internetowego wystarczy aby link był zlinkowany a tu widziałem, że TAG URL był źle użyty i była "kaszanka"

[Post edytowany dnia 20-05-2004 21:43 przez Jelcyn]


_____________________________________________
www.mob.abc.pl - moja strona o VB

20-05-2004 21:04
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002


Po wycięciu z kodu kawałków czysto "informacyjnych" jego długość i praca jest taka sama jak przy kontrolce Listbox, co kto lubi...., nie zwykłam oceniać autorytatywnie co lepsze i kiedy lepsze, nie jestem aż taka mądra


Ja nie testowałem co jest szybsze. Jak się przetwarza duże ilości danych to trzeba się bawić np. w QuickSort, ale jak się przetwarza małe ilości danych można sobie pozwolić na użycie najprostszego algorytmu, bo wtedy szybkość nie gra roli. A tutaj w tym wątku po prostu podałem inny sposób na rozwiązanie problemu, każdy ma prawo zdecydować jaki algorytm będzie w jego wypadku najlepszy


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

20-05-2004 21:45
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
Wszystkich odpowiedzi: 7 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1