Announcement

Collapse
No announcement yet.

danbooru downloader frage

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • danbooru downloader frage

    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
    Zuletzt editiert von mrman; 07.07.2009, 15:27. Reason: Formatierung auf VB.net geändert

  • #2
    Hallo,

    geh das Programm mit dem Debugger Schritt für Schritt durch und schau wo der Fehler liegt.


    mfG Gü
    "Any fool can write code that a computer can understand. Good programmers write code that humans can understand". - Martin Fowler

    Comment


    • #3
      Hallo mrman,

      Ich habe den Code nur kurz überflogen, aber so im ersten Moment würde ich folgendes behaupten.

      Liste.txt hat nur einen Datensatz, deswegen bekommt nur der erste Versuch eine line zurückgemeldet. Bei jedem weiteren Durchlauf steht in line nichts mehr drinnen und deswegen kommt beim nächsten mal nur .../show/ ohne line.

      Ich finde es auch irgendwie komisch das Du die Datei bei jedem Durchgang wieder und wieder von vorne anfängst. Und so lange die gelesenen Zeilen wieder verwirfst bis Du glaubst bei der richtigen (zaehlen) zu sein.

      Gruß Womble

      Comment


      • #4
        Hi,
        nein leider nicht. In der Liste.txt steht mehr als eine Zeile drinnen.
        Ich hab's mal hochgeladen, damit ihr euch ein bild davon machen könnt: http://filebeam.com/9e25ab6c8cd040ec2f835899e2b6a787
        password: mrman

        Und wie bekommt man es hin, dass wenn er ein bild dl. nicht das ganze Programm freezed?

        MfG

        Comment


        • #5
          Servus,

          Und wie bekommt man es hin, dass wenn er ein bild dl. nicht das ganze Programm freezed?
          Stichwort Threading: MSDN

          Wenn du es dir einfach machen möchtest, sei ein Blick auf folgende Klasse empfehlenswert: BackgroundWorker

          Mfg Myst

          Comment


          • #6
            Hi mrman,

            der Download ist ja schön und gut, aber das Textfile (liste.txt) ist nicht enthalten. Kannst Du das noch hochstellen, oder stehen da Sachen drinnen die keiner sehen darf? Dann bau mal eine neutrale Version und stell die hoch. Denn ich vermute nach wie vor das Dein Problem eher mit dem Textfile als mit der Source selbst zu tun hat.

            Gruß Womble

            Comment


            • #7
              Hi,

              im text dokument stehen die links von den einzelnen thumbnails in einer suche also z.B. wenn man "Cat" sucht:

              Code:
              480217/11eyes-black_hair-bou-breasts-cat-cleavage-dress-f
              480103/backpack-blonde_hair-cat-helmet-mecha_musume-short
              479815/alphonse_elric-armor-cat-color-edward_elric-fullme
              479758/-_-_-cat-chibi_miku-comic-detached_sleeves-hatsune
              479670/animal-backpack-black_hair-camisole-cat-child-glas
              479539/animal_ears-blue_eyes-blue_hair-breasts-capcom-cat
              479502/angry-aqua_eyes-aqua_hair-armor-bare_shoulders-bel
              479488/cat-clock-eyes_closed-flower-hair_ribbon-hane_-art
              479395/barefoot-blue_hair-blush-cat-feet-highres-hime_cut
              479387/absurdres-ahoge-aqua_eyes-blush-bow-brown_hair-cam
              479378/black_hair-cat-game_cg-long_hair-tagme-tail
              479359/alphonse_elric-armor-cat-edward_elric-fullmetal_al
              479318/brown_eyes-brown_hair-cat-french-jeans-little_bust
              479217/3-1-barefoot-bow-cat-chibi-dos_cat-furi-hair_bow-o
              479165/azumanga_daiou-bikini-breasts-cat-collar-huge_brea
              479114/brown_hair-cat-neko_no_ongaeshi-orie-ponytail-ribb
              478935/blue_hair-cat-japanese_clothes-kiba_satoshi-kimono
              478898/black_hair-building-cat-hoodie-isuzu-kneehighs-sha
              478770/beard-black_hair-cait_sith-cape-cat-chairchair-cos
              478761/-_-aqua_hair-cat-chibi-chibi_miku-comic-hatsune_mi
              Die Links stehen in der liste txt ohne "http://danbooru.donmai.us/post/show/" das wird dan noch drangesetzt.

              Comment


              • #8
                Hi Mrman,

                was steht im Fall von der Suche nach 'cat' eigentlich in der Textbox3 ?

                Gruß Womble

                Comment

                Working...
                X