Variabler?

3 svar · 220 visningar · startad av Quid 7 apr. 2002

QuidMedlem sedan juni 20006 022 inlägg

Trådstart7 apr. 2002 18:40#1

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?

LarsGMedlem sedan dec. 200012 464 inlägg

7 apr. 2002 18:47#2

Hur hade du tänkt att hantera dom variablerna?

Lägg in värdena i en array.

QuidMedlem sedan juni 20006 022 inlägg

7 apr. 2002 19:00#3

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

LarsGMedlem sedan dec. 200012 464 inlägg

7 apr. 2002 19:07#4

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