「Openステートメントでファイル入出力」の編集履歴（バックアップ）一覧はこちら

Openステートメントでファイル入出力 - (2008/02/04 (月) 14:59:47) の１つ前との変更点

追加された行は緑色になります。

削除された行は赤色になります。

// 現在のページ名
*&this_page()　

**概要
タイトルのまんま。

**前提条件
-[[新しいwebサイトの作成]]

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

#highlight(vb.net){
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
}

img(.jpg)

// 現在のページ名
*&this_page()　

**概要
タイトルのまんま。

**前提条件
-[[新しいwebサイトの作成]]

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

#highlight(vb.net){
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
}

img(.jpg)