テキストボックスが初期化されない

解決

みっち  2008-09-25 20:47:01  No: 145205  IP: 192.*.*.*

こんにちは。おしえてください；；
vb.net2003でweb開発をしています。

ボタンをクリックしたときにexcelのダウンロード処理を
行っているのですが、そのあと、テキストの初期化をしても
テキストの内容が消えずに困っています。

Private Sub btnDownLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpLoad.Click

    Dim fi As FileInfo          'ファイル情報取得オブジェクト
    Dim si As FileStream        'ダウンロードファイルストリーム

    Response.ContentType = "Application/Vnd.MS-Excel"
    Response.Buffer = True
    Response.Clear()

    flItem = New FileInfo("C:\temp\temp_sample.xls")
    Dim Buffer(flItem.Length) As Byte
    stItem = New FileStream("C:\temp\temp_sample.xls", FileMode.Open)

    'StreamからBufferへ読み込む
    si.Read(Buffer, 0, si.Length)
    si.Close()
    fi.Delete()

    Response.AddHeader("Content-Disposition", "attachment; filename=" & HttpUtility.UrlEncode("sample.xls"))
    Response.BinaryWrite(Buffer)

    'メッセージクリア
    Me.txtMsg.Text = String.Empty

    '終了処理***
    flItem = Nothing

End Sub


txtMsgをクリアしてるはずなのですが、どうしてもtxtMsgの内容が
残っています。
どなたか原因、対策ご教授願えないでしょうか？

編集 削除
我龍院  2008-09-26 08:14:11  No: 145206  IP: 192.*.*.*

'メッセージクリア
Me.txtMsg.Text = String.Empty
の後、
Sub Page_Load(・・・）
でブレークをかけて、ポストバックの結果と、その後の遷移を見たらいかがですか。

編集 削除
みっち  2008-09-26 09:24:51  No: 145207  IP: 192.*.*.*

ありがとうございます。
ブレークポイントをはったのですが入ってきません。
Aspx側でonclickが何かをしていしないといけないのでしょうか？

編集 削除
我龍院  2008-09-26 09:56:03  No: 145208  IP: 192.*.*.*

とりあえず
 Me.txtMsg.Text = String.Empty
以外を全てコメントアウトしたらどうなります？

編集 削除
みっち  2008-09-26 10:10:39  No: 145209  IP: 192.*.*.*

ありがとうございます。
消したらテキストは初期化されました。
ページロード呼ばれます。

編集 削除
YuO  2008-09-26 10:37:35  No: 145210  IP: 192.*.*.*

onclick側で対応しないことには無理です。

あくまで，HTTPのレスポンスはExcelデータなので，HTTPレスポンスに，プログラムで
Me.txtMsg.Text = String.Empty
をしたことは含まれません。

編集 削除
subaru  2008-09-26 11:19:56  No: 145211  IP: 192.*.*.*

提示のコードだと ContentType が Excel になっているから
バインドされたテキストのHTML要素は、
出力された Excel ファイルの末尾に追記されてたりしませんかね。

編集 削除
YuO  2008-09-26 12:09:03  No: 145212  IP: 192.*.*.*

なるほど，無駄にレスポンスに含まれているわけですね。
となると，Excelデータとしてもダメなんじゃ……。

テキストでない物を返したい場合は，Response.Endをちゃんと呼び出しましょう。

編集 削除
みっち  2008-09-26 12:44:56  No: 145213  IP: 192.*.*.*

みなさんありがとうございます。
エクセルの中身は期待通りのものが入っています
Response.endをつけると、スレッドを中止しようとしました。というエラーがでます。
なんとかテキストを初期化する方法はないのでしょうか？

編集 削除
subaru  2008-09-26 15:44:04  No: 145214  IP: 192.*.*.*

>エクセルの中身は期待通りのものが入っています
>Response.endをつけると、スレッドを中止しようとしました。というエラーがでます。
どのように確認されたかわかりませんがデータの書き込みを終えた時点で
Response.Endを呼ばないとバイナリの内容は保障できないように思います。

>なんとかテキストを初期化する方法はないのでしょうか？
代替案になりますがテキスト初期化後にClientScript.RegisterStartupScriptで
再度ポストバックまたはリダイレクトするスクリプトを登録し、
そちらのページで処理するとかはどうでしょうか。

編集 削除
みっち  2008-09-27 06:22:04  No: 145215  IP: 192.*.*.*

ありがとうございます。
ClientScript.RegisterStartupScriptなんですが、
Me.txtMsg.Text = String.Empty
を実現するには具体的にどうすればよいのでしょうか？
いろいろ調べてみましたがピンとこないもので；；

編集 削除
subaru  2008-09-28 19:48:06  No: 145216  IP: 192.*.*.*

一回の処理では１ページ分の出力（今回の場合はHTMLのページかエクセルのデータのどちらか一方）
しかできないから、単に処理を２回に分けたらどうかということです。

もしエクセルのダウンロードのみを行うページを別に用意してそのファイル名を
download.aspxとするなら、次のようなコードになるでしょう

Private Sub btnDownLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpLoad.Click
    'メッセージクリア
    Me.txtMsg.Text = String.Empty
    
    ClientScript.RegisterStartupScript( _
     Me.GetType(), "download", "<script type=""text/javascript"">location.href = ""download.aspx""</script>")
End Sub

編集 削除
みっち  2008-09-28 22:00:58  No: 145217  IP: 192.*.*.*

ありがとうございます。
早速試してみます。

ところで、vb.net2003でClientScriptってあります？
ひょっとして2005からですかね？
RegisterStartupScriptというのはあるのですが別物でしょうか？

編集 削除
みっち  2008-10-07 15:16:22  No: 145218  IP: 192.*.*.*

すみません、お返事遅くなりました。

RegisterStartupScriptでうまくいきました。
本当に助かりました。
ありがとうございます。

編集 削除