FileSystemObject

Jag undrade vad som är fel i min kod här under:

<%
thetext="Write this text in the file"

Set fs = CreateObject("Scripting.FileSystemObject")

Set wfile = fs.CreateTextFile("iframelinks.txt", False)
wfile.WriteLine "<a href="<%=Request.QueryString("search")%>" target="iframe"><%=Request.QueryString("search2")%></a><br>"

wfile.close
Set wfile=nothing
Set fs=nothing

response.write("Confirmed!")
%>

Får felmeddelandet:

wfile.WriteLine <a href="<%=Request.QueryString("search")
----------------^

Har lite svårt att förklara mig så ställ gärna frågor om ni inte förstår!

Mvh Erik

Jag märkte det >.<

Jag måste säga att jag har försökt och har ingen aning hur jag ska lösa det >.< verkar inte som det finns nog med stöd i ASP

för viss vbscript kod så jag ska vara kapabel till att skapa ett script utav det.

Får googla vidare :)

Det jag skulle kunna göra är att ta ut alla rader förutom den första och sen skjuta tillbaka allt som en ny fil, då får jag ju det jag vill uppnå :)

Ska testa nu eller imorn, ska uppdatera hur det går.

Fungera utmärkt för mig att bara skriva om VBA skriptet till ren ASP kod, ASP behöver du skapa objekten, du kan inte typar ASP kod

Eftersom du inte förklara alls vad du egentligen vill så chansar jag att det kanske är något i stil med: http://voigt.se/sandbox/aspkoll/MrXr/getPost/ nu ser du en lista med alla rader, du kan själv plocka bort dom.

Hur får du den att fungera när DeletLine inte är ett känt "kommando" i ASP?

var iallafall det felmeddelande jag fick när jag försökte, jag gjorde troligtvis riktigt fel dock.

Det är ju det som är funktionen som denna person har skapat, ByVal "As xxxx" finns inte inte i ASP, börja med att rensar det och sen skapar de objekt som de referera till.

Har gjort en ny demo på hemsidan, är det så du skall ha det?

Det tror jag, ser väldigt bra ut.

Vet inte hur koden ser ut dock så är inte helt säker.

Vad jag menade var att ja det är som jag vill ha, vill bara veta om jag kan konfigurera det så det passar in i den andra koden :)

Alltså:

Ja!

Rensar den kod från VB (byval, byref och As xxxx) och byt sätt oFSO till Server.CreateObject("Scripting.FileSystemObject") och oFSTR till oFSO.OpenTextFile("PATH TO TEXT FILE", 1) så är jag rätt säker på att funktionen fungera precis som du vill ha den.

hmm ska testa det. Undrar bara först varför koden jag jobbat på hitills inte vill funka:

Hur texten var innan asp skriptet:<hr>
<!-- #include file="test.txt" -->
<hr>
<%
dim fs, sFile, file
sFile = Server.MapPath("test.txt")

Set fs = CreateObject("Scripting.FileSystemObject")
set wfile = fs.OpenTextFile(sFile, 8, true)

useless = sFile.readline
do while not sFile.AtEndOfStream
singleline = sFile.readline

text = singleline

loop

file.WriteLine (text)
file.close
Set file=nothing
Set fs=nothing
%>
Hur texten blev efter:<hr>
<!-- #include file="test.txt" -->
<hr>

säkert något riktigt idiotiskt misstag jag gjort...

Felmeddelande om det är intressant:

sFile är en sträng, så den har inte en .readline i sig, det du vill är att köra wfile istället.

sen vill du inte loopar den heller då du verkar bara vilja skriva till en rad sen useless behövs inte då du gör det på singleline redan och mer korrekt i loopen.

Hmm, försökte med wfile först men fick konstiga felmeddelanden p åden raden då. Ska testa igen.

Fick tipset från en sida att den skriver ut rader i ordning så om jag skriver ut första raden innan loopen börjar så börjar den loopa ut text filen på andra raden och hoppar över första.

Sen skjuter jag bara in allt i text filen igen utan den första raden vilket resulterar i att jag har "raderat" första raden.

Det var så det var tänkt iallafall.

Det tipset du har fått är felaktigt, det de kan ha rekommenderat (bara sett att du postat samma fråga på aspsidan) är att läsa av alla rader samtidigt och sen splitar den.

Hur texten var innan asp skriptet:<hr>
<!-- #include file="test.txt" -->
<hr>
<%
dim fs, sFile, file
sFile = Server.MapPath("test.txt")

Set fs = CreateObject("Scripting.FileSystemObject")
set wfile = fs.OpenTextFile(sFile, 8, true)

useless = wfile.readline
do while not wfile.AtEndOfStream
singleline = wfile.readline

text = singleline

loop

file.WriteLine (text)
file.close
Set file=nothing
Set fs=nothing
%>
Hur texten blev efter:<hr>
<!-- #include file="test.txt" -->
<hr>

Med den koden får jag felmeddelandet:

Bad file mode? Kan den inte hitta första raden i textfilen eller vad menar den?