2 svar · 219 visningar · startad av katis
Halloi!
Vet ngn om det finns andra argument än 1,2,8 i metoden OpenTexTFile?
Problematiken är att jag behöver lägga till en tecken till en bestämd plats(t.ex 3 rad) i min text-fil.
Skriver jag:
Set MinFil = MittTxtObj.OpenTextFile(fil,8,true)
MinFil.Write "-"
då läggs minus tecken på sista raden.
Jag undrar om det finns andra argument som möjliggör att man kan plasera tekcnet var man vill.
Vore jättetjust om ngn guru hör av sig.
Det finns, som du trodde, bara tre konstanter till parametern iomode. 1 för ForReading, 2 för ForWriting och 8 för ForAppending. Dessa har visserligen ingenting med att göra på vilken specifik rad du skriver, utan mer om du skriver alls.
Det finns nog inte, enligt vad jag vet iallafall, några sätt att använda just denna metod för att sätta ett speciellt tecken på en speciell rad. Nån annan som vet hur kanske?
Lite fulkod...
<%
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim objTextStream
Const fsoForAppend = 8
const fsoForReading = 1
Const ForWriting = 2
Set objTextStream = objFSO.OpenTextFile("sökväg till filen", fsoForReading)
'Lägger raderna i en array
Do while Not objTextStream.AtEndOfStream
I = I + 1
txtstr = txtstr & objTextStream.ReadLine & "XXX"
If I = 2 then
txtstr = txtstr & objTextStream.ReadLine & "-" & "XXX"
End If
myArray = Split(txtstr,"XXX")
Loop
objTextStream.Close
Set objTextStream = Nothing
'Skriver till filen
Set objTextStream = objFSO.OpenTextFile("sökväg till filen", ForWriting)
For k = lbound(myArray ) to ubound(myArray)
objTextStream.WriteLine myArray(k)
'Testutskrift
Response.Write myArray(k) & "<br>"
Next
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing
%>
Red. gick visst att snåla lite mer med koden ;)