visual basic: bugged op replace

[Verwijderd]

ik heb een replacement code in vb gevonde die verdacht veel op asp lijkt, en dat ook nog werkt.
todat ik er een code aan toevoeg en daar bugged ie een beetje op:

(normaal)
If Rnd() > 0.5 Then
strnew = Replace(strnew, "s", "$")
Else
strnew = Replace(strnew, "s", "5")

(edited)

If strnew = "Z" Then strnew = "z"
If Rnd() > 0.5 Then
strnew = Replace(strnew, "s", "$")
Else
strnew = Replace(strnew, "s", "5")
Else
strnew = Replace(strnew, "s", "5")

(door vb bug search: )

If strnew = "Z" Then strnew = "z"
If Rnd() > 0.5 Then
strnew = Replace(strnew, "s", "$")
Else
strnew = Replace(strnew, "s", "5")
Else If
strnew = Replace(strnew, "s", "5")

hij zegt dus dat If erbij moet, maar als ik dat doe word de code rood en zegt ie daarna weer dat ie bugged op de Else If

[gorgi_19]

Eerst elseif, daarna else

En ga je code eens inspringen; zo zie je normaliter niet snel iets?

[ Voor 60% gewijzigd door gorgi_19 op 11-12-2003 14:46 ]

[Verwijderd]

en daarboven staat nog tweemaal else, dat kan ook niet neem ik aan...

[gorgi_19]

Verwijderd schreef op 11 december 2003 @ 14:47:
en daarboven staat nog tweemaal else, dat kan ook niet neem ik aan...

idd; dat mag ook niet...

Oftewel: Ga eens kijken wat een if-statement is, wat een else doet en wat een elseif doet.

[ Voor 53% gewijzigd door gorgi_19 op 11-12-2003 14:50 ]

[Verwijderd]

neej hij bugged juist op ElseIf eerst enzo
hij geeft een syntax error aan

[vogeltje]

Verwijderd schreef op 11 december 2003 @ 14:43:

..
If strnew = "Z" Then strnew = "z"
..

onlogisch, doe gewoon een LCase

[gorgi_19]

Ik zie ook nergens een conditie staan voor de elseif. ElseIf wat? is de vraag van de compiler.

Verder mis ik ook een end if

[ Voor 15% gewijzigd door gorgi_19 op 11-12-2003 14:53 ]

[Verwijderd]

kijk niet naar die Z t gaat om de onderste code
die heb ik er perongeluk bij ge paste

[gorgi_19]

Visual Basic:

strnew = Lcase(strnew)

If Rnd() > 0.5 Then
    strnew = Replace(strnew, "s", "$")
Else
    strnew = Replace(strnew, "s", "5")
End If

Je mag zelf gaan kijken wat er niet klopte aan je eigen code.

[ Voor 31% gewijzigd door gorgi_19 op 11-12-2003 14:53 ]

[Fulcrum2000]

Misschien moet je eerst dit eens lezen...
http://msdn.microsoft.com...us/vblr7/html/vadirif.asp

[TeeDee]

Zit er een end if bij?
Post je error code eens?

ASP:

if a = b then
' die iets
elseif d = g then
' doe iets
Elseif x = y then
' doe iets
End if

[Verwijderd]

kijk zo doet het wel goed:

If Rnd() > 0.5 Then
strnew = Replace(strnew, "s", "$")
Else
strnew = Replace(strnew, "s", "5")
End If

maar ik wil er nog een 3de iets aan toevoegen

[whoami]

Debuggen kan je zelf wel doen, daar is P&W niet voor bedoeld.

Begin misschien eerst eens met het uitlijnen van je code, dat maakt het voor jou al heel wat makkelijker. Daarna kan je misschien eens een manual / syntax reference openslaan.
En last but not least: je kan ook iets vriendelijker zijn tegen mensen die je proberen te helpen.