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"))
    3. sw.WriteLine(TextBox1.Text)
    4. sw.WriteLine(TextBox6.Text)
    5. sw.WriteLine(TextBox2.Text)
    6. sw.WriteLine(DomainUpDown1.Text)
    7. sw.close
    8. End Sub
    9. Private Sub ImportBTN_Click(sender As Object, e As EventArgs) Handles ImportBTN.Click
    10. Dim rw As New StreamReader(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Net.Einstellungen_export.ini"))
    11. TextBox1.Text = rw.ReadLine()
    12. TextBox6.Text = rw.ReadLine()
    13. TextBox2.Text = rw.ReadLine()
    14. DomainUpDown1.Text = rw.ReadLine()
    15. rw.close
    16. 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)
    4. Dim MitgliedGefunden As Boolean
    5. Dim eineZeile As String = SFTPString.ReadLine
    6. Do While Not String.IsNullOrEmpty(eineZeile)
    7. If eineZeile.StartsWith(TextBoxScan.Text & ";") Then
    8. MitgliedGefunden = True
    9. Dim neueswort() As String = eineZeile.Split(";")
    10. Lkartennr.Text = neueswort(0)
    11. Lvollname.Text = neueswort(1)
    12. Lstrasse.Text = neueswort(2)
    13. Lplz.Text = neueswort(3)
    14. End If
    15. eineZeile = SFTPString.ReadLine
    16. Loop
    17. Else

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