herausfinden wieviele zeilen eine .Txt auf server hat.

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von joniator11.

    Bitte sagt mir was da falsch is:

    VB.NET-Quellcode

    1. Dim client As New Net.WebClient
    2. Dim ver
    3. ver = client.DownloadString("xxxxx")
    5. Dim Lines
    6. Lines = System.IO.File.ReadAllText(ver).Split(Environment.NewLine)
    7. Dim LineCount As Integer = Lines.Count
    8. MsgBox(LineCount)

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

    ok... habs aber ich hab ein anderes problem: dieser code funkt nicht(die schleife):

    VB.NET-Quellcode

    1. Try
    3. Dim client As New Net.WebClient
    7. Dim ver
    8. ver = client.DownloadString("www.Verschluesseltes.txt")
    9. Using fw As New System.IO.StreamWriter("all")
    10. fw.WriteLine(ver)
    11. End Using
    12. Dim splitten As String() = ver.Split(CChar(vbNewLine))
    13. Dim anzahlzeilen As Int64 = 0
    14. For Each kkk As String In IO.File.ReadAllText("all").Split(vbNewLine)
    15. anzahlzeilen += 1
    16. Next
    18. Kill("all")
    19. Dim wiederhohlungen As String
    20. wiederhohlungen = anzahlzeilen
    21. wiederhohlungen = Val(wiederhohlungen) * Val("2")
    26. Dim valio
    27. valio = client.DownloadString("www.Verschluesseltes.txt")
    29. Dim txt As String = valio
    30. Dim splitted As String() = txt.Split(CChar(":"))
    32. Dim w
    33. w = wiederhohlungen
    34. Dim gerade As String
    35. Dim ungerade As String
    36. gerade = "0"
    37. ungerade = "1"
    39. For i = 0 To w
    41. TextBox4.Text &= (splitted(gerade)) & " 0"
    42. TextBox5.Text &= (splitted(ungerade)) & " 1" & vbNewLine
    44. gerade = Val(gerade) + Val("2")
    45. ungerade = Val(ungerade) + Val("2")
    47. Next i
    50. Catch ex As Exception
    51. MsgBox(ex.Message + ex.Source)
    52. End Try

    Ich komm irwie nich drauf

    Ich komm nicht bis zur Schleife mit dem Lesen, weil mir das Hirn weh tut. Ladet den Text in eine Datei, um ihn direkt danach wieder auszulesen...
    Wo ist der Sinn geblieben? Ich würde ja vielleicht nichts sagen, weil du nicht zusammenkommst Zeilen zu lesen und dann ReadAllLines benutzt, aber zuerst den String runterladen (wos auch in eine Datei geht), dann in eine Datei schreiben und genau auf die selbe Weise auslesen...

    Zeilenanzahl

    VB.NET-Quellcode

    1. Dim wbc As New Net.WebClient
    2. Dim txt() As String = wbc.DownloadString(New Uri("http://******.bplaced.net/temp/info.txt")).Split(CChar(vbLf))
    3. 'Alle Zeilen sind im Array txt, guckst du
    4. ListBox1.Items.AddRange(txt)
    5. 'Zeilenanzahl
    6. ListBox1.Items.Add("Zeilenanzahl: " & txt.Length.ToString)

    Unwesen schrieb:

    VB.NET-Quellcode

    1. Dim wbc As New Net.WebClient
    2. Dim txt() As String = wbc.DownloadString(New Uri("http://******.bplaced.net/temp/info.txt")).Split(CChar(vbLf))
    3. 'Alle Zeilen sind im Array txt, guckst du
    4. ListBox1.Items.AddRange(txt)
    5. 'Zeilenanzahl
    6. ListBox1.Items.Add("Zeilenanzahl: " & txt.Length.ToString)

    thx für die elegante Lösung.
    jz funst es auch!!

    Thx für Copy und Paste und das du nichts gelernt hast.

    Zumal darf man hier nicht mehrfahc Themen mit dem selben Inhalt eröffnen

    [VB 2008] Falscher split code??

    Junge, wenn du hier weiterkommen willst, dann LERNE Programmieren. Mit Copy und Paste kommst du nicht weiter, sondern nervst uns dann alle naselang mit irgendwelchen dummen Fragen wie diese hier.

    Dodo schrieb:

    Thx für Copy und Paste und das du nichts gelernt hast.

    Zumal darf man hier nicht mehrfahc Themen mit dem selben Inhalt eröffnen `mehrfahc ?? du meinst mehrfach oder??

    [VB 2008] Falscher split code??

    Junge, wenn du hier weiterkommen willst, dann LERNE Programmieren. Mit Copy und Paste kommst du nicht weiter, sondern nervst uns dann alle naselang mit irgendwelchen dummen Fragen wie diese hier.

    ok habs entfernt
    Ps: ich führe eine liste mit allen nützlichen codes und sehe vorher ma da rein und wen möglich wandle ich sie ein bisschen ab, erst wenn mir keine lösung mehr einfällt schreibe ich in dieses forum^^.
    diesen code hab ich z.B. so abgewandelt:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim client As New Net.WebClient
    5. Dim wbc As New Net.WebClient
    6. Dim txt() As String = wbc.DownloadString(New Uri("http://xxxsxx.xxxsx.at/Verschluesseltes.txt")).Split(CChar(vbLf))
    7. Dim w
    8. w = txt
    9. w = w.Length.ToString
    11. Dim wiederhohlungen As String
    15. Dim valio
    16. valio = client.DownloadString("http://cxxxx.xxx.at/Verschluesseltes.txt")
    18. Dim text As String = valio
    19. Dim splitted As String() = text.Split(CChar(":"))
    23. Dim gerade As String
    24. Dim ungerade As String
    25. gerade = "0"
    26. ungerade = "1"
    27. Try
    28. For i As Integer = 0 To w
    30. TextBox4.Text &= (splitted(gerade)) & gerade
    31. TextBox5.Text &= (splitted(ungerade)) & ungerade & vbNewLine
    33. gerade = Val(gerade) + Val("2")
    34. ungerade = Val(ungerade) + Val("2")
    36. Next i
    37. Catch ex As Exception
    40. End Try

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „joniator11“ ()

Facebook
Telefonspende