Openステートメントでファイル入出力 - おのれ鍋奉行が！

Openステートメントでファイル入出力

概要

タイトルのまんま。

元ネタ：

• ＠IT総合トップ / テクノロジー / Insider.NET / 連載：VB.NETプログラミング / 第7回 ファイル入出力（前編）

前提条件

• 新しいwebサイトの作成

手順

default.aspx を以下のようにすると実現できる。

Partial Class _Default
    Inherits System.Web.UI.Page
    Private Sub Form1_Load(ByVal sender As System.Object _
    , ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fileno As Integer
 
        fileno = FreeFile()
 
        ' ファイルに書き込み
        FileOpen(fileno, "c:\test.txt", OpenMode.Output)
        Print(fileno, "Test")
        PrintLine(fileno, " Data")
        PrintLine(fileno, "テストデータ")
        PrintLine(fileno, "ファイル番号は", fileno)
        PrintLine(fileno, "A", SPC(1), "B", TAB(8), "C")
        PrintLine(fileno, True, False)
        WriteLine(fileno, True, False)
        PrintLine(fileno, Today)
        WriteLine(fileno, Today)
        FileClose(fileno)
 
        ' ファイルから読み込み
        Dim s As String
        FileOpen(fileno, "c:\test.txt", OpenMode.Input)
        While Not EOF(fileno)
            s = LineInput(fileno)
            Response.Write(s)
        End While
        FileClose(fileno)
    End Sub
 
End Class
 

実行するとCドライブの中に、"test.txt" というファイルが作成される。
かつ、その中身が読み出され、以下のように表示される。

not found (230.jpg)