Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [VB.NET 2008] Previsioni del tempo!
Forum - C# / VB.NET - [VB.NET 2008] Previsioni del tempo! - Pagina 2

Pagine: [ 1 2 3 ] Precedente | Prossimo
Avatar
Molin Mauro (Member)
Rookie


Messaggi: 47
Iscritto: 26/06/2009

Segnala al moderatore
Postato alle 17:32
Giovedì, 02/07/2009
Ok, ora non da errori ma come faccio a ottenere le info che mi servono?? Cosa vuol dire splittare??

PM Quote
Avatar
GoLDBeRG (Ex-Member)
Expert


Messaggi: 331
Iscritto: 19/12/2005

Segnala al moderatore
Postato alle 20:11
Giovedì, 02/07/2009
togli o sposti parti di testo che non ti servono devi giocare un po con le stringhe per prendere quello che vuoi

PM Quote
Avatar
Molin Mauro (Member)
Rookie


Messaggi: 47
Iscritto: 26/06/2009

Segnala al moderatore
Postato alle 10:16
Venerdì, 03/07/2009
Testo quotato
Postato originariamente da GoLDBeRG:

togli o sposti parti di testo che non ti servono devi giocare un po con le stringhe per prendere quello che vuoi


Grazie! Ci proverò! Speravo di trovare qualcosa di più semplice come un riferimento web ma vabbè. Grazie a tutti!

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 13:25
Venerdì, 03/07/2009
Ho sbagliato il nome, quella era solo la versione precedente. Il programma è the Agent, e il codice è questo:
Codice sorgente - presumibilmente VB.NET
  1. 'Naviga sulla pagina del meteo contraddistinta dall'indice selezionato
  2.     Private Sub imgMeteo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imgMeteo.Click
  3.         WB.Navigate("http://it.weather.yahoo.com/ITXX/ITXX" + CInt(Options.Meteo).ToString.PadLeft(4, "0") + "/index_c.html")
  4.     End Sub
  5.  
  6.     'Cerca nella pagina le informzioni
  7.     Private Sub WB_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WB.DocumentCompleted
  8.         Dim Html As String = WB.DocumentText
  9.         Dim Previsione, Alba, Tramonto, Umi As String
  10.         Dim Max, Min, Vento, Condensazione, Visib As String
  11.  
  12.         Previsione = SubStr(Html, "width=52 height=52 alt=" + Chr(34), Chr(34) + ">")
  13.         Max = SubStr(Html, "Massime</small> <b>", "°")
  14.         Min = SubStr(Html, "Minime</small><b> ", "°")
  15.  
  16.         If Options.Meteo_Detailed Then
  17.             Vento = SubStr(Html, "Vento:</font></td><td><font size=-1>", "</font>")
  18.             Visib = SubStr(Html, "Visibilità:</font></td><td><font size=-1>", "</font>")
  19.             Condensazione = SubStr(Html, "Punto di condensazione:</font></td><td><font size=-1>", "°")
  20.             Alba = SubStr(Html, "Alba:</font></td><td><font size=-1>", "</font>")
  21.             Tramonto = SubStr(Html, "Tramonto</font></td><td><font size=-1>", "</font>")
  22.  
  23.             'Umidità e Visibilità generano errori nella ricerca, forse a causa dei caratteri 'à'
  24.             Dim Start_Index As Int32 = Html.IndexOf("Umidit") + "Umidità:</font></td><td><font size=-1>".Length
  25.             Dim End_Index As Int32 = Html.IndexOf("</font>", Start_Index)
  26.             Umi = Html.Substring(Start_Index, End_Index - Start_Index)
  27.  
  28.             Start_Index = Html.IndexOf("Visibilit") + "Visibilità:</font></td><td><font size=-1>".Length
  29.             End_Index = Html.IndexOf("</font>", Start_Index)
  30.             Visib = Html.Substring(Start_Index, End_Index - Start_Index)
  31.  
  32.             Umi = Umi.Replace("%", " per cento")
  33.             Vento = Vento.Replace(" ", " ")
  34.             Vento = Vento.Replace("km/h", "chilometri orari")
  35.             Vento = Vento.Replace("/", " a ")
  36.             If Vento.Contains("-") Then
  37.                 Vento = Vento.Replace("N", "Nord")
  38.                 Vento = Vento.Replace("S", "Sud")
  39.                 Vento = Vento.Replace("O", "Ovest")
  40.                 Vento = Vento.Replace("E", "Est")
  41.             End If
  42.             Vento = "verso " + Vento
  43.             Visib = Visib.Replace(" ", " ")
  44.             Visib = Visib.Replace("km", "chilometri")
  45.             Condensazione = Condensazione + " gradi"
  46.             Alba = Alba.Replace(":", " e ") + " minuti"
  47.             Tramonto = Tramonto.Replace(":", " e ") + " minuti"
  48.         End If
  49.  
  50.         With Agente
  51.             .Play("Read")
  52.             .Speak("Previsioni di oggi")
  53.             .Speak(Previsione + ", con una temperatura massima di " + Max + " gradi e una minima di " + Min + " gradi.")
  54.  
  55.             If Options.Meteo_Detailed Then
  56.                 .Speak("Informazioni aggiuntive")
  57.                 .Speak("Ora dell'alba: " + Alba + ".")
  58.                 .Speak("Ora del tramonto: " + Tramonto + ".")
  59.                 .Speak("Il punto di condensazione è di " + Condensazione + ", con un'umidità del " + Umi + ", mentre la visibilità è di " + Visib + ".")
  60.                 .Speak("Tira un vento " + Vento + ".")
  61.             End If
  62.         End With
  63.         WB.Stop()
  64.     End Sub

PM Quote
Avatar
Molin Mauro (Member)
Rookie


Messaggi: 47
Iscritto: 26/06/2009

Segnala al moderatore
Postato alle 14:48
Venerdì, 03/07/2009
Testo quotato
Postato originariamente da Il Totem:

Ho sbagliato il nome, quella era solo la versione precedente. Il programma è the Agent, e il codice è questo:
Codice sorgente - presumibilmente VB.NET
  1. 'Naviga sulla pagina del meteo contraddistinta dall'indice selezionato
  2.     Private Sub imgMeteo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imgMeteo.Click
  3.         WB.Navigate("http://it.weather.yahoo.com/ITXX/ITXX" + CInt(Options.Meteo).ToString.PadLeft(4, "0") + "/index_c.html")
  4.     End Sub
  5.  
  6.     'Cerca nella pagina le informzioni
  7.     Private Sub WB_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WB.DocumentCompleted
  8.         Dim Html As String = WB.DocumentText
  9.         Dim Previsione, Alba, Tramonto, Umi As String
  10.         Dim Max, Min, Vento, Condensazione, Visib As String
  11.  
  12.         Previsione = SubStr(Html, "width=52 height=52 alt=" + Chr(34), Chr(34) + ">")
  13.         Max = SubStr(Html, "Massime</small> <b>", "°")
  14.         Min = SubStr(Html, "Minime</small><b> ", "°")
  15.  
  16.         If Options.Meteo_Detailed Then
  17.             Vento = SubStr(Html, "Vento:</font></td><td><font size=-1>", "</font>")
  18.             Visib = SubStr(Html, "Visibilità:</font></td><td><font size=-1>", "</font>")
  19.             Condensazione = SubStr(Html, "Punto di condensazione:</font></td><td><font size=-1>", "°")
  20.             Alba = SubStr(Html, "Alba:</font></td><td><font size=-1>", "</font>")
  21.             Tramonto = SubStr(Html, "Tramonto</font></td><td><font size=-1>", "</font>")
  22.  
  23.             'Umidità e Visibilità generano errori nella ricerca, forse a causa dei caratteri 'à'
  24.             Dim Start_Index As Int32 = Html.IndexOf("Umidit") + "Umidità:</font></td><td><font size=-1>".Length
  25.             Dim End_Index As Int32 = Html.IndexOf("</font>", Start_Index)
  26.             Umi = Html.Substring(Start_Index, End_Index - Start_Index)
  27.  
  28.             Start_Index = Html.IndexOf("Visibilit") + "Visibilità:</font></td><td><font size=-1>".Length
  29.             End_Index = Html.IndexOf("</font>", Start_Index)
  30.             Visib = Html.Substring(Start_Index, End_Index - Start_Index)
  31.  
  32.             Umi = Umi.Replace("%", " per cento")
  33.             Vento = Vento.Replace(" ", " ")
  34.             Vento = Vento.Replace("km/h", "chilometri orari")
  35.             Vento = Vento.Replace("/", " a ")
  36.             If Vento.Contains("-") Then
  37.                 Vento = Vento.Replace("N", "Nord")
  38.                 Vento = Vento.Replace("S", "Sud")
  39.                 Vento = Vento.Replace("O", "Ovest")
  40.                 Vento = Vento.Replace("E", "Est")
  41.             End If
  42.             Vento = "verso " + Vento
  43.             Visib = Visib.Replace(" ", " ")
  44.             Visib = Visib.Replace("km", "chilometri")
  45.             Condensazione = Condensazione + " gradi"
  46.             Alba = Alba.Replace(":", " e ") + " minuti"
  47.             Tramonto = Tramonto.Replace(":", " e ") + " minuti"
  48.         End If
  49.  
  50.         With Agente
  51.             .Play("Read")
  52.             .Speak("Previsioni di oggi")
  53.             .Speak(Previsione + ", con una temperatura massima di " + Max + " gradi e una minima di " + Min + " gradi.")
  54.  
  55.             If Options.Meteo_Detailed Then
  56.                 .Speak("Informazioni aggiuntive")
  57.                 .Speak("Ora dell'alba: " + Alba + ".")
  58.                 .Speak("Ora del tramonto: " + Tramonto + ".")
  59.                 .Speak("Il punto di condensazione è di " + Condensazione + ", con un'umidità del " + Umi + ", mentre la visibilità è di " + Visib + ".")
  60.                 .Speak("Tira un vento " + Vento + ".")
  61.             End If
  62.         End With
  63.         WB.Stop()
  64.     End Sub

