Visual Basic – Počet řetězců v textu
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Visual Basic – Počet řetězců v textuVisual Basic – Počet řetězců v textu

 
Hledat
Moderní platforma pro vytvoření vašeho nového webu – Wix.com.
Nyní už můžete mít web zdarma.
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno

Visual Basic – Počet řetězců v textu

Google       Google       3. 1. 2007       14 956×

Tento krátký řetězec kódu je chopen spočítat výskyt řetězců v textu.

Reklama
Reklama

Kód je velice snadný, prochází řetězec znak po znaku a reaguje na výstupní změnu funkce InStr.

Private Sub Command1_Click()
     Dim strProhledavany As String
     Dim strHledany As String
     Dim lngLen As Long
     Dim lngTemp As Long
     Dim retPosition As Long
     Dim lngPocet As Long
      
     strProhledavany = Text1.Text
     strHledany = Text2.Text
     lngLen = Len(strProhledavany)
  
  
     For i = 1 To lngLen
         retPosition = InStr(i, strProhledavany, strHledany, vbTextCompare)
         If retPosition = 0 Then Exit For
         If lngTemp <> retPosition Then lngPocet = lngPocet + 1
         lngTemp = retPosition
     Next i
     Print Val(lngPocet)
 End Sub

Počet průchodu cyklu lze snadno omezit, stačí se vždy posunout na místo, kde se dohledalo, a počet cyklů bude roven počtu nalezených znaků.

Private Sub Command1_Click()
     Dim strProhledavany As String
     Dim strHledany As String
     Dim lngLen As Long
     Dim lngTemp As Long
     Dim retPosition As Long
     Dim lngPocet As Long
      
     strProhledavany = Text1.Text
     strHledany = Text2.Text
     lngLen = Len(strProhledavany)
  
  
     For i = 1 To lngLen
         retPosition = InStr(i, strProhledavany, strHledany, vbTextCompare)
         If retPosition = 0 Then Exit For
         If lngTemp <> retPosition Then lngPocet = lngPocet + 1: i = retPosition
         lngTemp = retPosition
     Next i
     Print Val(lngPocet)
End Sub

Při použití této úpravy lze ušetřit spoustu času v závislosti na délce prohledávaného řetězce. Toto lze ovšem vyřešit i elegantněji bez použití tempu.

Private Sub Command1_Click()
     Dim strProhledavany As String
     Dim strHledany As String
     Dim lngLen As Long
     Dim retPosition As Long
     Dim lngPocet As Long
      
     strProhledavany = Text1.Text
     strHledany = Text2.Text
     lngLen = Len(strProhledavany)
  
  
     For i = 1 To lngLen
         retPosition = InStr(i, strProhledavany, strHledany, vbTextCompare)
         If retPosition = 0 Then Exit For
         lngPocet = lngPocet + 1
         i = retPosition
     Next i
     Print Val(lngPocet)
 End Sub

To by tedy bylo několik různě řešených kódů pro prohledávání řetězců, z nichž poslední je bezesporu nejvýhodnější a první dva slouží jako ukázky jiného možného postupu.

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

3 názory  —  3 nové  
Hlasování bylo ukončeno    
0 hlasů
Google
(fotka) Jiří ChytilAutor programuje ve VB, zajímá se o elektrotechniku, studuje na SOŠ Elektrotechnické - obor číslicová technika.
Web    

Nové články

Obrázek ke článku Konference: Kvalitní informační systém roste spolu se svými uživateli

Konference: Kvalitní informační systém roste spolu se svými uživateli

Informační systémy, které rostou spolu s požadavky svých uživatelů, efektivní uchování důležitých dokumentů nebo moderní uživatelská rozhraní, která maximálně zjednodušují práci s informacemi - to je jen několik z řady aktuálních trendů v oblasti podnikových informačních systémů, kterým se bude věnovat konference Firemní informační systémy, která se koná 31.5.2018 v pražském Kongresovém centru Vavruška na Karlově náměstí.

Reklama
Reklama
Obrázek ke článku Bezrealitky.cz na novém webu rychleji propojí vážné zájemce s majiteli nemovitostí

Bezrealitky.cz na novém webu rychleji propojí vážné zájemce s majiteli nemovitostí

Největší platforma pro přímý prodej a pronájem domů a bytů Bezrealitky.cz představila novou podobu svého portálu. Redesign zásadně zjednodušuje všechny transakce, mění způsob, jakým zájemci o bydlení komunikují s majiteli nemovitostí, přináší nejpřesnější filtrování nabídek na trhu, ale také umožňuje prověřovat důvěryhodnost zájemců. 

Obrázek ke článku Samba.ai: Personalizační nástroje hlásí připravenost na GDPR

Samba.ai: Personalizační nástroje hlásí připravenost na GDPR

Do ostrého nasazení nařízení GDPR, které upravuje nakládání s osobními údaji, zbývá pár dní, a vzbuzuje vrásky u řady provozovatelů služeb, které pracují s profilací návštěvníků na stránkách a personalizací obsahu. Český personalizační nástroj Samba.ai(dříve Yottly) zajišťující personalizaci webu a prediktivní automatizaci email marketingu je však slovy svého CEO Davida Vyskočila na GDPR plně připraveno. 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032018 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý