checken of het er al in staat

[djpommes]

ik heb een simpele code die een text bij een andere text stop in een lijstje.

text2.Text = text2.Text + brwURL1.Text & vbCrLf

maar stel dat "pizza" al in het lijstje staat en iemand probeer "pizza" weer in het lijstje toe te voegen dan wil ik dat het niet werkt. dat zal wel met een if stement worden maar ik heb geen idee hoe die luid. zoiets: (in het engels gewoon zal wel slechte code zijn)

if text2.text contains text1.text then
do nothing
else
text2.text = text2.text + text1.text & vbcrlf
end if

zoiets

 

[HansVi]

ik heb een simpele code die een text bij een andere text stop in een lijstje.

text2.Text = text2.Text + brwURL1.Text & vbCrLf

maar stel dat "pizza" al in het lijstje staat en iemand probeer "pizza" weer in het lijstje toe te voegen dan wil ik dat het niet werkt. dat zal wel met een if stement worden maar ik heb geen idee hoe die luid. zoiets: (in het engels gewoon zal wel slechte code zijn)

if text2.text contains text1.text then
do nothing
else
text2.text = text2.text + text1.text & vbcrlf
end if

zoiets

IF INSTR(1,text2.text,text1.txt) = 0 THEN
text2.text = text2.text + text1.text & vbcrlf
ENDIF

 

[djpommes]

IF INSTR(1,text2.text,text1.txt) = 0 THEN
text2.text = text2.text + text1.text & vbcrlf
ENDIF

hij werk thnx, weet je mischien ook nog hoe je wit regels uit een multi line text bestand kan halen kijk me lijst is bijv zo:


hoi
hoi


hello

yo


hoe kan ik er

hoi
hoi
hello
yo

van maken?

 

[HansVi]

hij werk thnx, weet je mischien ook nog hoe je wit regels uit een multi line text bestand kan halen kijk me lijst is bijv zo:


hoi
hoi


hello

yo


hoe kan ik er

hoi
hoi
hello
yo

van maken?

Do While InStr(1, Text1.Text, vbCrLf & vbCrLf) > 0
Text1.Text = Replace(Text1.Text, vbCrLf & vbCrLf, vbCrLf)
Loop