请问怎么解决 导出的CSV文件中出现乱码?????

[LoveInChongQing]

Protected Sub BTN_CSV_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN_CSV.Click
'CSV処理
Dim OutFilePath, OutFileName As String
Dim dt As System.Data.DataTable
dt = Session("IPD003_DT")

OutFileName = Format(Today, "yyyyMMdd") & Format(Now, "hhmmss") & ".csv"
OutFilePath = Environment.GetEnvironmentVariable("TEMP") & "\" & OutFileName

PutCSVExcel2(Me.Migrated_DETAIL2, dt, OutFilePath, Me)

Response.Clear()
Response.AppendHeader("Content-disposition", String.Format("attachment;filename={0}", OutFileName))
Response.WriteFile(OutFilePath)
Response.End()
End Sub

[daisylh]

參考http://forums.microsoft.com/china/ShowPost.aspx?PostID=3136056&SiteID=15一下
文件的名稱需要作處理

[yudi010]

导出的时候进行字节转化

[LoveInChongQing]

从数据库获取的数据并不是乱码,在写入到CSV时出现的乱码.
Public Function PutCSVExcel2(ByVal DGrid As System.Web.UI.WebControls.DataGrid, ByVal dt As System.Data.DataTable, ByVal OutFileName As String, ByVal HtWebPage As Page) As String
Try
Dim Sr As String, fno As Integer
Dim Count As Integer
Dim i, j As Integer
Dim wFLG As Integer

fno = FreeFile()

FileOpen(fno, OutFileName, OpenMode.Output, OpenAccess.Write)

Count = DGrid.Columns.Count
wFLG = 0
Sr = ""

For i = 1 To DGrid.Columns.Count - 1
If wFLG = 0 Then
Sr = """" & DGrid.Columns(i).HeaderText & """"
wFLG = 1
Else
Sr = Sr & ",""" & DGrid.Columns(i).HeaderText & """"
wFLG = wFLG + 1
End If
Next i

PrintLine(fno, Sr)

For i = 0 To dt.Rows.Count - 1
wFLG = 0
Sr = ""
For j = 0 To dt.Columns.Count - 1
If wFLG = 0 Then
Sr = Sr & """" & Replace(dt.Rows(i).Item(j), " ", " ") & """"
wFLG = 1
Else
Sr = Sr & ",""" & Replace(dt.Rows(i).Item(j), " ", " ") & """"
wFLG = wFLG + 1
End If
Next j
PrintLine(fno, Sr)
Next
FileClose(fno)
Catch

End Try

Return Nothing
End Function

[exing]

输出文件的编码要和文件中的文字编码一致

[HimeTale]

 
Dim bytInput As Byte() = Me.FileUpload.FileBytes 
'编码转换
Dim strFileContent As String = Encoding.[Default].GetString(bytInput) 

Dim strFileContentRow As String() = strFileContent.Split(strSplit, StringSplitOptions.RemoveEmptyEntries) 

[LoveInChongQing]

问题还是没解决啊.我不可能去一个字段一个字段的转换编码吧...
有没有更好的办法,请高手指教.

[knowledge_Is_Life]

都是很好的建议! 值得学习