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

梦里梦外; 2022-06-18 01:25 287阅读 0赞

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

解决方案：

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

对于有一个.的文件名如：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