---
title: "Ett litet test!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11245-ett-litet-test"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Krug"
published: "2001-08-22T15:40:00.000Z"
updated: "2001-08-22T16:28:00.000Z"
replies: 2
views: 196
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/11245-ett-litet-test"
---

# Ett litet test!

## #1 — Krug, 2001-08-22T15:40Z

Skulle få till en pryl som läser 5 rader slumpade rader ur en text fil utan att 2 rader är lika. Hittade lite info om det här så jag fick till att den läste en rad.. med lite hjälp av Vide så fixade vi 5 rader oxå men då slumpade den bara den första och sedan dom andra 4 på en rad. (Tex. 3,4,5,6,7)
Koden som gjorde det ser ut så här.

```
Const ForReading = 1
Randomize
tal = Int(Rnd*9)
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set InStream = FileObject.OpenTextFile (Server.Mappath ("textfil.txt"),ForReading, False)

For i = 1 To tal
InStream.Skipline
Next
For j = 1 To 5
Skriv_ut = Skriv_ut & InStream.Readline
Next

InStream.close

Response.write skriv_ut
```

Nu skulle jag däremot plocka in en sub för att loopa det andra istället för att få 5 olika slumpade rader och fixar inte det så bra :(
Så lite hjälp vore inte fel.

Koden som plockar ut en rad:

```
Const ForReading = 1

Randomize

tal = Int(Rnd*9)
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set InStream = FileObject.OpenTextFile (Server.Mappath ("textfil.txt"),ForReading, False)

For i = 1 To tal
InStream.Skipline
Next
Skriv_ut = InStream.Readline
InStream.close

Response.write skriv_ut
```

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

## #2 — LarsG, 2001-08-22T16:22Z

```
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set InStream = FileObject.OpenTextFile (Server.Mappath ("textfil.txt"),ForReading, False)

rows = split(Instream.readall,vbCrLf)
instream.close

numberofRows = ubound(rows)

randomize
for i = 0 to 4
    slot = int((NumberOfRows-i)*rnd())
    response.write rows(slot)
    rows(slot) = rows(numberOfRows-i)
next
```

Otestat, det får du göra.

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

## #3 — Krug, 2001-08-22T16:28Z

Funkar klockrent.. fick bara lägga till en \<br\> så det byter rad.

Vide hade iofs en lösning på gång på ett annat sätt men han blev galen och kunde inte tänka. :)

Tack LarsG

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11245-ett-litet-test