---
title: "Slupa text ur .txt fil..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/47024-slupa-text-ur-txt-fil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "s_m"
published: "2002-07-01T19:43:00.000Z"
updated: "2002-07-02T12:28:19.000Z"
replies: 2
views: 201
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/47024-slupa-text-ur-txt-fil"
---

# Slupa text ur .txt fil...

## #1 — s_m, 2002-07-01T19:43Z

Hejsan!

Det går ju att slumpa text ur en databas men går det att göra från en .txt fil?

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

## #2 — @nders, 2002-07-01T20:01Z

Ja, då.

Exempel:

```
<%
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile(Server.MapPath("filen.txt"))
strFile = objFile.Readall
objFile.Close
set objFile = Nothing
set objFSO = Nothing

varLines = Split(strFile, vbCrLf)

Randomize
strRandomLine =  varLines(Int((UBound(varLines) - 1) * Rnd))

Response.Write strRandomLine
%>
```

filen.txt har jag lagt i samma mapp som asp-filen som slumpar. Möjligen går det att göra på ett smidigare sätt, men detta fungerar.

Mvh,

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

## #3 — s_m, 2002-07-02T12:28Z

Tackar för svaret! :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/47024-slupa-text-ur-txt-fil