[ASP] meerdere statements op een regel

[CaptBiele]

Ik ben hier een aantal oude asp files aan het bekijken, en ik zie hierin stukken code zoals het volgende voorbeeld:

VBScript:

    
For i = 1 to LengteStr
        PositieTeller=PositieTeller+1
        CharPosition=mid(ZoekStr,PositieTeller,1)
        If CharPosition = CharZoek then CritTeller=CritTeller+1:BuildStr1=BuildStr1 & "'":CommaCheck=true
        BuildStr1=BuildStr1+CharPosition
        If CommaCheck=true then BuildStr1=BuildStr1 & "'" : CommaCheck=false
    Next

Ten eerste snap ik niet dat er meerdere statements staan op een regel, gescheiden door een ":"
Ik heb op internet proberen te zoeken wat het nu precies doet, maar ik zie eigenlijk alleen maar dat de statements worden verspreid over meerdere regels?!

En de if statements worden helemaal niet afgesloten.... misschien dat het hiermee in verband staat, maar ik denk eerder dat vbscript het gewoon pikt (wat me ook verbaast)

Misschien heeft iemand hier iets zinnigs op te zeggen?!

[P_de_B]

Je kunt met een : meerdere statements op 1 regel kwijt. Dat is alles. En een IF THEN hoeft niet te worden afgesloten als je het op 1 regel houdt. Dus

code:

IF foo=bar THEN Response.Write ("bla")

mag gewoon. Zodra je het op meerdere regels gaat doen moet je afsluiten met END IF.

[ Voor 3% gewijzigd door P_de_B op 03-12-2004 17:40 ]

[CaptBiele]

Ok P_de_B tnx voor je reply.

Met die dubbele had ik het wel verwacht, maar met die end if wist ik niet...
het is bij mij zo`n automatisme om de statements op meerdere regels te zetten waardoor ik me liet afschrikken door deze "vieze" code...

in ieder geval bedankt. Ik ga verder met opschonen!

[Verwijderd]

Dat het mag is één. Het gebruiken is een tweede. Ik persoonlijk vind het stukje code uit de TS verschikkelijk smerig..

Schrijf gewoon je opdrachten uit, en sluit af met een end if indien nodig. Dat maakt de code een stuk leesbaarder..

[edit]

code:

For i = 1 to LengteStr
  PositieTeller=PositieTeller+1
  CharPosition=mid(ZoekStr,PositieTeller,1)
  If CharPosition = CharZoek then    
    CritTeller=CritTeller+1
    BuildStr1=BuildStr1 & "'"
    CommaCheck=true
  end if
  BuildStr1=BuildStr1+CharPosition
  If CommaCheck=true then 
    BuildStr1=BuildStr1 & "'" 
    CommaCheck=false
  end if
Next

imo veel leesbaarder..

[ Voor 47% gewijzigd door Verwijderd op 03-12-2004 17:45 ]

[mulder]

* mulder neukt mieren:

code:

For i = 1 To LengteStr
  CharPosition = Mid(ZoekStr, i, 1)
  If (CharPosition = CharZoek) Then    
    CritTeller = CritTeller + 1
    BuildStr1 = BuildStr1 & "'"
    CommaCheck = True
  End If
  BuildStr1 = BuildStr1 + CharPosition
  If (CommaCheck) Then 
    BuildStr1 = BuildStr1 & "'" 
    CommaCheck = False
  End If
Next

[ Voor 13% gewijzigd door mulder op 03-12-2004 17:55 ]

[j_du_pee]

Don Facundo schreef op vrijdag 03 december 2004 @ 17:52:
* j_du_pee neukt mieren:

* j_du_pee doet ook mee

code:

ZoekStr = replace(ZoekStr,charzoek,"'" & charzoek & "'")

Dat is er even vanuit gegaan dat CritTeller verderop in de code niet belangrijk is of ook vervangen kan worden door efficienter stuk code

_{edit: grappig hoe de titel nu toch weer op een andere manier geinterpreteerd kan worden}

[ Voor 19% gewijzigd door j_du_pee op 03-12-2004 20:07 ]