Bepaald woord uit tekst

[WILLIAMXXX]

Hey,

Hoe kan je een bepaald woordt uit een text weergeven

In textbox1 staat een verhaaltje.
Als je op een button klikt wordt er een messagebox weergegeven met daarin alle woorden met een a erin b.v

 

[bn2vs]

Je kan de inhoud splitten naar een array van strings, en dan in elk element checken of die een a bevat.

in vb8/9 is dat iets in deze aard

' hier komen je resultaten in, kan je terug lezen met foreach loop of gewoon direct schrijven
dim woordenMetEenA as list(of string)

' ga elk woord af en check of er een a in zit, zoja, voeg toe aan result lijst
for each str as string in textbox1.text.split(" "c)
if str.contains("a") then woordenMetEenA.add(str)
next

ff vlug geschreven, maar zou moeten werken

 

[That Guy]

het vb6 equivallent:

dim i as integer
dim sWMA as string
dim sArr as string
dim iNumber as integer

sArr = split(text1.text, " ")
iNumber = ubound(sArr)

for i = 0 to iNumber
   if instr(sArr(i), "a") > 1)
      sWMA = sWMA & " " & sArr(i)
   end if
loop

denk ik tenminste, kan niet checken omdat pc geen vb6 meer heeft -_-'

:thumb:

 

[WILLIAMXXX]

Krijg hiermee te doen:

Warning 1 Variable 'woordenMetEenA' is used before it has been assigned a value. A null reference exception could result at runtime. C:\Users\WILLIAM\Documents\Visual Studio 2008\Projects\xplrxrt\xplrxrt\Form1.vb 7 17 xplrxrt

 

[bn2vs]

Maar je krijcht toch geen fout als je runt? ofwel?

 

[Jabber]

dim woordenMetEenA as list(of string)

moet dan zijn:

Dim woordenMetEenA As New List(Of String)

 

[bn2vs]

*hitting myself*

 

[WILLIAMXXX]

Oke, bedankt