ciao! wb ovviamente è un webbrowser, giusto? cosè substr?? dà errore su "Options" dice "Il riferimento a un membro non condiviso richiede un riferimento a un oggetto."!

grazie per l'interessamento!

EDIT: Non è dichiarato neanche "Agente"!

Ultima modifica effettuata da Molin Mauro il 03/07/2009 alle 14:58
PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 9:01
Sabato, 04/07/2009
Se volevi che non ci fossero errori, allora avrei dovuto incollarti tutto il codice di tutta l'applicazione, il che non è conveniente. Ovviamente ci sono riferimenti mancanti, ma quelli a te non interessano...

PM Quote
Avatar
Molin Mauro (Member)
Rookie


Messaggi: 47
Iscritto: 26/06/2009

Segnala al moderatore
Postato alle 10:33
Sabato, 04/07/2009
Testo quotato
Postato originariamente da Il Totem:

Se volevi che non ci fossero errori, allora avrei dovuto incollarti tutto il codice di tutta l'applicazione, il che non è conveniente. Ovviamente ci sono riferimenti mancanti, ma quelli a te non interessano...


ok!! ora ho capito. purtroppo non posso testare xk mi si è incruccato VB: non apre nessun progetto, non ne crea e nn si riesce a disinstallare!! Lo aveva già fatto e l'unica soluzione è stata formattare quindi lo proverò lunedì!

GRAZIE A TUTTI!

P.S. Ho notato che yahoo usa un codice per ogni città sull'URL. come faccio a ottenerlo per una città impostata sall'utente?

Ultima modifica effettuata da Molin Mauro il 04/07/2009 alle 10:35
PM Quote
Avatar
evilmight (Member)
Expert


Messaggi: 206
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 12:23
Sabato, 04/07/2009
Ti basta inviare delle richieste http, al web server...

PM Quote
Pagine: [ 1 2 3 ] Precedente | Prossimo