---
title: "Läsa vissa delar ur textfilen."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/92071-läsa-vissa-delar-ur-textfilen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "nedde"
published: "2003-12-07T18:00:56.000Z"
updated: "2003-12-07T18:57:46.000Z"
replies: 8
views: 269
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/92071-läsa-vissa-delar-ur-textfilen"
---

# Läsa vissa delar ur textfilen.

## #1 — nedde, 2003-12-07T18:00Z

Har lite kunskapsproblem :)

Har en textfil jag läser ifrån och den ser ut så här:

\[user1\]
Login=hej
Pass=hej
RelativePath=1
TimeOut=600

\[user2\]
Login=tjo
Pass=tjo
RelativePath=1
TimeOut=600

Koden jag använder för att läsa filen ser ut så här:

```php
<%
Set FS = Server.CreateObject("Scripting.FileSystemObject")
Set RS = FS.OpenTextFile("C:\Program Files\BPFTP Server\users.ini",1)
While not rs.AtEndOfStream
      Response.Write RS.ReadLine
      Response.Write("<br />")
Wend 
%>
```

Det är ju dock ASP och inte PHP kod ;)

Det jag vill är att den bara ska skriva ut:

\[user1\]
Login=hej
Pass=hej

och sen hoppa vidare till nästa användare och skriva ut
samma information om honom.

Någon som kan hjälpa mig med problemet?

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

## #2 — Sebbe, 2003-12-07T18:07Z

Kanske såhär?

```
<%
Set FS = Server.CreateObject("Scripting.FileSystemObject")
Set RS = FS.OpenTextFile("C:Program FilesBPFTP Serverusers.ini",1)

While not rs.AtEndOfStream
  If Left(RS.ReadLine, 1) = "[" OR Left(RS.ReadLine, 4) = "Pass" OR Left(RS.ReadLine, 5) = "Login" Then
    Response.Write(RS.ReadLine)
    Response.Write("<br />")
  End if
Wend 
%>
```

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

## #3 — nedde, 2003-12-07T18:24Z

funkade inte alls bra. får bara ut massa annan text.

saken är att jag vill lista alla ftp användare i bulletproof ftp server filen. har ett exemepel här om du orkar titta närmare:

<http://nedde.com/nedde/ftp/users.ini>

Det jag vill är som sagt att dom tre första raderna skrivs ut
för varje användare.. alltså:

\[user1\]
Login=login1
Pass=pass1

osv... till nästa användare

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

## #4 — Sebbe, 2003-12-07T18:29Z

Såhär då? :)

```
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile("C:Program FilesBPFTP Serverusers.ini", 1)
arrText = Split(objTS.ReadAll, vbCrLf & vbCrLf)

For i = 0 To UBound(arrText)
  arrTemp = Split(arrText(i), vbCrLf)

  For j = 0 To 2
    Response.Write(arrTemp(j) & "<br />" & vbCrLf)
  Next

  Response.Write("<br />" & vbCrLf)
Next

objTS.Close : Set objTS = Nothing
Set objFSO = Nothing
%>
```

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

## #5 — LarsG, 2003-12-07T18:31Z

```
line = rs.readline
While not rs.AtEndOfStream
   If Left(line, 1) = "[" OR Left(line, 4) = "Pass" OR Left(Line, 5) = "Login" Then
    Response.Write line
    Response.Write "<br />" 
  End if
  line = rs.readline
Wend
```

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

## #6 — nedde, 2003-12-07T18:32Z

Funkade perfekt! Tack så hemskt mycket.

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

## #7 — nedde, 2003-12-07T18:47Z

Sebbe.. heh.. funkade bra när jag hade två användare..
men när jag läste in den större filen. (orginalet) så kommer detta
felmeddelande:

Error Type:
Microsoft VBScript runtime (0x800A0009)
Subscript out of range: 'j'

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

## #8 — Sebbe, 2003-12-07T18:50Z

Det verkar väldigt konstigt! Är det uppbyggt på samma sätt i orginalet så kan jag inte förstå vad som skulle bli fel.

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

## #9 — nedde, 2003-12-07T18:57Z

Ser precis ut på samma vis bara att det finns 120 användare i den filen istället för 2 :) nåja. .får klura på det. tack för all hjälp iaf.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/92071-läsa-vissa-delar-ur-textfilen