vb.net 修改文件内容的解决方案

想通过批处理文件，修正某些文件的内容。

解决方案：

（注意都不是删除原文件）

对于有一个.的文件名如：a.sln

   通过FileInfo类来写入新文件的内容。

  参照以下A方法

对于有二个.以上的文件名如：a.b.sln

 通过FileStream类和StreamWriter来 删除原始文件的内容再写入新文件的内容。

 参照以下B方法

 

 Public Shared Sub Write_File_A(ByVal str As StringBuilder)

        Dim fFile1 As FileInfo = Nothing
        fFile1 = New FileInfo(mstrPath)
        Dim sw As StreamWriter

          '修改文件属性：只读文件-》存档文件

        fFile1.Attributes = CType(FileAttribute.Normal, FileAttributes)

 

       ’利用CreateText()来写入新内容。AppendText()是在尾部追加内容。
        sw = fFile1.CreateText()
        'sw = fFile1.AppendText()
        sw.Write(str)
        sw.Flush()
        sw.Close()

       '修改文件属性：存档文件-》只读文件

        fFile1.Attributes = CType(FileAttribute.ReadOnly, FileAttributes)
        fFile1.Refresh()
        fFile1 = Nothing
    End Sub

    Public Shared Sub Write_File_B(ByVal str As StringBuilder)
        Dim fFile1 As FileInfo = Nothing

        fFile1 = New FileInfo(mstrPath)

    '修改文件属性：只读文件-》存档文件
        fFile1.Attributes = CType(FileAttribute.Normal, FileAttributes)
        fFile1.Refresh()
        fFile1 = Nothing

       ’利用FileMode.Truncate来删除文件内容。

        Dim Fs As FileStream = New FileStream(mstrPath, _
                                              FileMode.Truncate, FileAccess.ReadWrite, FileShare.None)

        Dim SwFromFileStream As StreamWriter = New StreamWriter(Fs, System.Text.Encoding.GetEncoding(strEncoding))

        SwFromFileStream.Write(str)
        SwFromFileStream.Flush()
        SwFromFileStream.Close()
        Fs.Close()

 

        '修改文件属性：存档文件-》只读文件

       fFile1 = New FileInfo(mstrPath)
        fFile1.Attributes = CType(FileAttribute.ReadOnly, FileAttributes)
        fFile1.Refresh()
        fFile1 = Nothing
    End Sub