8 svar · 647 visningar · startad av WebbisNet
Håller på med en asp-sida och ska leka lite med fso.....problemet är att jag inte får till en ersättning av vbCrLf till <p>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("/textfiles/omMig.txt"), 1)
Response.Write(f.ReadAll)
strReplace = Replace(strText, vbCrLf, "<p>")
Set objFile = objFSO.OpenTextFile("/textfiles/omMig.txt", ForWriting)
objFile.WriteLine strReplace
f.Close
Set f=Nothing
Set fs=Nothing
%>
var kommer strText ifrån?
var kommer strText ifrån?
En liten miss där, rättade till det men jag får
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/default.asp, line 37
line 37 är
Set objFile = objFSO.OpenTextFile("/textfiles/omMig.txt", ForWriting)
objFSO har du inte satt heller, du är nog ute efter ditt fs objekt där?
objFSO har du inte satt heller, du är nog ute efter ditt fs objekt där?
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("/textfiles/omMig.txt"), 1)
Response.Write(f.ReadAll)
strReplace = Replace(strReplace, vbCrLf, "<p>")
Set f=fs.OpenTextFile("/textfiles/omMig.txt", ForWriting)
f=fs.WriteLine strReplace
f.Close
Set f=Nothing
Set fs=Nothing
%>
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/default.asp, line 38
f=fs.WriteLine strReplace
---------------^
f.WriteLine strReplace
WriteLine retunera inget, och OpenTextFile är ett objekt så det gå inte att skriva över på det sätt du försöker.
f.WriteLine strReplaceWriteLine retunera inget, och OpenTextFile är ett objekt så det gå inte att skriva över på det sätt du försöker.
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument
/default.asp, line 36
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'Open file and save the text to a ASP variable
Set f = fs.OpenTextFile(Server.MapPath("omMig.txt"), 1, true)
strReplace = f.ReadAll
strReplace = Replace(strReplace, vbCrLf, "<p>")
f.Close
Response.Write(strReplace)
'Write to file
Set f = fs.OpenTextFile(Server.MapPath("omMig.txt"), 2)
f.WriteLine strReplace
f.Close
Set f=Nothing
Set fs=Nothing
%>
fungera för mig, vet inte var strReplace kom ifrån så jag tog bara texten ifrån text filen.
tack för hjälpen