Textfilshjälp — webForum

LiamMedlem sedan aug. 200340 inlägg

Trådstart27 apr. 2004 16:53#1

Hej

Fråga 1:

Hur gör jag för att öppna en fil, läsa in innehållet (som är ett tal) i en variabel. Öka på talet med 1. Sedan stänga textfilen.

Fråga 2:

Hur lägger man in en tab mellan två textstycken i en textfil?

Tack på förhand

MogMedlem sedan nov. 2003266 inlägg

27 apr. 2004 17:15#2

Fråga 1.
ex;

Dim fsoObject
Dim tsObject
Dim filObject
Dim variabel
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set filObject = fsoObject.GetFile("sökväg/filnamn")
Set tsObject = filObject.OpenAsTextStream
variabel = CLng(tsObject.ReadAll)
variabel = variabel + 1

' Skriv över den gamla filen med en ny
Set tsObject = fsoObject.CreateTextFile("sökväg/filnamn")
tsObject.Write CStr(variabel)
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing

Fråga 2.
Bör funka med;

vbTab