---
title: "Plocka ut från ett visst tecken i en textfil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/92084-plocka-ut-från-ett-visst-tecken-i-en-textfil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MickeA.com"
published: "2003-12-07T20:46:17.000Z"
updated: "2003-12-14T14:59:33.000Z"
replies: 10
views: 349
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/92084-plocka-ut-från-ett-visst-tecken-i-en-textfil"
---

# Plocka ut från ett visst tecken i en textfil

## #1 — MickeA.com, 2003-12-07T20:46Z

Hej

Har följande:

```
' Skapar objektetet på server som hanterar Textfilen.
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Öppnar textfilen inuti objektet.
Set objFil = objFSO.OpenTextFile(Server.MapPath("textfile.txt"),1)

' Läser av allt som står i textfilen och sparar det i variablen vi kallar för 'AllText'.
AllText = objFil.readAll

' När vi läst av textfilen, kan vi stänga objektet, det kommer inte att behövas mer nu.
objFil.close

' Skickar in variabeln till Flash, där all låtinformation sparats.
Response.Write(AllText)
```

Nu vet jag inte hur det ligger till, men jag måste iaf. kunna plocka ut allt i textfilen från och med CHR 10 och ta ut allt därefter, sen spara det i en variabel.

Så, hur ska jg lösa det här? JAg har faktiskt ingen som helst aning ;)

Tack !

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

## #2 — Sebbe, 2003-12-07T20:47Z

```
strEfterChr10 = Split(AllText, Chr(10))(1)
```

**/red** Ok, kanske inte så bra... Det är nog bättre med detta:

```
strEfterChr10 = Right(AllText, Len(AllText) - InStr(AllText, Chr(10)))
```

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

## #3 — Engine^, 2003-12-08T08:28Z

Eller... en variant till ;)

```
strEfterChr10 = Mid(AllText, InStr(AllText, Chr(10)))
```

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

## #4 — MickeA.com, 2003-12-08T15:19Z

Jasså, kanon, när jag kommer hem från jobbet så ska jag se hur det blir med den här filen.

Har även en fråga.

Med FSO, kan man **ENDAST** öpnna filer vars attribut är txt. ?? Filen jag behöver öppna heter nämligen .asc (eller ngt liknande), den innehåller bara lite text, vilken jag ska plocka ut m.h.a det här.  Tack !

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

## #5 — @nders, 2003-12-08T15:23Z

> **MickeA.com skrev:**
>
> Med FSO, kan man **ENDAST** öpnna filer vars attribut är txt. ?? Filen jag behöver öppna heter nämligen .asc (eller ngt liknande), den innehåller bara lite text, vilken jag ska plocka ut m.h.a det här.  Tack !

Det har ingen som helst betydelse vad filen heter.

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

## #6 — MickeA.com, 2003-12-14T13:32Z

Hmm, antingen har jag varit luddig eller så har ni missuppfattat det hela, för inget av ovanstående funkar, den plockar ut helt fel saker. 
Såhär ser BILBOARD.ASC ut:

```
Playing   EAGLE-EYE CHERRY                                  SKULL TATTOO                                      03:05.35  
Cued      BOB MARLEY                                        COULD YOU BE LOVED                                03:41.26
```

Det jag ska ha ut ifrån den är:

```
EAGLE EYE CHERRY
SKULL TATTOO
03:05.35
```

Jag vill ha det formaterat såhär:

```
EAGLE EYE CHERRY - SKULL TATTOO - 03:05.35
```

Tyvärr går det inte att skriva den här BILBOARD.ASC på ngt annat sätt, det är en radioserver som skapar filen.

Nu när jag använder ngt av förslagen ovan så får jag ut den andra låten, alltså den som står efter Cued. Jag ska ha ut den som står efter played, helt formaterat som jag visar ovan.

Tack !

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

## #7 — LR^evil.sid, 2003-12-14T14:15Z

```
DeJagVillHa = Split(AllText, chr(10))
Response.Write Replace(Replace(DeJagVillHa(0), "  ", " "), "Playing ", "")
```

Bindestäcken får du trixa dit själv ; )

/red Eller kanske

```
[red]DeJagVillHa = Split(AllText, chr(10))
DeJagVillHa(0) = Replace(DeJagVillHa(0), "Playing ", "")
DeJagVillHa(0) = Replace(DeJagVillHa(0), " ", "-")
DeJagVillHa(0) = Replace(DeJagVillHa(0), "--", "-")
DeJagVillHa(0) = Replace(DeJagVillHa(0), "-", " - ")[/red]
```

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

## #8 — MickeA.com, 2003-12-14T14:19Z

Tack, faan va glad jag blev nu ;)

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

## #9 — LR^evil.sid, 2003-12-14T14:23Z

BTW.. Om det fungerar så får du gärna markera tråden som löst :)

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

## #10 — MickeA.com, 2003-12-14T14:39Z

Nja... Nu blev det ändrade bud, nu ska inte längden vara med, alltså bara artisten och låtnamnet. Får inte till det. Det är inte helt löst än... ;)

PS.

```
DeJagVillHa = Split(AllText, chr(10)) & ""
DeJagVillHa(0) = Replace(DeJagVillHa(0), "Playing ", "")
DeJagVillHa(0) = Replace(DeJagVillHa(0), " ", "-")
DeJagVillHa(0) = Replace(DeJagVillHa(0), "--", "-")
DeJagVillHa(0) = Replace(DeJagVillHa(0), "-", " - ")
```

Inkompatible Typer får jag om jag kör med det...

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

## #11 — LR^evil.sid, 2003-12-14T14:59Z

```
Dim DeJagVillHa
DeJagVillHa = Split(AllText, chr(10))

DeJagVillHa(0) = "" & Right(Left(DeJagVillHa(0), Len(DeJagVillHa(0)) - (Len(DeJagVillHa(0)) - InStrRev(DeJagVillHa(0), " "))), Len(DeJagVillHa(0)) - 8)

DeJagVillHa(0) = Replace([b]Trim([/b]DeJagVillHa(0)[b])[/b], " ", "-")
DeJagVillHa(0) = Replace(DeJagVillHa(0), "--", "-")
DeJagVillHa(0) = Replace(DeJagVillHa(0), "-", " - ")
```

så då...

red1 Redigeringen är boldad : )
red2 Denna koden kanske är att föredra då låtnamnet får innehålla "Playing " : /

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/92084-plocka-ut-från-ett-visst-tecken-i-en-textfil