大変お世話になっています。
今回はＣＳＶでのダウンロード／アップロードについて教えて下さい。
このフォーラムでいいのか分りませんが宜しくお願いします。
テーブルの内容をＣＳＶ形式でダウンロードし、ＥＸＣＥＬ表示した時に以下のような状態になってしまい苦慮しております。
１．全角で"１"と入っている項目が半角の"1"になる
２．前ゼロがあった場合、ゼロがなくなってしまう。
"0001" → "1"になる
このようになるのを防ぐ為、ダウンロード項目の先頭に’（アポストロフィ）を付与した上でダウンロードした結果、ＥＸＣＥＬ表示上は"’１"となってしまいます。
又、ＣＳＶ内に'（アポストロフィ）が入った状態でアップロードをするとパイプエラーが出てしまいます。
以下コード記載
○ダウンロード
Protected Sub btn_DL_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim dv As DataView = CType(SqlDataSource5.Select(DataSourceSelectArguments.Empty), DataView)
Dim dt As DataTable = dv.ToTable("XXXXXX")
Dim sb As StringBuilder = New StringBuilder()
' rows
For Each row As DataRow In dt.Rows
Dim arr As ArrayList = New ArrayList(row.ItemArray)
For i As Integer = 0 To arr.Count - 1
Dim val As String = arr(i).ToString
If (val.IndexOf(",") <> -1) OrElse (val.IndexOf(vbLf) <> -1) Then
val = """" & val.Replace("""", """""") & """"
End If
If val = "" Then
arr(i) = val
Else
arr(i) = """" & val & """"
End If
Next
Dim line As String = String.Join(",", CType(arr.ToArray(GetType(String)), String()))
sb.Append(line & vbCrLf)
Next
ResponseEncoding = "shift-jis"
Response.ContentType = "text/csv"
Response.AddHeader("Content-Disposition", "attachment; filename=Test.csv")
Response.Write(sb.ToString())
Response.End()
End Sub
○アップロード
Protected Sub btn_upFile_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim postfile As HttpPostedFile = FileUpload1.PostedFile
Dim uppath As String = Server.MapPath("~/App_data/data/" & Path.GetFileName(postfile.FileName))
postfile.SaveAs(uppath)
Dim parser As New TextFieldParser(uppath, System.Text.Encoding.GetEncoding("SHIFT_JIS"))
parser.TextFieldType = FieldType.Delimited
parser.SetDelimiters(",")
While Not parser.EndOfData
Dim row As String() = parser.ReadFields() ' 1行読み込み
'ｴﾗｰﾁｪｯｸ、xxxxx存在ﾁｪｯｸ
.
.
.
if ｴﾗｰ無し then
'xxxxx追加処理
add_xxxxx_master(row(0), row(1), row(2), row(3), row(4), row(5), row(6), row(7))
end if
End While
Call parser.Close()
End Sub
この状況の打開策等ありましたらご教授下さい。WIN XP SP2;EXCEL2002です。
宜しくお願いします。
