Visualizzazione dei risultati da 1 a 5 su 5
  1. #1
    Utente di HTML.it L'avatar di IAL32
    Registrato dal
    Aug 2011
    Messaggi
    88

    [VB10 .NET]Leggere riga per riga TextBox e scaricarne il contenuto......

    Il titolo non sipega bene l'argomento, lo so, ma non volevo impiegare delle righe per scriverlo.
    Allora, io ho già fatto delle righe di codice:

    Codice PHP:
    Imports System
    Imports System
    .IO
    Public Class Form1
        Dim variabile 
    As Int32 0
        
    Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
            Dim path 
    As String TextBox2.Text

            Dim readText
    () As String TextBox2.Lines
            Dim s 
    As String
            
    For Each s In readText
                
    'Vorrei che ogni pagina che mi dice la riga,
                '
    Esempio
                
    'http://www.gloogle.it/
                '
    http://www.google.sm/
                
    'http://www.youtube.com/
                '
    Abbiauna volta salvato il sourceun nome diversoanche 123va benissimo.
                
    'Io faccio: 
                My.Computer.Network.DownloadFile _
                ("http://www.google.sm/", "C:\Prova\" & variabile + 1 & ".htm")
            Next
        End Sub
    End Class 
    Grazie mille

  2. #2
    Utente di HTML.it L'avatar di IAL32
    Registrato dal
    Aug 2011
    Messaggi
    88

    Re: [VB10 .NET]Leggere riga per riga TextBox e scaricarne il contenuto......

    Ops ^^" credo di aver sbagliato sezione...

  3. #3
    Utente di HTML.it L'avatar di IAL32
    Registrato dal
    Aug 2011
    Messaggi
    88
    Beeeeeene...
    In ogni caso, ho risolto il problema del nome del file, usando il seguente codice:
    codice:
    Imports System
    Imports System.IO
    Public Class Form1
        Dim variabile As Int32 = 0
        Dim variabile2 As String = 0
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim path As String = TextBox2.Text
    
            Dim readText() As String = TextBox2.Lines
            Dim Line As String
            For Each Line In readText
                variabile = variabile + 1
                Dim NumeroLinea As String = LineInput(TextBox2.Text)
                TextBox1.Text = NumeroLinea
                My.Computer.Network.DownloadFile _
                ("http://www.google.net/", "C:\Prova\" & variabile & ".htm")
            Next
        End Sub
    End Class
    Ho aumentato il valore della variabile prima di scaricare il file.
    Adesso non mi rimane che scaricare il file presente nelle righe della TextBox2;
    qualche idea su come fare?

    Io avevo provato in questo modo:

    codice:
    Imports System
    Imports System.IO
    Public Class Form1
        Dim variabile As Int32 = 0
        Dim variabile2 As String = 0
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim path As String = TextBox2.Text
    
            Dim readText() As String = TextBox2.Lines
            Dim Line As String
            For Each Line In readText
                variabile = variabile + 1
                My.Computer.Network.DownloadFile _
                ("http://www.google.net/", "C:\Prova\" & variabile & ".htm")
            Next
        End Sub
    End Class
    Il problema è che mi da il seguente errore:

    Conversion from string "http://www.google.net/ http://w" to type 'Integer' is not valid.

    Il contenuto della TextBox2.Text è il seguente:

    Grazie mille per gli eventuali consigli

  4. #4
    Utente di HTML.it
    Registrato dal
    Dec 2009
    Messaggi
    40
    codice:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            For Each linea As String In TextBox1.Lines 'Per ogni URL nel textbox
                Dim url As String = linea 'Salviamo l'URL iniziale
                If linea.StartsWith("http://") = True Then 'Togliamo l'http://www. per avere il nome dell'host pulito
                    linea = linea.Remove(0, 11)
                End If
                If linea.EndsWith("/") = True Then 'Togliamo lo slash finale per avere il nome dell'host pulito
                    linea = linea.Remove(linea.Length - 1)
                End If
                My.Computer.Network.DownloadFile(url, "C:\Test\Pagina_" & linea & ".htm", "", "", True, 100, True) 'Scarichiamo la pagina e la salviamo come "Pagina_NOMEHOSTPULITO.html" con UI sullo stato
            Next
        End Sub
    Anche se un po' in ritardo
    Verrà salvata la pagina come:
    "Pagina_NOMEHOST.html" (per esempio "Pagina_google.net.htm")

  5. #5
    IAL32 benvenuto nel forum!

    Il titolo della discussione non è conforme al regolamento, mandami per favore un messaggio privato con la rettifica.
    Chi non cerca trova.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.