---
title: "Variabler?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/41047-variabler"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Quid"
published: "2002-04-07T18:40:46.000Z"
updated: "2002-04-07T19:07:16.000Z"
replies: 3
views: 220
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/41047-variabler"
---

# Variabler?

## #1 — Quid, 2002-04-07T18:40Z

```
DagIManad = DatePart("d", now())
StatsDag = 1

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

DO WHILE NOT Cint(StatsDag) > Cint(DagIManad)
	IF FSO.FileExists("c:\inetpub\ftproot\figurer\raknare\2002-04-"& Right("00"& StatsDag, 2) &".txt") THEN
		Set File = FSO.OpenTextFile("c:\inetpub\ftproot\figurer\raknare\2002-04-"& Right("00"& StatsDag, 2) &".txt")
		dag1 = File.ReadLine
		File.Close
	ELSE
		dag1 = 0
	END IF
	StatsDag = StatsDag + 1
LOOP

Set File = Nothing
Set FSO = Nothing
```

 

Fast grejen är att jag vill för varje loop så ska det bli en ny variabel som tilldelas värdet i .txt-filen. dag1, dag2, dag3 osv.

Hur löser man det?

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

## #2 — LarsG, 2002-04-07T18:47Z

Hur hade du tänkt att hantera dom variablerna?

Lägg in värdena i en array.

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

## #3 — Quid, 2002-04-07T19:00Z

Hur då? :)

Edit:
Ibland så tänker man inte längre än näsan räcker... kom på att jag kan ju lösa det igenom att skriva ut värde direkt i loopen :)

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

## #4 — LarsG, 2002-04-07T19:07Z

```
DagIManad = DatePart("d", now())

dim dagar()
redim dagar(DagIManad-1)

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
for StatsDag = 1 to DagIManad
	IF FSO.FileExists("c:\inetpub\ftproot\figurer\raknare\2002-04-"& Right("00"& StatsDag, 2) &".txt") THEN
		Set File = FSO.OpenTextFile("c:\inetpub\ftproot\figurer\raknare\2002-04-"& Right("00"& StatsDag, 2) &".txt")
		dagar(StatsDag-1) = File.ReadLine
		File.Close
	ELSE
		dagar(StatsDag-1) = ""
                END IF
next
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/41047-variabler