Hledání digramů – Visual Basic – Fórum – Programujte.com

Dobrý den, 

potřeboval jsem udělat program ne hledání digramů, tak nějak jsem to sesmolil, ale narazil jsem na problém.

Program mi najde v textu digram, zapíše do buňky a hledá dál, ale jakmile najde znovu stejný digram, tak se celý cyklus opakuje a do buněk se neustále zapisují stejné digramy a tak místo jedné zaplněné buňky jich mám třeba 10 . Zkuste zapsat do textboxu třeba text "ahoj ahoj ahoj" a bude to jasnější, asi to líp takhle nevysvětlím.

Program ke stažení zde http://dl.dropbox.com/u/80236311/programek.xlsm

Předem děkuji za pomoc

retezec = TextBox1.Value 'vkládaný text
retezec = Trim(retezec)



'hledani digramu
For Start = 1 To Len(retezec)

 citac = 0
 prvniznak = Mid(retezec, Start, 1)
 druhyznak = Mid(retezec, Start + 1, 1)
 obaznaky = prvniznak & druhyznak
 
  If Trim(Len(obaznaky)) = 2 Then
   For astart = 1 To Len(retezec)
     aprvniznak = Mid(retezec, astart, 1)      ' odliseni znaku v prvnich cyklu od druheho
      adruhyznak = Mid(retezec, astart + 1, 1)
       aobaznaky = aprvniznak & adruhyznak
        If obaznaky = aobaznaky Then
            citac = citac + 1
        End If
   Next astart
  End If
  
    volna_bunka = 0
    
    Do
     volna_bunka = volna_bunka + 1
    Loop Until Range("A" & volna_bunka) = empthy
    
    If citac >= 1 Then
     Range("A" & volna_bunka) = obaznaky
     Range("B" & volna_bunka) = citac
    End If
    
        
 Next Start

#1 David Jambor
Máš tam logickou chybu. Zjednodušeně řečeno každou dvojici znaků prohledáváš od začátku do konce zadaného textu, takže u druhého výskytu zase najdeš ten první výskyt a vypíšeš znovu do výsledků, nebo-li kolikrát tam ta dvojice je, tolikrát ji znovu a znovu hledáš a vypisuješ...

Budeš to muset vymyslet lépe...

#2 JoDiK
No to vím taky, že tam mám logickou chybu, ale nevím jak to ošetřit...  každopádně díky za čas.

#3 David Jambor
A co třeba tak, že si budeš všechny nalezené dvojice ukládat a každou další dvojici nejdřív porovnáš se všemi uloženými, jestli už tam náhodou nebyla a když ne, tak ji přidáš, když jo tak přičteš jedničku k počtu pro tu konkrétní dvojici?