Anonymní profil David Jambor – Programujte.com

#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.

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