.NET文件读写-优快云博客

本文介绍了一种在Visual Basic中实现文件读取和记录日志的方法。通过使用FileStream和StreamReader组件，可以有效地读取文件内容，并将其按行分割以便进一步处理。此外，还提供了一个简单的日志记录子程序，用于向指定文件追加字符串。

     '#############################################################
    '変換配置ファイル読み込む
    '返回参数：strReadLine
    '#############################################################
    Public Function FileRead(ByVal filename As String, ByRef strReadLine As String()) As Boolean
        Dim strRead As String
        FileRead = False

On Error GoTo Err

Dim fs As New FileStream(filename, FileMode.Open)
Dim strReader As New StreamReader(fs, Encoding.Default)

        'ファイル読む
        strRead = strReader.ReadToEnd
        strReadLine = Split(strRead, ControlChars.CrLf)
        strReader.Close()
        FileRead = True

        Exit Function
Err:
        errlog = errlog & Now & " ファイル読み込むエラー" & vbCrLf
        errlog = errlog & Now & " ファイル名前：" & filename & vbCrLf

    End Function
    '*******************************************************************
    'ファイル作成
    '*******************************************************************
    Sub LogWrite(ByVal filename As String, ByVal str As String)

        Dim StreamWriter As New StreamWriter(filename, False, Encoding.Default)
        On Error GoTo ERR
        StreamWriter.Write(str)
        StreamWriter.Close()
        Exit Sub
ERR:
    End Sub