Springen naar inhoud


- - - - -
VB6

Zoeken Deel Zin In Een Tekst



  • Log in a.u.b. om te beantwoorden
Er zijn 6 reacties in dit onderwerp

#1 Marc_DV

Marc_DV

    Starting Developer

  • Leden
  • 15 berichten
    Laatst bezocht 05 feb 2018 08:29

Geplaatst op 21 augustus 2014 - 10:33

Hallo,

Ik wens het volgende :

Ik heb een volledige zin in een tekstbox (bvb. 'ik ben jan en woon in een huis met ramen')
Ik zoek (bvb. een huis)

via Instr heb ik een deel vd oplossing het zoekt enkel één woord. Het moet de twee woorden zoeken.

bvb

Visual Basic Code:
tekstA = "ik ben jan en woon in een huis met ramen"
tekstB = "een huis" ' (zoekterm)

if instr(tekstA, tekstB) <> then label1.caption ="Gevonden !"


met deze code zoekt hij één woord 'een' en niet samen met tweede woord 'huis'

Dank voor hulp

#2 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3599 berichten
    Laatst bezocht vandaag, 02:08
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 21 augustus 2014 - 14:55

Visual Basic Code:
If InStr(tekstA, tekstB) <> 0 Then MsgBox ("Gevonden !")



#3 Marc_DV

Marc_DV

    Starting Developer

  • Leden
  • 15 berichten
    Laatst bezocht 05 feb 2018 08:29

Geplaatst op 21 augustus 2014 - 15:40

sorry de '0' had ik vergeten bij het schrijven van dit item... iemand oplossing voor mij probleem ?

#4 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3599 berichten
    Laatst bezocht vandaag, 02:08
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 21 augustus 2014 - 15:45

Bij mij werkt het nogthans Marc.

Welke waarde geeft de functie terug ? 0 ?

#5 Marc_DV

Marc_DV

    Starting Developer

  • Leden
  • 15 berichten
    Laatst bezocht 05 feb 2018 08:29

Geplaatst op 21 augustus 2014 - 15:48

Het werkt deels :

Meer uitleg... het heeft de uitkomst zowel 'een' als 'huis' (2 uitkomsten) ... ik wil de totale string 'een huis' als 1 uitkomst (incluis spatie)

#6 Marc_DV

Marc_DV

    Starting Developer

  • Leden
  • 15 berichten
    Laatst bezocht 05 feb 2018 08:29

Geplaatst op 21 augustus 2014 - 15:53

OEPS... toch OK, klein foutje in sourcecode !!! (miljaar)... toch bedankt !!!

#7 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3599 berichten
    Laatst bezocht vandaag, 02:08
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 21 augustus 2014 - 16:02

haha, problem solved 8-) !

Greetzzz





Ook met taq VB6 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)