String aus Datei vom Server lesen

  • VB.NET

Es gibt 26 Antworten in diesem Thema. Der letzte Beitrag () ist von Otti.

    Ich hab mal in meinen Project geschaut..
    Ich habe es anders gelöst. Nicht mit Stringreader sondern mit StreamWriter und StreamReader..
    Hier ein beispiel:

    VB.NET-Quellcode

    1. Private Sub ExportBTN_Click(sender As Object, e As EventArgs) Handles ExportBTN.Click
    2. Dim sw As New StreamWriter(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Net.Einstellungen_export.ini"))
    4. sw.WriteLine(TextBox1.Text)
    5. sw.WriteLine(TextBox6.Text)
    6. sw.WriteLine(TextBox2.Text)
    7. sw.WriteLine(DomainUpDown1.Text)
    8. sw.close
    9. End Sub
    10. Private Sub ImportBTN_Click(sender As Object, e As EventArgs) Handles ImportBTN.Click
    12. Dim rw As New StreamReader(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Net.Einstellungen_export.ini"))
    14. TextBox1.Text = rw.ReadLine()
    15. TextBox6.Text = rw.ReadLine()
    16. TextBox2.Text = rw.ReadLine()
    17. DomainUpDown1.Text = rw.ReadLine()
    18. rw.close
    19. End Sub


    Da werden in meinen fall die Nutzereinstellungen aus dem Programm als Datei auf dem Desktop gespeichert, und bei einer Neuinstallation hat man die Datei, oder eben bei mehrfachen User PC´s parat und kann sie in den anderen Rechnern einfach auf dem Desktop legen, und per Import die Einstellungen vom z.b Admin übernehmen.

    Sry das ich das nicht gepeilt hatte.

    Ob ich nun Wort für Wort vorsage was du zu programmieren hast, oder doch gleich alles vorkaue, ich denke es kommt aufs selbe raus.
    Also, hier mein eigentlicher Vorschlag:

    C# Original

    C#-Quellcode

    1. string regmitgliederString = wc.DownloadString("http://s743014XXXXXXXXX.txt");
    2. if (regmitgliederString.Contains(textBox1.Text))
    3. {
    4. foreach (string line in regmitgliederString.Split(new string[] { Environment.NewLine }, StringSplitOptions.RemoveEmptyEntries))
    5. {
    6. if (line.StartsWith(textBox1.Text + ";"))
    7. {
    8. string[] parts = line.Split(';');
    9. textBox2.Text = parts[0];
    10. textBox3.Text = parts[1];
    11. textBox4.Text = parts[2];
    12. textBox5.Text = parts[3];
    13. }
    14. }
    15. }
    VB.NET via Converter

    VB.NET-Quellcode

    1. Dim regmitgliederString As String = wc.DownloadString("http://s743014XXXXXXXXX.txt")
    2. If regmitgliederString.Contains(textBox1.Text) Then
    3. For Each line As String In regmitgliederString.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
    4. If line.StartsWith(textBox1.Text & ";") Then
    5. Dim parts As String() = line.Split(";"c)
    6. textBox2.Text = parts(0)
    7. textBox3.Text = parts(1)
    8. textBox4.Text = parts(2)
    9. textBox5.Text = parts(3)
    10. End If
    11. Next
    12. End If

    @EaranMaleasi

    Moin...
    Ich habe es nun so realisiert

    VB.NET-Quellcode

    1. If RegmitgliederString.Contains(TextBoxScan.Text) Then
    2. Dim Zeile As Integer = 0
    3. Dim SFTPString As New StringReader(RegmitgliederString)
    5. Dim MitgliedGefunden As Boolean
    6. Dim eineZeile As String = SFTPString.ReadLine
    8. Do While Not String.IsNullOrEmpty(eineZeile)
    9. If eineZeile.StartsWith(TextBoxScan.Text & ";") Then
    10. MitgliedGefunden = True
    11. Dim neueswort() As String = eineZeile.Split(";")
    12. Lkartennr.Text = neueswort(0)
    13. Lvollname.Text = neueswort(1)
    14. Lstrasse.Text = neueswort(2)
    15. Lplz.Text = neueswort(3)
    16. End If
    17. eineZeile = SFTPString.ReadLine
    18. Loop
    19. Else

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