Manglende shortcircuit

[Leif Neland]

Jeg lï¿œber igennem et array fra getRows.

Jeg vil gï¿œre noget, hvis det er den sidste rï¿œkke eller den nï¿œste rï¿œkke
er anderledes i et felt.

F.ex, med disse data
rï¿œd
rï¿œd
-- 2 stk rï¿œd
blￜ
-- 1 stk blￜ
(eof)


for n=lBound(arr) to uBound(arr)
...
if n=uBound(arr) or arr(1,n)<>arr(1,n+1) then
'sidste rï¿œkke totalt eller forskellig fra nï¿œste
...
end if
next

Men det fungerer ikke, Selvom n=uBound(arr) er sand, udregnes udtrykket
arr(1,n+1) til arr(1,uBound(arr)+1) og det er jo udenfor array, og
giver fejlmelding.

Kunne man lave boolean shortcut ville det fungere, udtrykket er sandt,
hvis det fￜrste led er sandt, og sￜ behￜvede man ikke beregne det
sidste.

Kan det laves elegant?

Jeg kan kun tￜnke pￜ

if n=uBound(arr) then
'afslutnings-sï¿œtninger
elseif arr(1,n)<>arr(1,n+1) then
'afslutnings-sï¿œtninger
end if

Sￜ skal afslutningssￜtninger skrives to gange. Det kan laves som en
funktion, men sￜ kommer det et stykke fra lￜkken.

Ellers
flag=0
if n=uBound(arr) then
flag=1
elseif arr(1,n)<>arr(1,n+1) then
flag=1
end if

if flag then
'afslutnings-sï¿œtninger
end if

Og det er jo rodet.

Eller den helt spagettiede, som man heldigvis ikke kan lave :-)

if n=uBound(arr) then goto do_it
if arr(1,n)<>arr(1,n+1) then goto do_id
goto dont_doit

doit:
'afslutnings-sï¿œtninger
dont_doit:

Leif

--
Husk kￜrelys bagpￜ, hvis din bilfabrikant har taget den idiotiske
beslutning at undlade det.

[runeof...@hotmail.com]

On 3 Jun., 13:46, Leif Neland <l...@neland.dk> wrote:

> Ellers
> flag=0
> if n=uBound(arr) then
>   flag=1
> elseif arr(1,n)<>arr(1,n+1) then
>   flag=1
> end if

Ja, brug boolean i stedet. Jeg ved ikke, hvordan ASP opfatter
forskellen imellem 1 og 0 (med mindre det er direkte bitvis
sammenligning), men true og false kan kun opfattes på én måde.

Du sætter flag = 1 med to forskellige conditions, det forstår jeg ikke
helt, så måske forstår jeg ikke spørgsmålet...

Flag = ( n=uBound(arr) Or arr(1,n)<>arr(1,n+1) )

Vil i hvert fald give samme resultat, bare med booleans, true hvor dit
flag er 1, false hvor dit flag er 0. Det vil altid være enten true
eller false.


MVH
Rune Jensen

[runeof...@hotmail.com]

On 5 Jun., 15:06, runeofdenm...@hotmail.com wrote:

> Du sætter flag = 1 med to forskellige conditions, det forstår jeg ikke
> helt, så måske forstår jeg ikke spørgsmålet...
>
> Flag = ( n=uBound(arr) Or arr(1,n)<>arr(1,n+1) )

Ah, nu forstår jeg...

OK, så virker det nok heller ikke...

Jeg tænkte på at indsætte en AND i sidste led, men ved ikke, hvordan
den skal laves. Hvis første del af AND-leddet er falsk, så dropper den
vel resten af sætningen, må man gå ud fra.


MVH
Rune Jensen

[Birger Sørensen]

Leif Neland har bragt dette til os:

flag = 0;
flag = (n < uBound(arr)) ? arr(1, n) <> arr(1, n+1) : 1;

?

Birger

--
http://varmeretter.dk - billig, sund og hurtig mad
Utils http://sdccms.dk/ordbog/ http://sdccms.dk/mailfriend/
http://bredelund.dk CMS som det var meningen et sï¿œdant skulle vï¿œre

[Leif Neland]

Birger Sï¿œrensen skrev:

>
> flag = 0;
> flag = (n < uBound(arr)) ? arr(1, n) <> arr(1, n+1) : 1;
>
> ?
>
> Birger

Det er ikke vbscript / classic asp.

[Leif Neland]

runeof...@hotmail.com forklarede:

> On 5 Jun., 15:06, runeofdenm...@hotmail.com wrote:
>

>> Du sï¿œtter flag = 1 med to forskellige conditions, det forstï¿œr jeg ikke
>> helt, sￜ mￜske forstￜr jeg ikke spￜrgsmￜlet...

>>
>> Flag = ( n=uBound(arr) Or arr(1,n)<>arr(1,n+1) )
>

> Ah, nu forstï¿œr jeg...
>
> OK, sￜ virker det nok heller ikke...
>
> Jeg tￜnkte pￜ at indsￜtte en AND i sidste led, men ved ikke, hvordan
> den skal laves. Hvis fￜrste del af AND-leddet er falsk, sￜ dropper den
> vel resten af sￜtningen, mￜ man gￜ ud fra.
>

Nej, det er det, der er problemet.

Alle led udfï¿œres.

x=0
if x<>0 and 2/x > 1 then

.. fejler med division med 0

[runeof...@hotmail.com]

On 5 Jun., 20:45, Leif Neland <l...@neland.dk> wrote:

> Alle led udføres.

>
> x=0
> if x<>0 and 2/x > 1 then
>
> .. fejler med division med 0

Jeg har også afprøvet, og jeg kan ikke finde en løsning på det. Jeg
får også division by zero uanset hvordan jeg hacker det.


MVH
Rune Jensen

[Philip Nunnegaard]

Leif Neland skrev:

> Alle led udfï¿œres.
>
> x=0
> if x<>0 and 2/x > 1 then
>
> .. fejler med division med 0

Lige denne havde jeg nok prï¿œvet at ordne sï¿œdan:

x=0
if x <> 0 then
if 2/x > 1 then

(...)
end if
end if

Alternativt havde jeg rykket om pￜ sidste del af ligningen, sￜ 2/x > 1
blev til 2 > x (altsￜ ganget med x pￜ begge sider af >-tegnet):

x=0
if x<>0 and x < 2 then


--
Philip