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

Résolu
floflo55 Messages postés 221 Date d'inscription   Statut Membre Dernière intervention   -  
 Utilisateur anonyme -
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 :)
A voir également:

7 réponses

Réponse 1 / 7
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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 .
1
Utilisateur anonyme
 
Merci bien :)
Juste une chose, savez-vous exactement comment faire afin que les utilisateurs puisse eux-meme modifier la textbox ?
Donc ne faire que afficher le message, sans pouvoir le modifier
Un grand merci
0
Réponse 2 / 7
Utilisateur anonyme
 
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 ?
0
floflo55 Messages postés 221 Date d'inscription   Statut Membre Dernière intervention   4
 
Non désolé je n'ai rien trouver !!!
0
Réponse 3 / 7
antoine9298 Messages postés 101 Date d'inscription   Statut Membre Dernière intervention   6
 
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...
0
Réponse 4 / 7
Utilisateur anonyme
 
Oui je voit,
Je vais aller voir et je vous dirai quoi mais je ne trouve pas grand chose sur ca
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
0
Réponse 6 / 7
Utilisateur anonyme
 
Un grand merci, je vais essayer cela ,
et même si cela ne fonctionne pas, merci quand même, cela peut etre utile :)
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Salut,

Je l'ai testé dans un classeur Excel. J'ai créé un UserForm, y ai placé un bouton et un textbox, et j'ai mis ce code dans l'événement click du bouton.
Ca fonctionne...
0
Réponse 7 / 7
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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 .
0
Utilisateur anonyme
 
Un grand merci :)
0