Output to file

[Guest_imported]

What is the syntax in vbscript for
open for input as #1....

I want to use asp pages to output text to a file

 

[sfvb]

Sub GetSourceFile()
   Dim fso

'As FileSystemObject

   Dim fil

'As File

   Dim TxtIn

'As TextStream

   Dim tmpStr

'As String

   Set fso = CreateObject("Scripting.FileSystemObject")
   If fso.FileExists("your_Fullpath_Filename") Then
      Set fil = fso.GetFile("your_Fullpath_Filename")
      Set TxtIn = fil.OpenAsTextStream(1)

 '1 = open file for read

      Do While Not TxtIn.AtEndOfStream
         tmpStr = TxtIn.ReadLine

         'Do some stuff

      Loop
      TxtIn.Close
   End If
End Sub

 

[dilettante]

BTW -

"Magic" numbers are considered bad form.

You should normally have several constants defined when using FSO, for example:

Const ForReading = 1 
Const ForWriting = 2 
Const ForAppending = 8

 

[dilettante]

A cleaner way to do stand-alone scripting these days (non-web scripting) is to make Windows Script Files (.wsf) instead of VBScript (.vbs) or JScript (.js) files.

For one thing you can mix VBScript, JScript, or anything else you might have installed - say Perl or Rexx.

For another you can declare objects so you don't need to CreateObject them, and this gives your script a reference to the type library, which among other things brings in all the constants for the object. Great for using ADO, which uses LOTS of constants.

These objects don't need to be set to Empty before exiting either. No more memory leaks!

Example:

<job>
<object id=&quot;fso&quot; progid=&quot;Scripting.FileSystemObject&quot;/>
<script language=&quot;VBScript&quot;>

Dim f

Set f = fso.CreateTextFile(&quot;c:\\testfile.txt&quot;, true)
f.WriteLine &quot;This is a test.&quot;
f.Close

</script>
</job>

Check the online Help, there is a LOT of good information in there.

 

[sfvb]

Yes, Dilettante is right. It is considered bad form to hard code these "magic" numbers.

I took this from some existing code, where the filename, and the (read, write, append) constant were passed into the routine. If I would have posted the routine, as it existed, it would not have made much sense.

In the future, I will try to use a little more effort when responding to a question.

Steve

 

[Guest_imported]

for the txtin.readfile - is there txtin.writefile or something of hte sort

 

[sfvb]

Yes. Here's an example from the MSDN Libarary.

Function TextStreamTest
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso, f, ts
Set fso = CreateObject("Scripting.FileSystemObject&quot
fso.CreateTextFile "test1.txt" ' Create a file.
Set f = fso.GetFile("test1.txt&quot
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
ts.Write "Hello World"
ts.Close
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
TextStreamTest = ts.ReadLine
ts.Close
End Function

When opening a TextStream the tristate values are optional.
The default is 0. There meanings are:
TristateUseDefault, -2, Opens the file using the system default.
TristateTrue, -1, Opens the file as Unicode.
TristateFalse, 0, Opens the file as ASCII.

Steve