Hi,
ich brauche mal euren fachmännischen rat zu diesem teil meines danbooru downloader programms.
[highlight=vbnet] Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ProgressBar2.Value = 0
Dim Text As String, Zeilen() As String
Text = TextBox3.Text
Zeilen = Split(Text, vbNewLine)
For cnt = 0 To UBound(Zeilen)
Application.DoEvents()
Dim sr As StreamReader = New StreamReader("C:\Users\xxx\Desktop\liste.txt")
Dim line As String
Dim i As Integer
For i = 1 To zaelen
line = sr.ReadLine()
Next
zaelen = zaelen + 1
DownloadWebpage("http://danbooru.donmai.us/post/show/" & line)
'-------------------------------------------------------------------------------------------------------------
ProgressBar2.Value = 1
Suchmuster = "(?<=http://danbooru.donmai.us/data/preview/)[0-9a-zA-Z-_.]+"
rgx = New Regex(Suchmuster, RegexOptions.IgnoreCase _
Or RegexOptions.Multiline)
Trefferliste = rgx.Matches(TextBox2.Text)
Treffercount = Trefferliste.Count
Label1.Text = Treffercount
Treffer = Trefferliste.Item(0).ToString
Label2.Text = Treffer
'---------------------------------------------------------------------------------------------------------------
ProgressBar2.Value = 2
bilddl(("http://danbooru.donmai.us/data/preview/" & Treffer), "C:\Users\xxx\Desktop\Test\" & Treffer)
ProgressBar2.Value = 3
PictureBox1.Refresh()
Next
End Sub[/highlight]
problem liegt da: DownloadWebpage("http://danbooru.donmai.us/post/show/" & line) oder etwas höher denn:
beim ersten mal navigiert er zu: http://danbooru.donmai.us/post/show/" & line
beim zweiten mal nur: http://danbooru.donmai.us/post/show/ ohne line
hat jemand eine idee?
MfG
ich brauche mal euren fachmännischen rat zu diesem teil meines danbooru downloader programms.
[highlight=vbnet] Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ProgressBar2.Value = 0
Dim Text As String, Zeilen() As String
Text = TextBox3.Text
Zeilen = Split(Text, vbNewLine)
For cnt = 0 To UBound(Zeilen)
Application.DoEvents()
Dim sr As StreamReader = New StreamReader("C:\Users\xxx\Desktop\liste.txt")
Dim line As String
Dim i As Integer
For i = 1 To zaelen
line = sr.ReadLine()
Next
zaelen = zaelen + 1
DownloadWebpage("http://danbooru.donmai.us/post/show/" & line)
'-------------------------------------------------------------------------------------------------------------
ProgressBar2.Value = 1
Suchmuster = "(?<=http://danbooru.donmai.us/data/preview/)[0-9a-zA-Z-_.]+"
rgx = New Regex(Suchmuster, RegexOptions.IgnoreCase _
Or RegexOptions.Multiline)
Trefferliste = rgx.Matches(TextBox2.Text)
Treffercount = Trefferliste.Count
Label1.Text = Treffercount
Treffer = Trefferliste.Item(0).ToString
Label2.Text = Treffer
'---------------------------------------------------------------------------------------------------------------
ProgressBar2.Value = 2
bilddl(("http://danbooru.donmai.us/data/preview/" & Treffer), "C:\Users\xxx\Desktop\Test\" & Treffer)
ProgressBar2.Value = 3
PictureBox1.Refresh()
Next
End Sub[/highlight]
problem liegt da: DownloadWebpage("http://danbooru.donmai.us/post/show/" & line) oder etwas höher denn:
beim ersten mal navigiert er zu: http://danbooru.donmai.us/post/show/" & line
beim zweiten mal nur: http://danbooru.donmai.us/post/show/ ohne line
hat jemand eine idee?
MfG
Comment