CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

ravnborg Nybegynder

06. august 2007 - 00:16 Der er 6 kommentarer og
1 løsning

lav forskellige tal

Jeg har brug for et script, der kan udtrække forskellige tal indenfor et interval.

F.eks. 5 forskellige tal mellem 0 og 200.

Da det er et script jeg kommet til at bruge flere gange, vil jeg gerne have det sådan, at man kan ændre antallet af tal samt intervallet.

Er der en der kan hjælpe.

mvh
Ravnborg

Synes godt om

w13 Novice

06. august 2007 - 00:29 #1

Mener bare, det er:

intInterval=200
Response.Write Rnd()*intInterval

Og for at sikre tilfældige tal, bør du i toppen af din side skrive:
Randomize

Men kun én gang på hver side, da tallene ellers, mærkeligt nok, bliver forudsigelige..

Synes godt om

ravnborg Nybegynder

06. august 2007 - 01:01 #2

Det er ikke helt det jeg søger.

Der skal Laves 5 forskellige tal. Dvs hvis det første tal er 45, skal scriptet sikre at dette tal ikke kommer ud som et af de 4 andre.

Synes godt om

thesurfer Nybegynder

06. august 2007 - 01:59 #3

<%
option explicit

function henttal(antal, minimum, maksimum, kun_heltal)

' Funktionen kaldes sådan her:
'
' returværdi = helttal(antal, minimumsværdi, maximumsværdi, kun_helttal)
'
' hvor:
'
'antal = antal af tal der skal returneres
'minimum = minimums værdi på de returnerede tal
'maksimum = maksimum værdi på de returnerede tal
'kun_heltal = angiver om den KUN må returere heltal, eller decimaltal/kommatal også er tilladt
'
' Husk:
' - at antallet af værdier der skal returneres, skal være større end "maksimum - minimum"
' - at maksimum skal være større end minimum
' - at funktionen altid returnerer et helttal, med mindre at man sender "false" med

dim samling
if antal <= maksimum - minimum and maksimum > minimum then

dim i, tal
randomize

tal = ""
samling = "#"
do while i < antal
tal = rnd * maksimum + minimum
if kun_heltal <> false then tal = CInt(tal)
if instr(samling, "#" & tal & "#") = 0 then
i = i + 1
samling = samling & tal & "#"
end if
loop
if samling <> "#" then samling = mid(samling, 2, len(samling) -2 )
else
samling = "FEJL i parameterene! Antal skal være større end intervallet og maksimum skal være større end minimum!"
end if

henttal = samling
end function

' Eksempler på håndtering af returværdien:

' Udskriv strengen:
response.write "En enkel streng: " & henttal(5, 0, 200, true) & " "

' Split værdierne op, og brug dem i en array med en loop
dim streng, arr, i

streng = henttal(5,0,200,true)

arr = split(streng, "#")

response.write "Fra en array: "

for i = 0 to ubound(arr)
response.write "Tal/plads " & i & ": " & arr(i) & " "
next
%>

Synes godt om

spradebassen Nybegynder

07. august 2007 - 01:38 #4

http://support.microsoft.com/kb/276494
Kort og godt kan det også gøres sådan.

