Texte d'une TextBox à partir d'un fichier internet !!! Résolu/Fermé

Question

Bonjour à tous, 
J'ai un petit problème, j'ai fait un logiciel sur Visual basic dans lequel il y a une TextBox nommé TextBox1. Et je voudrais que le texte de cette TextBox soit celui qui se trouve dans le un fichier 123.txt qui se trouve à ce lien www.test\123.txt (c'est un exemple). Le problème c'est que je ne sais pas faire !!! 

Pouvez vous me donner le code SVT 

Un IMMENCE merci d'avance :)

Utilisateur anonyme · Answer

Bonsoir,
Avez-vous trouvé la solution a votre problème?
Car moi je cherche justement l'inverse et je ne parvient pas a trouver...
Peut être avec un mail ?

antoine9298 · Answer

il faut faire un create object pour le network mais je suis debutant et la syntaxe des create object c'est avec moi avec 3bug par ligne...

Utilisateur anonyme · Answer

Oui je voit,
Je vais aller voir et je vous dirai quoi mais je ne trouve pas grand chose sur ca

pijaku · Answer

Bonjour,

Je n'ai pas de connaissances VB, mais vous pourriez peut être vous inspirer de ce code VBA :

Private Sub CommandButton1_Click()
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument

IE.navigate "http://www.test/123.txt" 'A ADAPTER
IE.Visible = True 'pas nécessaire d'afficher la page Internet
WaitIE IE
Set IEDoc = IE.document
TextBox1.Value = IEDoc.body.innerText 'A condition que le texte recherché soit seul dans le body de la page en question...........
   
Set IE = Nothing
Set IEDoc = Nothing
End Sub

Sub WaitIE(IE As InternetExplorer)
   Do Until IE.readyState = READYSTATE_COMPLETE
      DoEvents
   Loop
End Sub

Pour une complète info, les références à activer en VBA (donc à référencer dans votre projet) sont : Microsoft Internet Controls (C:\Windows\System32\ieframe.dll) et Microsoft HTML Object Library (C:\Windows\System32\mshtml.tlb). 
 
Je répète que je n'y connais rien à VB...

Bonne continuation

Utilisateur anonyme · Answer

Un grand merci, je vais essayer cela , 
et même si cela ne fonctionne pas, merci quand même, cela peut etre utile :)

lermite222 · Answer

Bonjour, 
Pijacku m'a fais remarquer que j'avais pas bien compis, faut dire que l'exemple d'url que tu met n'aide pas la compréhesion.. Bref  
Un nouveau projet => un bouton  Button1 un TextBox TextBox1 

Imports System.Net 
Imports System.Web 

Public Class Form1 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    End Sub 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Dim mWeb As WebClient = New WebClient 
        'Test Url.txt 
        Dim URL As String = "https://sd-5b.archive-host.com/membres/up/b05c9f3873215e8d2df70f056b74dce61198c32d/Test_URL.txt" 
        Me.TextBox1.Text = mWeb.DownloadString(URL) 
    End Sub 
End Class
 l'url existe, vous pouvez la laisser pour le test. 
 Je crois que ça répond à ton problème. 
A+ 
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

lermite222 · Answer

Hiii; avec toi faut vraiment lire entre les lignes.. :-) 
Tu a deux solutions,  
1°) la plus simple, mettre le texte dans un label  
2°) Tu peu bloquer le textBox => TextBox1.Locked = True  
A+  
   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)  
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

Texte d'une TextBox à partir d'un fichier internet !!!

7 réponses

Discussions similaires