[問題]有關匯出word文件的問題

[wangdapi (知名不具)]

            Dim FileName As String = Server.UrlPathEncode("123.doc")
            Response.Clear()
            Response.AddHeader("content-disposition", "attachment;filename=" & FileName)
            Response.ContentEncoding = System.Text.Encoding.GetEncoding("big5")
            Response.ContentType = "application/vnd.ms-word"
            Response.Charset = ""

            Dim MyDoc As String
            Dim a2 As StreamReader = New StreamReader(Server.MapPath("123.htm"), Encoding.GetEncoding("big5"))
            MyDoc = a2.ReadToEnd.Replace("!ApplyReason!", ApplyReason)
            MyDoc = a2.ReadToEnd.Replace("!Sechedule!", Sechedule)
            Response.Write(MyDoc)
            a2.Close()
            Response.End()

以上這一段程式是寫說 按下一個btn之後，會產生1個叫123.doc的檔案

內容是由123.htm裡面是table加自訂標籤組合而成

現在遇到的問題是123.htm這個檔案使用File.Exists檢查存在

可是1：使用StreamReader卻讀不到123.htm
可是2：匯成word檔的時候，卻是個空白的word檔。

請問版大，到底是出了什麼問題?

===========感謝Laluth大========================

在第2次MyDoc =a2.ReadToEnd.......

改成MyDoc= MyDoc......即可，

因為第二次的a2已經被清空，

所以再把 mydoc =a2.....的話，就會變成空值

所以我的word檔就會輸出空白。






--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.240.174.182
推 LaPass:VB嗎? 我不熟....
→ wangdapi:那如果遇到 可是1、可是2 的問題，用c的話會怎麼處理呢?
※ 編輯: wangdapi        來自: 111.240.174.182      (12/14 15:10)