Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Elementy powtarzające się w tablicy
anonim




Typ: Nie zarejestrowany
Elementy powtarzające się w tablicy

Czy ma ktos procedurkę do wykrywania czy dany element powtarza się w tablicy np. jednowymiarowej.

09-10-2004 14:50
  
bisiek




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

for i = lbound(tablica) to ubound(tablica)

if tablica(i) = Szukany then ilerazy= ilerazy +1

next

lbound - początkowy element
ubound - końcowy


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

09-10-2004 15:17
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

A top inny przykład:

Function LPSS(vArray As Variant, sString As String) As Long
    Dim sArray As String
    Dim s2 As String
    Dim sDelimeter As String
   
    sDelimeter = Chr(255)
    Do While InStr(sString, sDelimeter)
        sDelimeter = sDelimeter & Chr(255)
    Loop
    sArray = Join(vArray, sDelimeter)
    s2 = Replace(sArray, sString, Space$(Len(sString) - 1))
    LPSS = Len(sArray) - Len(s2)
End Function


Nie krąży w pętli (wiec w teorii jest szybsza), ale za to działa tylko na tablice zawierająće String.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

09-10-2004 20:12
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1