---
title: "Hitta största talet"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/98644-hitta-största-talet"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bjarne A"
published: "2004-03-03T14:02:29.000Z"
updated: "2004-03-03T17:31:51.000Z"
replies: 3
views: 250
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/98644-hitta-största-talet"
---

# Hitta största talet

## #1 — Bjarne A, 2004-03-03T14:02Z

Hej!

Jag vill ta reda på vilket av värderna jag hämtar från textfiler som är störst och tilldela det till ZZ för att kunna räkna med det senare i koden.
Har försökt med IF-satser men det bara tilldelar ZZ 0 till sista IF-satsen
Sökt här på WF och försökt med en FOR NEXT men inte fått till det

```
Dim Z, a, b, c, d, e, f, g, h, aa, bb, cc, dd, ee, ff, gg, hh
Set Z = CreateObject("Scripting.FileSystemObject")
Set a = Z.OpenTextFile(Server.MapPath("raknare_default.txt"))
Set b = Z.OpenTextFile(Server.MapPath("raknare_kontakta_oss.txt"))
Set c = Z.OpenTextFile(Server.MapPath("raknare_bli_medlem.txt"))
Set d = Z.OpenTextFile(Server.MapPath("raknare_1.txt"))
Set e = Z.OpenTextFile(Server.MapPath("raknare_2.txt"))
Set f = Z.OpenTextFile(Server.MapPath("raknare_3.txt"))
Set g = Z.OpenTextFile(Server.MapPath("raknare_4.txt"))
Set h = Z.OpenTextFile(Server.MapPath("raknare_raknare.txt"))

aa = a.ReadLine
bb = b.ReadLine
cc = c.ReadLine
dd = d.ReadLine
ee = e.ReadLine
ff = f.ReadLine
gg = g.ReadLine
hh = h.ReadLine
```

```
Dim ZZ
ZZ = 0
IF aa > ZZ THEN
ZZ = aa
ELSE
ZZ = ZZ
END IF

IF bb > ZZ THEN
ZZ = bb
ELSE
ZZ = ZZ
END IF
```

```
intMax=0
for i=1 to 5
intCur=CInt(request("tal" & i))
if intCur>intMax then intMax=intCur
next
```

Permalänk: https://www.webforum.nu/p/98644

## #2 — Engine^, 2004-03-03T14:48Z

Jag ser inte vad kodsnutt tre har med det hela att göra, men jag föreslår att du använder dig av en array för att lagra räknarna.

```
Dim objFSO, objFile, intCounters(), intIndexMax
Const intFiles = 8

ReDim intCounters(intFiles)

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_default.txt"))
intCounters(1) = objFile.ReadLine
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_kontakta_oss.txt"))
intCounters(2) = objFile.ReadLine
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_bli_medlem.txt"))
intCounters(3) = objFile.ReadLine
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_1.txt"))
intCounters(4) = objFile.ReadLine
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_2.txt"))
intCounters(5) = objFile.ReadLine
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_3.txt"))
intCounters(6) = objFile.ReadLine
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_4.txt"))
intCounters(7) = objFile.ReadLine
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_raknare.txt"))
intCounters(8) = objFile.ReadLine

objFile.Close
Set objFile = Nothing
Set objFSO = Nothing

intMaxIndex = 1

For i = 2 To intFiles
  If CInt(intCounters(i)) > CInt(intCounters(intMaxIndex)) Then intMaxIndex = i
Next

Response.Write intCounters(intMaxIndex) & " är störst."
```

Jag tror att det kan fungera.

Permalänk: https://www.webforum.nu/p/1288944

## #3 — Bjarne A, 2004-03-03T17:20Z

Tack!
Det gnäldes på CInt så jag ändrade till bara Int(...
och då blev det bra. Int tar bara heltal men vad gör CInt

```
Dim objFSO, objFile, intCounters(), intIndexMax
Const intFiles = 8

ReDim intCounters(intFiles)

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_default.txt"))
intCounters(1) = objFile.ReadLine
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_kontakta_oss.txt"))
intCounters(2) = objFile.ReadLine
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_bli_medlem.txt"))
intCounters(3) = objFile.ReadLine
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_1.txt"))
intCounters(4) = objFile.ReadLine
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_2.txt"))
intCounters(5) = objFile.ReadLine
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_3.txt"))
intCounters(6) = objFile.ReadLine
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_4.txt"))
intCounters(7) = objFile.ReadLine
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare_raknare.txt"))
intCounters(8) = objFile.ReadLine

objFile.Close
Set objFile = Nothing
Set objFSO = Nothing

intMaxIndex = 1

For i = 2 To intFiles
  If [B][red]C[/red][/B]Int(intCounters(i)) > [B][red]C[/red][/B]Int(intCounters(intMaxIndex)) Then intMaxIndex = i
Next

Response.Write intCounters(intMaxIndex) & " är störst."
```

Permalänk: https://www.webforum.nu/p/1289024

## #4 — Engine^, 2004-03-03T17:31Z

[CInt](http://www.devguru.com/Technologies/vbscript/quickref/cint.html) konverterar ett nummer till ett heltal.

Permalänk: https://www.webforum.nu/p/1289032

---

Tråden på webben: https://www.webforum.nu/amne/asp/98644-hitta-största-talet