ぷろぐらむノート

テキストファイルの読み込み方法について記載します。

File.ReadAllLines メソッドを使用し Stringとして読み込む

Dim sFilePath As String = "C:\work\myfile.txt"

'テキストファイルを全て読み込む
Dim str As String = System.IO.File.ReadAllText(sFilePath, System.Text.Encoding.Default)

 

File.ReadAllLines メソッドを使用し 文字列配列に読み込む

Dim sFilePath As String = "C:\work\myfile.txt"

'行ごとに配列として、テキストファイルを読み込む
Dim lines As String() = System.IO.File.ReadAllLines(sFilePath, System.Text.Encoding.Default)

 

StreamReader.ReadToEnd メソッドを使用し Stringとして読み込む

Dim sr As New System.IO.StreamReader("C:\work\myfile.txt", System.Text.Encoding.Default)
Dim str As String = sr.ReadToEnd()
sr.Close()

MessageBox.Show(str)

 

StreamReader.ReadLine メソッドを使用し List<Strung>に読み込む

Dim lines As New List(Of String)
Dim sr As New System.IO.StreamReader("C:\work\myfile.txt", System.Text.Encoding.Default)

While (SR.Peek() >= 0)
    Dim s As String = SR.ReadLine()
    lines.Add(s)
End While
SR.Close()

 

ファイルを削除するのではなく、ゴミ箱に移動する方法を記載します。

My機能を使用する方法

Dim sFilePath As String = "C:\work\myfile.txt"
 
 My.Computer.FileSystem.DeleteFile(sFilePath,
            FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)

 

FileIO.FileSystem クラスを使用する方法

Dim sFilePath As String = "C:\work\myfile.bak"

 FileIO.FileSystem.DeleteFile(sFilePath,
       FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)