' Replace all End Of Line Delimiters with CRLF
Dim newfile As New System.IO.StreamReader(CopySource & System.IO.Path.GetFileName(file))
Dim data As String
data = newfile.ReadToEnd()
data = data.Replace(vbCrLf, vbLf)
data = data.Replace(vbCr, vbLf)
data = data.Replace(vbLf, vbCrLf)
newfile.Close()
Dim writer As New System.IO.StreamWriter(CopySource & System.IO.Path.GetFileName(file), False)
writer.Write(data)
writer.Flush()
writer.Close()
在每一行的结束处使用CRLF
最新推荐文章于 2023-11-07 10:43:55 发布