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)))
10 svar · 329 visningar · startad av MickeA.com
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 !
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)))
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 !
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.
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 !
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]
Tack, faan va glad jag blev nu ;)
BTW.. Om det fungerar så får du gärna markera tråden som löst :)
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...
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 " : /