Besoin d'aide sur conversion vers VB.net

Question

Bonjour à tous, Pouvez vous m'aider à convertir ce bout de code VB6 vers VB.net :

Attribute VB_Name = "moduleclipboard"

Dim oIE ',MyWord

PublicSub Ouvrirhtm(url AsString, tim As Timer, Optional txt AsString, Optional src AsString)

Dim m AsDouble

HTMLFileIn = url

Set oIE = CreateObject("InternetExplorer.Application")

DoEvents

oIE.Navigate HTMLFileIn

DoEvents

Call Attend(tim)

'recuperons le code html

src = oIE.document.documentelement.innerhtml

DoEvents

'recuperons le texte de la page html (copier-coller)

oIE.document.body.createTextRange.execCommand ("Copy")

DoEvents

Call Attend(tim)

txt = Clipboard.GetText()

oIE.Quit

Set oIE = Nothing

EndSub

Sub Attend(tim As Timer)

tim.Interval = 500

While oIE.busy

tim.Interval = 1000

Wend

While oIE.document.readyState <> "complete"

tim.Interval = 1000

Wend

EndSub

J'ai essayé plusieurs trucs, mais je n'y arrive vraiment pas ! En fait VB.net ne comprend oIE même déclaré en tant qu'objet. Merci de m'aider

OverLeX · Answer

Précision : ce code est tiré de l'appli : http://www.vbfrance.com/codes/CONVERTISSEUR-HTML-VERS-TXT-OU-RTF-V2-BEAUCOUP_19306.aspx

nhervagault · Answer

Salut 

Explique le but de ton programme,
si c'est de capturer une page internet et de la parser apres, il y a bien plus simple en dotnet

Exemple 
http://msdn2.microsoft.com/fr-fr/library/system.net.webrequest(VS.80).aspx

Avantage plus simple a maintenir, plus propre et plus rapide.

That's all

cs_casy · Answer

Pas forcément simple à trouver, mais quand même plus simple en terme de syntaxe :

Public Sub Ouvrirhtm(ByVal url As String, Optional ByRef txt As String =   "", Optional ByVal src As String = "")

        Dim req As Net.HttpWebRequest
        Dim res As Net.HttpWebResponse
        Dim HTMLFileIn As String = url
        req = Net.HttpWebRequest.Create(HTMLFileIn)
        res = req.GetResponse

        Dim sr As New IO.StreamReader(res.GetResponseStream, 
System.Text.Encoding.GetEncoding(0))
        txt = sr.ReadToEnd

        res.Close()
End Sub

  ---- Sevyc64  (alias Casy) ----  <hr size  ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

OverLeX · Answer

merci beaucoup à vous deux.

en fait je veux récupérer le texte de la page html et non de le code source.

casy : j'ai essayé ta méthode et je récupère correctement le code source de ma page. Mais est-il possible avec ta méthode de récupérer le texte de la page et non le code source ?

nhervagault · Answer

Je pense qu'une simple regexp peut suffir

Dim strInput As String
Dim strOutput As String
strInput = Text1.Text
strOutput = Regex.Replace(strInput, "<[^>]*>", " ")    
output.Text = strOutput
output_raw.Text = Server.HtmlEncode(Text1.Text)

Bon courage

OverLeX · Answer

j'ai remplacé le Regex par System.Text.RegularExpressions.Regex mais il ne comprend pas le type HttpApplication pour Server donc je n'ai pas pu exécuter ton code. Mais ce code parse le code source si j'ai bien compris ? parce que j'ai déjà des fonctions pour ça mais je me retrouve toujours avec un texte pas très propre, c'est pour ça que je voudrais appliquer la même méthode que le code que j'ai mis au début.

nhervagault · Answer

Il semble que execommand est disponible en dotnet 

cf 
http://ryanfarley.com/blog/archive/2004/12/23/1330.aspx

Une fois que ca fonctionne n'hesite pas a mettre ta solution

OverLeX · Answer

Bon en fait, j'ai trouvé la solution autrement. voilà pour ceux que ça intéresse :

Dim str As String
Dim uri As Uri = New Uri("monUrl")

WebBrowser1.Navigate(uri)

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        str = WebBrowser1.Document.Body.InnerText
 End Sub

Cette méthode marche également si vous définissez une page html en local dans "monUrl"

Après avoir cherché sur des méthodes compliqué, je me rends qu'en fait c'était super simple 

J'espère que ca pourra servir pour d'autres

A+

nhervagault · Answer

Ta méthode renvoie le code source de la page il me semble.
Mais que de la partie body.

C'est pas l'equivalent d'un copier (qui lui doit utiliser le clipboard (copier coller))

OverLeX · Answer

Non non, il renvoie bien le texte qui est affiché par le navigateur, pas le code source.
Essaie, tu veras.

A+

Besoin d'aide sur conversion vers VB.net

10 réponses

Votre réponse

Discussions similaires