---
title: "Argument i metoden OpenTextFile?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/46686-argument-i-metoden-opentextfile"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "katis"
published: "2002-06-26T13:42:06.000Z"
updated: "2002-06-26T15:21:45.000Z"
replies: 2
views: 231
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/46686-argument-i-metoden-opentextfile"
---

# Argument i metoden OpenTextFile?

## #1 — katis, 2002-06-26T13:42Z

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.

Permalänk: https://www.webforum.nu/p/46686

## #2 — OveRRidE, 2002-06-26T14:44Z

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?

Permalänk: https://www.webforum.nu/p/705973

## #3 — solbulle, 2002-06-26T15:21Z

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 ;)

Permalänk: https://www.webforum.nu/p/706011

---

Tråden på webben: https://www.webforum.nu/amne/asp/46686-argument-i-metoden-opentextfile