VbScript: Fördröjning, hur ?

2 svar · 243 visningar · startad av nill 19 okt. 2001

nillMedlem sedan okt. 2001387 inlägg

Trådstart19 okt. 2001 06:39#1

Om jag t.ex. ska loopa ut min text bokstav för bokstav så här:

antal = len(text)

for i=0 to antal
uttext = left(text, i)
next

hur gör jag då så att detta "syns".. alltså med några millisekunders fördröjning ?
I Visual Basic är det ju inte så svårt med med ASP förstår jag inte hur det ska gå till.

PatrikBMedlem sedan mars 20002 836 inlägg

19 okt. 2001 08:55#2

I asp blir det svårt eftersom allt processas på servern och sedan skickas till klienten.
Vill du få "skrivmaskins effekt" blir du tvungen att kika på någon javascript-funktion som körs på klienten.

cya,
PatrikB

BrimbaMedlem sedan dec. 19995 874 inlägg

19 okt. 2001 09:49#3

Om du däremot vill pausa så fungerar detta:

Sub Pause(Sec)
    Dim Start
    
        Start = Timer()   ' Ange starttid.
        
        Do While Timer < (Start + Sec)
        Loop

End Sub

Men som sagt, den visar ingenting på klienten - tills sidan är klar, utan det är servern som pausas.
Men det kan ändå vara användbart ibland.