Downloader (aus daten auslesen)
lima-city → Forum → Programmiersprachen → Basic
allgemeines tipps
angezeigt bisherigen code
auslese
datei
einzeln auslesen
fehler
filtern
http
import
maximum
sender
spezielle zeile
string
system
text
textdatei
trick
url
windows
zeile
-
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
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
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
-
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 -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage