ASP.Netのお勉強

ファイル読み込み＠ASP.Net

ファイル読み込みを行います。

ボタンを押し時に、ファイルを読み込んで、
ファイル内容をTextBoxに表示します。

画面にボタンとTextBoxを配置します。
TextBoxは、TextModeをMultiLineとします。

ボタン実行時の処理を記述します。
StreamReaderを作成します。
ファイルのパスと、エンコードを指定します。

ReadToEndにて全行取得できます。
ReadLineにて1行ずつ取得が可能です。

取得したファイルの内容をTextBoxにセットします。

●aspx

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>ファイル読み込み</title>
</head>
<body>
    <form id="form1" runat="server">
        <asp:Button ID="Button1" runat="server" Text="Button" /><br />
        <asp:TextBox ID="TextBox1" runat="server" Height="250px" TextMode="MultiLine" Width="500px"></asp:TextBox>
    </form>
</body>
</html>


●aspx.vb

Imports System.IO

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim str As String

        Try
            'System.IO.StreamReader
            Using streamReader As StreamReader = New StreamReader("c:\test.txt", System.Text.Encoding.GetEncoding("UTF-8"))
                str = ""

                '全行読み込み
                'str = streamReader.ReadToEnd

                '1行読み込み
                While Not (streamReader.EndOfStream)
                    str += streamReader.ReadLine() + vbCrLf
                End While

                Me.TextBox1.Text = str
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
End Sub
End Class


Copyright (C) ASP.Netのお勉強. All Rights Reserved.