2 svar · 257 visningar · startad av voigtann1
<%
Set Conn = CreateObject("Scripting.FileSystemObject")
Set RecSet = Conn.OpenTextFile(server.mappath("min.txt"))
%>
den ska skriva ut HELA filen sen efter här.... jag har gjort något men det måste finnas en bättre lösning:
<%
Set Conn = CreateObject("Scripting.FileSystemObject")
Set RecSet = Conn.OpenTextFile(server.mappath("min.txt"))
%>
<%
f1 = RecSet.Readline
f2 = RecSet.Readline
f3 = RecSet.Readline
%>
<%=f1%><br>
<%=f2%><br>
<%=f3%><br>
typ någon loop av något slag....
så att hela filen laddas på en gång.. så att man kan köra
objRegExp.Pattern = "\[pelle\]"
filnamn = objRegExp.Replace(filnamn,"<font color='#FFFFFF'")
Fixat readall bara..
Vad är frågan, du har redan fixat .ReadAll säger du ju? 
Om jag fattar dig rätt så är det bara att läsa hela filen med .ReadAll och sen köra ditt pattern o skriva ut.
Är det bara radbrytningarna du är ute efter så:
Replace(RecSet.ReadAll, vbcrlf, "<br>")
PS. att döpa läsning ur en fil till RecSet är kanske lite förvillande?
kanske =) men jag kör så nu =)
