Exportera till textfil

3 svar · 303 visningar · startad av Asa 13 okt. 2004

AsaMedlem sedan dec. 20011 860 inlägg

Frågan13 okt. 2004 09:16#1

Hur gör man för att hämta data ifrån en databas och sedan loopa ut allt och spara det till en textfil? Har sökt men inte hittat det jag behöver. Sen ska det helst vara max 100 tecken per rad i texfilen.

Är nog enkelt men jag vet inte riktigt hur jag skall skriva. Sen ska man helst om det går få filen så man kan spara den. Inte så den öppnas på en gång. Men det kanske ej är möjligt??1

@ndersMedlem sedan juni 200032 967 inlägg

13 okt. 2004 09:56#2

På devguru finns tillräckligt för att kunna skapa sig en textfil. Radlängderna får du kontrollera med len() innan du kör WriteLine().

Filöppnande går säkert också att lösa. Det borde duga med att ändra contenttype i asp-filen och sedan strömma ut textfilsinnehållet.

mvh

AsaMedlem sedan dec. 20011 860 inlägg

13 okt. 2004 10:01#3

Okej, ska se vad jag kan göra. Inte för att jag kommer få till det med max 100 tecken per rad samt att den inte ska bryta mitt i ett ord. Så har nån ett exempel så posta det gärna..

J.N.Medlem sedan apr. 20031 660 inlägg

13 okt. 2004 11:58#4

HEJ!

Vadå "Inte för att jag kommer få till det med max 100 tecken..." :q
Det är ju endast att ta ett problem i taget, som vanligt, och fråga wF om det inte går ändå! :stud

Här skapar jag en textfil, och fyller den med Getrows-arrayen, för att slippa dra runt ett recordset.
I mitt fall är det egentligen en csv-fil som skickas iväg, men detta är något att utgå ifrån.

sql="...."
Set RS = Databas.Execute(sql)
GRbest = RS.GetRows: Set RS = Nothing
uboundGRbest=UBound(GRbest,2)

'för att slippa städa i foldern raderas den varje gång
if FSO.FolderExists(Server.MapPath(folder)) then FSO.DeleteFolder Server.MapPath(folder)
FSO.CreateFolder(Server.MapPath(folder))
FSO.CreateTextFile(Server.MapPath(folder) & "\" & filnamn & ".txt")
Set ts = FSO.OpenTextFile(Server.MapPath(folder) & "\" & filnamn & ".txt",2)

For j = 0 to uboundGRbest
	ts.WriteLine (GRbest(1,j) & ";" & GRbest(2,j) & ";" &  VbCrLf)
Next

Som @nders skriver ovan, använder jag mig av FSO för detta.