Datei herunterladen _ mit format=csv

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Alex-Digital.

    Datei herunterladen _ mit format=csv

    Heyho,
    Ich habe ein Problem nämlich möchte ich eine Datei herunterladen welche auf folgendem Beispiellink existiert:

    dasistmeinserver.com/report/table_export?format=csv

    Wenn ich auf diese Seite im Browser navigiere startet direkt der download bzw. kommt die Meldung wollen sie die Datei öffnen / Speichern.

    Wenn ich aber nun versuche mittels normalen HTTP Request herunterzuladen lädt er nicht die Tabelle sondern die Seite herunter die den export ausführt..
    Wie bekomme ich nun aber die csv Datei heruntergeladen? :D

    Mein Code sieht wie folgt aus:

    VB.NET-Quellcode

    1. Dim lRequest As Net.HttpWebRequest
    2. Dim lResponse As Net.HttpWebResponse
    3. Dim lUrl As New Uri("https://dasistmeinserver.com/report/table_export?format=csv")
    4. Dim lLocal As String = "test.csv"
    6. lRequest = CType(Net.HttpWebRequest.Create(lUrl), Net.HttpWebRequest)
    8. Try
    9. lResponse = CType(lRequest.GetResponse(), Net.HttpWebResponse)
    11. If lResponse.StatusCode = Net.HttpStatusCode.OK Then
    12. Dim lReader As IO.Stream = lResponse.GetResponseStream()
    13. Dim lWriter As New IO.FileStream(lLocal, IO.FileMode.Create)
    15. Dim lLength As Long
    16. Dim lBytes(256) As Byte
    18. Do
    20. lLength = lReader.Read(lBytes, 0, lBytes.Length)
    21. lWriter.Write(lBytes, 0, CInt(lLength))
    23. Loop While lLength > 0
    25. lWriter.Close()
    26. lReader.Close()
    28. Else
    29. MsgBox(String.Format("Server returned: {0} {1}", _
    30. lResponse.StatusCode, lResponse.StatusDescription))
    32. End If
    33. Catch ex As Exception
    34. MsgBox(ex.Message, MsgBoxStyle.Critical)
    36. End Try


    Dies funktionier jedoch nur wenn die Datei auf dem Server liegt also der URL wiefolgt aussehen würde:
    dasistmeinserver.com/report/table.csv

    Ich hoffe es kann mir wer helfen :)

    Grüße xkiopelx
    C & P Bremse FTW <33

    xkiopelx schrieb:

    welche auf folgendem Beispiellink existiert:
    Dieser Link funktioniert leider nicht.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ja ist ja auch nur ein beispiel^^

    Das wäre der Originallink:

    mxt.smsglobal.com/report/sms-outgoing-export?format=csv

    jedoch muss man dafür angemeldet sein..
    falls es wer testen will:

    hier kann man sich registrieren:

    smsglobal.com/sign-up/

    Nach längerem googlen bin ich auf folgenden Code gestoßen:

    VB.NET-Quellcode

    1. Public Sub ServeReport(ByVal URL As String, _
    2. ByVal Directory As String, ByVal Filename As String)
    4. Dim f As New Security.Permissions.FileIOPermission(PermissionState.None)
    5. Dim fs As FileStream
    7. If Not System.IO.Directory.Exists(Directory) Then
    8. System.IO.Directory.CreateDirectory(Directory)
    9. End If
    11. DownloadWebFile(URL, Directory & Filename)
    13. fs = File.Open(Directory & Filename, FileMode.Open)
    15. Dim bytBytes(CInt(fs.Length)) As Byte
    16. fs.Read(bytBytes, 0, CInt(fs.Length))
    17. fs.Close()
    19. Response.AddHeader("Content-disposition", _
    20. "attachment; filename=" & Filename)
    21. Response.ContentType = "application/octet-stream" 'wäre bei mir Content-Type: text/csv
    22. Response.BinaryWrite(bytBytes)
    24. f.AllLocalFiles = FileIOPermissionAccess.AllAccess
    25. File.Delete(Directory & Filename)
    26. End Sub
    29. Public Shared Sub DownloadWebFile(ByVal URL As String, _
    30. ByVal DestFilename As String)
    32. 'Create a web request to attach to the remote file
    33. Dim WebFile As System.Net.WebRequest
    35. 'Create a file stream for writing the file to the local filename
    36. Dim LocalFile As System.IO.FileStream
    38. 'Create some working variables for the copy process
    39. Dim Buffer(16384) As Byte
    40. Dim BytesRead As Long
    42. 'Open a WebRequest stream to the source file
    43. WebFile = System.Net.WebRequest.Create(URL)
    45. 'Credentials are required, pass the defaults
    46. WebFile.Credentials = System.Net.CredentialCache.DefaultCredentials
    48. 'Create the local file
    49. LocalFile = New IO.FileStream(DestFilename, IO.FileMode.Create)
    51. 'Download the file in 16k chunks
    52. With WebFile.GetResponse.GetResponseStream
    53. Do
    54. BytesRead = .Read(Buffer, 0, 16384)
    55. LocalFile.Write(Buffer, 0, CInt(BytesRead))
    56. Loop Until BytesRead = 0
    57. .Close()
    58. End With
    60. WebFile = Nothing
    62. 'Force all data out of memory and into the file before closing
    63. LocalFile.Flush()
    64. LocalFile.Close()
    65. LocalFile = Nothing
    66. End Sub


    Problem ist, ich verstehe von dem Code eher weniger und finde nicht heraus was das Response machen soll bzw. ist nicht deklariert. die response meiner normalen webrequest hat nicht diese Attribute.. Bin noch eher neu auf dem Gebiet.

    Fehler liegt nur in der ersten Methode bei Response. Kann es sein dass der Code für ASP.Net oder so ist?
    C & P Bremse FTW <33

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „xkiopelx“ ()

    Hallo,

    Google: vb.net download file web request - 2. Treffer: stackoverflow.com/questions/67…brequest-to-download-file

    Weiß nicht, ob der bei deiner Seite auch geht, aber der Code ist jetzt nicht der schwerste, weil wenn man ein bisschen Englisch kann, dann geht das schon.

    Ich hoffe, ich konnte dir helfen.

    MFG

    Alex-Digital :D
    ~ Alex-Digital :D

    if(!Internet.VBP.Get<User>("Alex-Digital").IsOnline) this.Close(); :D

Facebook