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

Signaler
Messages postés
221
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
21 août 2014
-
 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 :)

7 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 103
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60403 internautes nous ont dit merci ce mois-ci

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

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 ?
Messages postés
221
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
21 août 2014
5
Non désolé je n'ai rien trouver !!!
Messages postés
101
Date d'inscription
vendredi 5 avril 2013
Statut
Membre
Dernière intervention
23 décembre 2014
4
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...

Oui je voit,
Je vais aller voir et je vous dirai quoi mais je ne trouve pas grand chose sur ca
Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020
2 477
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

Un grand merci, je vais essayer cela ,
et même si cela ne fonctionne pas, merci quand même, cela peut etre utile :)
Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020
2 477
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...
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 103
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 .
Utilisateur anonyme
Un grand merci :)