Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[Visual Basic] Funkcja zliaczająca występowanie znaku

grun1 28 Maj 2010 21:26 3860 6
  • #1 28 Maj 2010 21:26
    grun1
    Poziom 11  

    Witam Czy istnieje funkcja zliczająca ilość wystąpień danego znaku w ciągu ?
    tzn mam tekst : "Napisz nowy temat" i funkcja miała by zliczać ilość wystąpień znaku A [2]

    Wiem wujek google pomaga ale nie tym razem poszukiwania trwały 2 godzinki :)

    Z góry dziękuje

    0 6
  • #2 28 Maj 2010 23:12
    adamas_nt
    Moderator Programowanie

    Formułą w Excelu można następująco

    Code:
    =DŁ(A1)-DŁ(PODSTAW(LITERY.MAŁE(A1);"a";""))

    0
  • #3 28 Maj 2010 23:28
    grun1
    Poziom 11  

    HMm dzięki ale nie o to mi chodzi ... Chodzi mi o programowaniu w visual basic 6 a nie w vba :) czekam dalej xD

    0
  • Pomocny post
    #4 28 Maj 2010 23:32
    marcinj12
    Poziom 40  

    A tutaj wujek G. nie zabrał?? :)
    Link
    Albo tutaj: Link

    Możesz zagnieździć w pętli funkcję InStr, po każdym znalezieniu zwiększając pozycję od której ma się odbywać kolejne szukania, albo po prostu:

    Code:
    For i = 1 To Len(text)
    
         If Mid$(text, i, 1) = "a" Then count = count + 1
    Next

    1
  • #5 28 Maj 2010 23:49
    grun1
    Poziom 11  

    Dzięki ci :) [Marcinj12] :)

    3msie

    0
  • Pomocny post
    #6 29 Maj 2010 06:57
    adamas_nt
    Moderator Programowanie

    Ups! Zaćmienie umysłu :). Żeby się trochę zrehabilitować

    Code:
    For i = 1 To Len(tekst)
    
      If Right(Left(tekst, i), 1) = "a" Then licz = licz + 1
    Next

    0
  • #7 21 Lip 2010 01:13
    bolo_67
    Poziom 9  

    z tym mid$ było dobrze, tylko jeszcze przed tym powinno być zamiana na małą literę i wtedy porównanie, chyba że program ma rozróżniać wielkie i małe litery to jest OK. pzdr

    0