У меня есть простая веб-страница, которая генерирует CSV-файл, который я хочу, чтобы пользователь мог загрузить после завершения его создания.
Вот краткий обзор моей ситуации:
- Файл CSV может быть создан в памяти или на диске.Не имеет значения для меня.
- Как только я закончу передачу файла CSV, я не хочу, чтобы он продолжал находиться на диске.
- Я пробовал различный код, используя Response.WriteFile, .TransmitFile, .BinaryWrite и .Write, но безрезультатно.
- Когда я говорю «безрезультатно» , я имею в виду, что вместо передаваемого файла CSV япередача содержимого файла CSV ПЛЮС НА ОКРУЖАЮЩУЮ СРЕДНЮЮ СТРАНИЦУ!
- Я действительно сбит с толку, так как у меня есть другая страница, которая делает то же самое,но с PDF-файлами, упакованными в zip-файл, и это прекрасно работает.
- Я действительно разработчик настольных систем Windows, но я пытаюсь стать веб-разработчиком.(Извините, если это глупый вопрос или вопрос новичка.)
Вот код, который у меня работает для отправки .zip, содержащего файлы PDF:
Protected Sub SaveReportsButton_Click(sender As Object, e As EventArgs) Handles SaveReportsButton.Click
'' The .zip file is created elsewhere
Dim fullPath As String = Server.MapPath("~/Reports/" & Session.SessionID & ".zip")
Response.ContentType = "APPLICATION/OCTET-STREAM"
Dim fileToDownload As New FileInfo(fullPath)
Dim disHeader As String = "Attachment; Filename=""Reports.zip"""
Response.AppendHeader("Content-Disposition", disHeader)
Response.Flush()
Response.WriteFile(fileToDownload.FullName)
End Sub
Воткод, который я пытаюсь заставить работать, чтобы передать файл CSV:
Protected Sub saveButton_Click(sender As Object, e As System.EventArgs) Handles SaveOutput.Click
Dim list As List(Of String) = {"000000000", "000000000", "000000000"}.ToList()
Dim sb As New Text.StringBuilder
For i As Integer = 0 To list.Count - 1
Dim str As String = list(i)
sb.Append(str)
If i < list.Count - 1 Then
sb.Append(",")
End If
Next
Dim dirPath As String = Server.MapPath("~/Output/" & Session.SessionID)
IO.Directory.CreateDirectory(dirPath)
Dim filePath As String = Server.MapPath("~/Output/" & Session.SessionID & "/Output.csv")
IO.File.WriteAllText(filePath, sb.ToString())
Response.ContentType = "text/csv"
Dim disHeader As String = "Attachment; Filename=""Output.csv"""
Response.AppendHeader("Content-Disposition", disHeader)
Response.Flush()
Response.WriteFile(filePath)
End Sub
Как я уже сказал, я хочу ограничить файлы, созданные и оставленные на сервере этой страницей, поэтому я хотел бы получитьизбавиться от файла CSV, как только я закончу с ним.
Любая помощь?
Спасибо !!!