kostenloser Webspace werbefrei: lima-city


Downloader (aus daten auslesen)

lima-cityForumProgrammiersprachenBasic

  1. Autor dieses Themas

    m*********x

    Hallo,

    ich will aus 2 daten zeilen auslesen. einmal eine url und ein name, der angezeigt wird.

    die zeilen sollen dann in eine combobox, aber es soll nicht die url sondern der name angezeigt werden.

    alsnächsten möchte ich aber die url verknüpfte datei downloaden

    ich kann jetzt zwar url auslesen und downloaden aber es werden die url noch angezeigt
    Bisherigen Code:


    Imports System.Net
    Imports System.IO


    Public Class Form1

    Private WithEvents httpclient As WebClient

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click




    httpclient = New WebClient

    Dim SourceURL As String = TextBox2.Text
    Dim ZielDatei As String = SaveFileDialog1.FileName

    ProgressBar1.Value = 0
    ProgressBar1.Maximum = 100

    Button1.Enabled = False


    Try

    httpclient.DownloadFileAsync(New Uri(SourceURL), ZielDatei)
    ProgressBar1.Visible = True

    Catch ex As Exception

    MsgBox("Fehler!" & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
    Button1.Enabled = True


    End Try


    End Sub

    Private Sub httpclient_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles httpclient.DownloadFileCompleted
    Button1.Enabled = True
    ProgressBar1.Visible = False
    End Sub

    Private Sub httpclient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient.DownloadProgressChanged
    ProgressBar1.Value = e.ProgressPercentage

    Dim totalbytes As Long = e.TotalBytesToReceive / 1024
    Dim mtotalbytes As Long = e.TotalBytesToReceive / 1024 / 1024

    Dim bytes As Long = e.BytesReceived / 1024
    Dim mbytes As Long = bytes / 1024

    If totalbytes < 1 Then totalbytes = 1
    If bytes < 1 Then bytes = 1

    If totalbytes > 1024 Then
    Label1.Text = mbytes.ToString & "MB von" & mtotalbytes.ToString & "MB"
    Else
    Label1.Text = bytes.ToString & "KB von " & totalbytes.ToString & "KB"
    End If
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
    System.Diagnostics.Process.Start("http://idevicesmaster.bplaced.com/")
    End Sub


    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged



    SaveFileDialog1.ShowDialog()
    Button1.Enabled = True



    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Path As String = "hotkeylauncher.dat"
    Dim textarray() As String
    Dim length As Integer = 0



    textarray = File.ReadAllLines(Path)
    length = textarray.Length
    While (length <> 0)

    ComboBox1.Items.Add(textarray.GetValue(length - 1))
    length = length - 1
    End While
    ComboBox1.SelectedItem = 1

    End Sub


    End Class
  2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

  3. Wie denn jetzt? Aus 2 Dateien auslesen oder aus einer Datei jede Zeile einzeln auslesen. Zu 2. könnte dies helfen: http://www.tutorials.de/visual-basic-6-0/159041-spezielle-zeile-textdatei-auslesen.html
  4. Und um aus Texten dann etwas ganz bestimmtes heraus zu filtern benutzt man am besten RegEx

    http://www.vb-paradise.de/allgemeines/tipps-tricks-und-tutorials/allgemein/34042-regex-tutorial-blutige-anfaenger-und-fortgeschrittene/

    Grüße

    Beitrag zuletzt geändert: 1.4.2011 16:28:05 von sschubert
  5. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?

Über lima-city

Login zum Webhosting ohne Werbung!