Avatar billede cort Nybegynder
18. januar 2001 - 14:55 Der er 10 kommentarer og
1 løsning

Sum af en variabels værdi

Jeg har en løkke:

For iCityCount=1 to Request\"checkpoint\").COUN

Response.Write \"<tr>\"
Response.Write \"<td>\" & strNr & \"</td>\"
Response.Write \"<td>\" & strNavn & \"</td>\"
Response.Write \"<td>\" & strPoint & \"</td>\"
Response.Write \"</tr>\"
       
Next
Heri udskriver jeg en række variabler bla.
strPoint som er et tal.

Når løkken er slut vil jeg gerne have summen af af alle tallene der var i strPoint.

Hvordan gør man det?
Avatar billede wisen Nybegynder
18. januar 2001 - 14:57 #1
Laver en variabel i løkken som kan tælle det sammen...
Avatar billede cort Nybegynder
18. januar 2001 - 15:12 #2
Noget i stil med:

varPointIalt = varPointIalt + strPoint

eller?????

Avatar billede cort Nybegynder
18. januar 2001 - 15:14 #3
Det virker bare ikke rigtigt
Avatar billede wisen Nybegynder
18. januar 2001 - 15:16 #4
Ja fx. Men det kan være at du skal \"typecaste\" strPoint til en integer?

vaPointIalt = varPointIalt + int(strPoint)
Avatar billede cort Nybegynder
18. januar 2001 - 15:19 #5
HMM  der bliver bare skrevet [false]
Avatar billede cort Nybegynder
18. januar 2001 - 15:20 #6
Skal man egentlig ikke skrive Cint, ikke at det gør en forskel i mit resultat. Men
Avatar billede wisen Nybegynder
18. januar 2001 - 15:21 #7
Øhh....
Avatar billede cort Nybegynder
18. januar 2001 - 15:25 #8
Her er hele løkkens code:

<%
    For iCityCount=1 to Request(\"checkpoint\").COUNT                \'Løkke der tæller hvor bokse der er afkrydset
   
        strTEXT = Request(\"checkpoint\")(iCityCount)                \'Hele tekststrengen sendt fra tilmelding.asp
        intFindKomma = InStr(strTEXT,\";\")                        \'Find Første komma   
        strNr = mid(strTEXT, 1, intFindKomma-1)                  \'Rytterens nummer
        strTemp = mid(strTEXT, intFindKomma+1, LEN(strTEXT))    \'Midlertidig variabel
        intNavn = Instr(strTemp,\";\")                            \'Variabel med rytternavn,point
        strNavn = mid(strTemp, 1, intNavn-1)                      \'Rytterens navn
        strPoint = mid(strTemp, intNavn+1, len(strTemp))          \'Rytterens point
       
        \'Udskriv resultat til siden
        Response.Write \"<tr>\"
        Response.Write \"<td>\" & strNr & \"</td>\"
        Response.Write \"<td>\" & strNavn & \"</td>\"
        Response.Write \"<td>\" & strPoint & \"</td>\"
        Response.Write \"<td>\" & varPointIalt = varPointIalt + strPoint & \"</td>\"       
        Response.Write \"</tr>\"
    Next
   
%>

Det kan være at det går galt i :

strPoint = mid(strTemp, intNavn+1, len(strTemp))          \'Rytterens point

Men det hjælper ikke noget at skrive:

CInt(strPoint) = mid(strTemp, intNavn+1, len(strTemp)) 
Avatar billede wisen Nybegynder
18. januar 2001 - 15:27 #9
Der er en funktion til at lave om på en type, men jeg kan ikke huske hvad den hedder....
Avatar billede lange Nybegynder
18. januar 2001 - 15:52 #10
<%
    intPointsIalt = 0
    For iCityCount=1 to Request(\"checkpoint\").COUNT                \'Løkke der tæller hvor bokse der er afkrydset
   
        strTEXT = Request(\"checkpoint\")(iCityCount)                \'Hele tekststrengen sendt fra tilmelding.asp
        intFindKomma = InStr(strTEXT,\";\")                        \'Find Første komma   
        strNr = mid(strTEXT, 1, intFindKomma-1)                  \'Rytterens nummer
        strTemp = mid(strTEXT, intFindKomma+1, LEN(strTEXT))    \'Midlertidig variabel
        intNavn = Instr(strTemp,\";\")                            \'Variabel med rytternavn,point
        strNavn = mid(strTemp, 1, intNavn-1)                      \'Rytterens navn
        strPoint = mid(strTemp, intNavn+1, len(strTemp))          \'Rytterens point
        intPointsIalt = intPointsIalt + CInt(strPoint)
        \'Udskriv resultat til siden
        Response.Write \"<tr>\"
        Response.Write \"<td>\" & strNr & \"</td>\"
        Response.Write \"<td>\" & strNavn & \"</td>\"
        Response.Write \"<td>\" & strPoint & \"</td>\"
        Response.Write \"<td>\" & varPointIalt = varPointIalt + strPoint & \"</td>\"       
        Response.Write \"</tr>\"
    Next
   
%>

så burde intPointsIalt indeholder det samlede antal points
Avatar billede cort Nybegynder
18. januar 2001 - 16:03 #11
tak for hjælpen Lange
og også tak til dig wisen
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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