app.config文件的更新问题

[byj2001329]

自己做了个自动更新程序，是通过把文件保存到sql数据库，再从客户端下载实现的。
现在其它文件没有问题，但exe.config文件更新后，启动程序文件说配置文件出错，把config配置文件用记事本打开，直接保存，就没有问题了。请问如何解决？

[kkun_3yue3]

编码?

[cpp2017]

保存的时候编码不对，

[chuying718]

路过

[farwy]

记事本编码格式是ANSI编码，你看你的项目是什么编码。

[wuyq11]

应该是编码问题，更新exe.config时通过streamwriter使用UTF-8编码打开再保存

[rocker0325]

编码格式不对吧。。

[byj2001329]

我打开文件和保存时都判断了encoding，但还是不行

[gongsun]

...

[oec2003]

统一编码格式

[jack43349489]

编码 编码 ！

[jane_zhao]

<?xml version="1.0" encoding="utf-8" ?>
config文件第一句应该就是这句吧。
然后将你程序里编码也统一成utf8
System.Text.Encoding.UTF8

[byj2001329]

使用下面的方法转化文件，从msgbox可以知道是用什么编码来执行的，用了utf8和统一码都不行，还是得用记事本或其它文本编辑器打开保存下就可以了

'读取文件到字节流,失败则返回Nothing
Public Shared Function ConvertFileToBytes(ByVal FileName As String, ByVal encode As System.Text.Encoding) As Byte()
Dim Result() As Byte
Dim fs As FileStream
If File.Exists(FileName) Then
Try
MsgBox(FileName + " " + encode.ToString)
fs = New FileStream(FileName, FileMode.Open)
Result = New Byte(fs.Length) {}
Dim SwFromFileStreamDefaultEnc As BinaryReader = New BinaryReader(fs, encode)
SwFromFileStreamDefaultEnc.Read(Result, 0, fs.Length)
SwFromFileStreamDefaultEnc.Close()
Catch ex As Exception
Result = Nothing
End Try
Else
Result = Nothing
End If
Return Result
End Function

'读取字节流生成文件。
Public Shared Function ConverBytesToFile(ByVal RootPath As String, ByVal FileName As String, ByVal FileData As Byte()) As Boolean
Dim Result As Boolean
Dim s As Integer
Dim fs As FileStream = Nothing
Dim SubPath As String
Try
'todo建目前不存在的文件夹
s = FileName.LastIndexOf("\")
If s >= 0 Then

SubPath = RootPath & IIf(RootPath.EndsWith("\"), "", "\") & FileName.Substring(0, s) & "\"
FileName = FileName.Substring(s + 1)
If Not Directory.Exists(SubPath) Then
Directory.CreateDirectory(SubPath)
End If
Else
SubPath = RootPath & IIf(RootPath.EndsWith("\"), "", "\")
End If
If Not Directory.Exists(SubPath) Then
Directory.CreateDirectory(SubPath)
End If
fs = New FileStream(SubPath & FileName, FileMode.OpenOrCreate)

fs.Write(FileData, 0, FileData.Length)
fs.Flush()
Result = True
Catch ex As Exception
Result = False
'忽略错误
Finally
If Not fs Is Nothing Then
fs.Close()
End If
End Try
Return Result
End Function

[byj2001329]

上面的第二部分贴错了，是这个
'读取字节流生成文件。
Public Shared Function ConverBytesToFile(ByVal RootPath As String, ByVal FileName As String, ByVal FileData As Byte(), ByVal encode As Encoding) As Boolean
Dim Result As Boolean
Dim s As Integer
Dim fs As FileStream = Nothing
Dim SubPath As String
Try
'todo建目前不存在的文件夹
s = FileName.LastIndexOf("\")
If s >= 0 Then

SubPath = RootPath & IIf(RootPath.EndsWith("\"), "", "\") & FileName.Substring(0, s) & "\"
FileName = FileName.Substring(s + 1)
If Not Directory.Exists(SubPath) Then
Directory.CreateDirectory(SubPath)
End If
Else
SubPath = RootPath & IIf(RootPath.EndsWith("\"), "", "\")
End If
If Not Directory.Exists(SubPath) Then
Directory.CreateDirectory(SubPath)
End If
fs = New FileStream(SubPath & FileName, FileMode.OpenOrCreate)
'fs.Write(FileData, 0, FileData.Length)
'fs.Flush()

Dim SwFromFileStreamDefaultEnc As BinaryWriter = New BinaryWriter(fs, encode)
SwFromFileStreamDefaultEnc.Write(FileData, 0, FileData.Length)
SwFromFileStreamDefaultEnc.Flush()
SwFromFileStreamDefaultEnc.Close()
Result = True
Catch ex As Exception
Result = False
'忽略错误
Finally
If Not fs Is Nothing Then
fs.Close()
End If
End Try
Return Result
End Function

[lxs25451413500]

...

[appleller]

...

[SanDy_O]

...

[byj2001329]

怎么没有实质性回复啊

[xunis]

至此 我也认为编码的问题 这问题我只经历过编码不对 要么楼主好好检查检查 或请经验丰富的同事之类的看看 现实和网络看问题 毕竟有疏漏

[byj2001329]

再顶一次

[yanlongwuhui]

应该是编码问题，可以试试转成BASE64然后保存在数据库中，取的时候转换回来后再保存成文件