Mit VB.net eine .txt von einem SFTP Server herunterladen, bearbeiten und wieder hochladen.

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Jimpo.

    Mit VB.net eine .txt von einem SFTP Server herunterladen, bearbeiten und wieder hochladen.

    Hallo,
    ich würde gerne eine Anwendung schreiben, wo von dem SFTP Server eine .txt heruntergeladen werden soll (in der .txt stehen die ganzen URLs, die blockiert werden sollen). Es soll eine Textbox geben, wo man eine URL, die blockiert werden soll, hineinschreiben kann (mit abfrage, ob die URL in der .txt schon vorhanden ist) und dann wird durch ein klick auf einnen Button die .txt, die heruntergeladen wurde überschrieben. Danach soll diese .txt wieder auf den SFTP Server geladen werden.

    So Sachen, wie einen neuen Text in eine .txt hinzuzufügen oder abzufragen, ob eine bestimmte URL existiert, bekomme ich noch hin. Bei mir scheiterts am herunter-/hochladen der Datei auf den SFTP Server.
    Ich habe schon viele Beiträge dazu gelesen und viel probiert. Leider verstehe ich vieles davon nicht. Einfach nur strg-c + strg-v bringt mich nicht viel weiter.

    Habe auch schon das hier gefunden: My.Computer.Network.DownloadFile("server", "pfad", "user", "password") das ist aber nur für FTP hilfreich.

    Ich freue mich über jede Hilfe ^^

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Menü Projekt -> unten (Dein Projektname)-Eigenschaften -> Reiter Verweise -> [Hinzufügen]
    oder per Rechtsklick auf das Projekt im Projektexplorer und da im Kontektmenü ganz unten auf Eigenschaften
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Nun, das Projekt kannst Du runterladen und dann selber kompilieren, sodass Du eine DLL erhältst. Oder Du installierst es als fertiges Paket via Nuget:
    Menü Extras -> Nuget-Paket-Manager -> Nuget-Pakete für Projektmappe verwalten… -> Reiter Durchsuchen, Suche nach SSH.NET -> anwählen, rechts Häkchen setzen, [Installieren] - und warten :rolleyes:
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Wenn ich auf den Reiter Durchsuchen gehe, kommt folgender Fehler:

    VB.NET-Quellcode

    1. [nuget.org] Fehler beim Abrufen von Metadaten aus der Quelle "https://azuresearch-ussc.nuget.org/query?q=&skip=0&take=26&prerelease=false&supportedFramework=.NETFramework,Version=v4.6.1&semVerLevel=2.0.0".
    2. Fehler beim Senden der Anforderung.
    3. Die zugrunde liegende Verbindung wurde geschlossen: Unerwarteter Fehler beim Senden..
    4. Unerwartetes Dateiende oder 0 Bytes vom Transportstream erhalten.
    5. [nuget.org] Fehler beim Abrufen von Metadaten aus der Quelle "https://azuresearch-ussc.nuget.org/query?q=&skip=0&take=26&prerelease=false&supportedFramework=.NETFramework,Version=v4.6.1&semVerLevel=2.0.0".
    6. Fehler beim Senden der Anforderung.
    7. Die zugrunde liegende Verbindung wurde geschlossen: Unerwarteter Fehler beim Senden..
    8. Unerwartetes Dateiende oder 0 Bytes vom Transportstream erhalten.




    Edit: Habe es mit der dll gemacht und es hat funktioniert! Danke!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Jimpo“ ()

    Ich habe jetzt bishen herumprobiert und so siehts bisher aus:

    VB.NET-Quellcode

    1. Imports Renci.SshNet.Sftp
    2. Imports Renci.SshNet
    3. Imports System.IO
    4. Public Class Form1
    5. ReadOnly xHost As String = TextBoxHost.Text
    6. ReadOnly xUsername As String = TextBoxUser.Text
    7. ReadOnly xPassword As String = TextBoxPassword.Text
    8. ReadOnly xRemoteDirectory As String = TextBoxRemoteDirectory.Text
    10. Sub Main()
    11. ListFiles()
    12. Console.ReadLine()
    13. Call UploadFile("TextBoxPathSave.Text", "TextBoxPathLoad.Text")
    15. Console.ReadLine()
    16. Call DownloadFile(TextBoxPathLoad.Text, TextBoxPathSave.Text)
    18. Console.ReadLine()
    19. Call RenameFile("Testdatei_123.zip", "Testdatei_456.zip")
    21. Console.ReadLine()
    22. Call DeleteFile("Testdatei_456.zip")
    24. Console.ReadLine()
    25. End
    26. End Sub
    28. Private Sub ListFiles()
    29. Try
    30. Dim sftp As New SftpClient(xHost, 22, xUsername, xPassword)
    31. sftp.Connect()
    32. Dim files = sftp.ListDirectory(xRemoteDirectory)
    33. Console.WriteLine("Dateiname" & vbTab & "Dateilänge" & vbTab & "zuletzt geändert")
    34. For Each file In files
    35. If file.IsDirectory = False Then Console.WriteLine(file.Name & vbTab & file.Length & vbTab & file.LastWriteTime)
    36. Next
    38. sftp.Disconnect()
    39. Catch e As Exception
    40. Console.WriteLine(Err.Description)
    41. Console.ReadLine()
    42. End Try
    43. End Sub
    45. Private Sub UploadFile(UploadFileName As String, RemoteFileName As String)
    46. Try
    47. Dim UploadFileSize As Long = (New FileInfo(UploadFileName)).Length
    48. Console.WriteLine("Starte Upload...")
    49. Using stream As New FileStream(UploadFileName, FileMode.Open)
    51. Using sFTP As New SftpClient(xHost, 22, xUsername, xPassword)
    52. sFTP.Connect()
    54. Dim aSyncr As IAsyncResult = sFTP.BeginUploadFile(stream, xRemoteDirectory & RemoteFileName)
    55. Dim sftpAsyncr As SftpUploadAsyncResult = CType(aSyncr, SftpUploadAsyncResult)
    57. While Not sftpAsyncr.IsCompleted
    58. Dim percent As Integer = CInt((sftpAsyncr.UploadedBytes / UploadFileSize) * 100)
    59. Console.Write(vbCr & "Upload {0}% ", percent)
    60. End While
    62. Console.WriteLine(vbCrLf & "Upload beendet")
    63. sFTP.EndUploadFile(aSyncr)
    64. End Using
    65. End Using
    67. Catch e As Exception
    68. Console.WriteLine(Err.Description)
    69. Console.ReadLine()
    71. End Try
    72. End Sub
    74. Private Sub DownloadFile(RemoteFileName As String, DestFilename As String, Optional RemoteFileSize As Long = 0)
    75. Try
    76. Console.WriteLine("Starte Download...")
    77. Using fStream As New FileStream(DestFilename, FileMode.Create)
    79. Using sFTP As New SftpClient(xHost, 22, xUsername, xPassword)
    80. sFTP.Connect()
    82. Dim aSyncr As IAsyncResult = sFTP.BeginDownloadFile(xRemoteDirectory & RemoteFileName, fStream)
    83. Dim sftpAsyncr As SftpDownloadAsyncResult = CType(aSyncr, SftpDownloadAsyncResult)
    85. While Not sftpAsyncr.IsCompleted
    86. If RemoteFileSize > 0 Then
    87. Dim percent As Integer = CInt((sftpAsyncr.DownloadedBytes / RemoteFileSize) * 100)
    88. Console.Write(vbCr & "Download {0}%", percent)
    89. Else
    90. Console.Write(vbCr & "Download bytes {0}", sftpAsyncr.DownloadedBytes)
    91. End If
    92. End While
    94. Console.WriteLine(vbCrLf & "Download beendet")
    95. sFTP.EndDownloadFile(aSyncr)
    96. fStream.Close()
    97. End Using
    98. End Using
    99. Catch e As Exception
    100. Console.WriteLine(Err.Description)
    101. Console.ReadLine()
    102. End Try
    103. End Sub
    105. Private Sub RenameFile(OldFileName As String, NewFileName As String)
    106. Try
    107. Dim sFTP As New SftpClient(xHost, 22, xUsername, xPassword)
    108. sFTP.Connect()
    109. sFTP.RenameFile(xRemoteDirectory & OldFileName, xRemoteDirectory & NewFileName)
    110. sFTP.Disconnect()
    111. Console.WriteLine("Datei {0} wurde in {1} umbenannt", OldFileName, NewFileName)
    112. Catch e As Exception
    113. Console.WriteLine(Err.Description)
    114. Console.ReadLine()
    115. End Try
    116. End Sub
    118. Private Sub DeleteFile(RemoteFileName As String)
    119. Try
    120. Dim sFTP As New SftpClient(xHost, 22, xUsername, xPassword)
    121. sFTP.Connect()
    122. sFTP.DeleteFile(xRemoteDirectory & RemoteFileName)
    123. sFTP.Disconnect()
    124. Console.WriteLine("Datei {0} wurde gelöscht", RemoteFileName)
    125. Catch e As Exception
    126. Console.WriteLine(Err.Description)
    127. Console.ReadLine()
    128. End Try
    129. End Sub
    131. Private Sub ButtonStart_Click(sender As Object, e As EventArgs) Handles ButtonStart.Click
    132. Main()
    133. End Sub
    134. End Class


    Bevor ich den ganzen Code Analysiere, würde ich gerne zuerst ihn zum laufen bringen.

    Das Problem gerade ist diese Meldung, die nach dem Start des Programms auftaucht: Unbenannt.png

    Z.b FileMode wird aber normal angezeigt, die anderen auch: Unbenannt2.png
    Bilder

    • Unbenannt.png

      6,42 kB, 522×100, 205 mal angesehen

    • Unbenannt2.png

      50,82 kB, 1.093×683, 204 mal angesehen

    Lass Dir von VS helfen. Zeig mit der Maus auf die betroffene Codestelle und klick auf mögliche Korrekturen anzeigen
    Da Du allerdings oben schon Imports System.IO stehen hast, vermute ich, dass der Code in mehreren Dateien ist.
    Bilder

    • Help.png

      21,34 kB, 905×254, 186 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Kann man auch irgendwie die Variablen wie xUsername usw auch durch eine Textbox überschreiben?

    Ich habe folgendes probiert:

    VB.NET-Quellcode

    1. xHost = TextBoxHost.Text
    2. xUsername = TextBoxUser.Text
    3. xPassword = TextBoxPassword.Text
    4. xRemoteDirectory = TextBoxRemoteDirectory.Text


    das geht aber nicht, weil es eine ReadOnly variable ist.

    Wozu ist eig. eine ReadOnly Variable gut? Weil ich habe probiert es durch "Dim" zu ersetzen, danach funktioniert aber das Programm nicht mehr ?(

    Richtig cool, es funktioniert! Danke!

    Aber leider hängt sich das Programm immer nach dem ausführen auf, wieso ist das so?

    Edit: Problem gelößt, hatte eine unendliche Schleife drinnen :thumbsup:

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Jimpo“ ()