想通过批处理文件,修正某些文件的内容。
解决方案:
(注意都不是删除原文件)
对于有一个.的文件名如: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