vb.net 修改html6,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

总结

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。

小编个人微信号 jb51ccc

喜欢与人分享编程技术与工作经验，欢迎加入编程之家官方交流群！