<%@LANGUAGE=Python%>
<html>
<%
import random
def udtraek( Antal=5, Pulje=200 )
Pose = [ x for x in range( 1, Pulje) ]
random.shuffle( Pose ) # Ryst posen
Response.write( ",".join( Pose[ : Antal ] )
Response.write(" ")

udtraek()
udtraek( Pulje=12 )
udtraek( Antal=25 )
udtraek( Antal=10 , Pulje=500 )
%>
</html>

Synes godt om

spradebassen Nybegynder

07. august 2007 - 01:50 #5

Undskyld var lidt hurtig.
<%@LANGUAGE=Python%>
<html>
<%
import random
from pprint import pprint
def udtraek( Antal=5, Pulje=200 ):
Pose = [ x for x in range( 1, Pulje) ]
random.shuffle( Pose ) # Ryst posen
Response.write( ",".join( map(str,Pose[ : Antal ] ) ) )
Response.write(" ")

udtraek()
udtraek( Pulje=12 )
udtraek( Antal=25 )
udtraek( Antal=10 , Pulje=500 )
%>
</html>
Output :
<html>
28,167,170,64,110
 
5,3,10,4,1
 
154,133,148,63,34,196,149,166,59,181,105,57,171,106,184,77,78,186,180,116,25,29,94,64,33
 468,176,149,10,223,362,484,71,327,294
 
</html>

Synes godt om

thesurfer Nybegynder

07. august 2007 - 21:32 #6

Jeg var noget overrasket over kompressionen af Python koden, i forhold til VBScript-ASP koden..

Så jeg besluttede mig for at installere Python (fandt version 2.5.1 til Windows), for at kigge nærmere på det..

Da jeg fik gang i Python, kunne jeg få det til at virke, hvis det var en .py fil. Den accepterede ikke "<%@LANGUAGE=Python%>", og gav fejlen:

Fejltype:
Active Server Pages, ASP 0129 (0x80004005)
Scriptsproget 'Python' blev ikke fundet på serveren.
/python/test.asp, line 1

Koden til test.asp er den nedereste kode på http://support.microsoft.com/kb/276494

Da jeg kunne få Python koden fra 07/08-2007 01:50:51 til at virke, direkte i .py filen, besluttede jeg mig for at kigge nærmere på koden..

Når man ser på det, ser det lidt magisk ud.. få linier, masser af funktionalitet.. her bliver jeg så mistænksom, og nægter at tro det..

Så jeg kigger lidt på import-delen, som jo typisk importerer et eller andet namespace og funktionalitet..

Det viser sig, at magien ikke er magi, men almindelig programmering.. nemlig funktioner som returnerer typer/værdier..

Med andre ord:
Hvis man smider funktionen "henttal" i en separat fil, og inkluderer den (f.eks. ), og tilsidst bruger koden

Response.Write henttal(5,0,200,true)

vil man få samme funktionalitet/resultat som koden i 07/08-2007 01:50:51..

Efter at have "afsløret" tricket, kan jeg sige:

' VBScript i ASP er nemt, VBScript i ASP er sjovt

:-)

(Hvis man ikke forstod det sidste, plejer bauerdata at skriver "# python er nemt, python er sjovt.")

PS:
Hvis man ikke har forstået dette indlæg:

Python-koden gør bare brug af funktioner, som andre har programmeret og gjort tilgængeligt.
Funktionerne er delt op i filer, hvor filnavnet fortæller hvad filen indeholder.
Dvs., når man skriver "import random", så importerer den al indholdet af filen "random.py", som er på ialt 863 linier.
Jeg kan se, at spradebassen også importerer funktionen "pprint" fra filen "pprint.py".

Når jeg kigger på import og koden, vil jeg mene at Python koden vil bruge flere ressourcer end VBScript koden.

Jeg har dog ikke testet det, og har heller ikke værktøjerne til at teste det.

Så det må bare blive min påstand, baseret på de data jeg har fundet frem til, ved at se hvordan Python fungerer.

Synes godt om

arne_v Ekspert

12. august 2007 - 01:22 #7

thesurfer>

Hvis du vil bruge Python i ASP sider og du installerer en standard Python skal
du lige smide http://python.net/crew/mhammond/win32/Downloads.html på først.

Og så forstår jeg ikke helt dine betragtninger omkring import. Funktionalitet kommer
jo aldrig ud af ingenting. Hvis ikke selv man skal kode noget så er det fordi nogle
andre har kodet det for en. Hvis ASP/Python har en et bedre random bibliotek end
ASP/VBScript, så er det vel en fordel.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	0	07/11/202415:34	-
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

15:59

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

22/11

Droner i krig - sådan anvendes de mest effektivt på slagmarken

Vis flere artikler

IT-JOB

MAN Energy Solutions

LTSA 4-Stroke Technical Advisor

KMD A/S

Senior Customer Success Project Lead

Quadsat ApS

Robotics Engineer

ATP

Erfaren Data Engineer til ATP Data Foundation

Dynamicweb Software A/S

Solution Architect

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 14:10	Outlook henter ikke mails Af TTA i Office & Kontorpakker
I dag 13:58	vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I dag 13:35	Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling
I går 20:49	pop up black friday Af Malm i Virus
I går 18:31	Hvor finder jeg en netværksdriver? Af jcr18 i Wifi