AFFICHER LA SOURCE D'UNE PAGE INTERNET
cs_thebigbang
Messages postés
196
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
25 juillet 2006
-
6 janv. 2002 à 10:26
chris068 Messages postés 3 Date d'inscription vendredi 27 décembre 2002 Statut Membre Dernière intervention 30 janvier 2003 - 9 juil. 2003 à 22:07
chris068 Messages postés 3 Date d'inscription vendredi 27 décembre 2002 Statut Membre Dernière intervention 30 janvier 2003 - 9 juil. 2003 à 22:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2342-afficher-la-source-d-une-page-internet
https://codes-sources.commentcamarche.net/source/2342-afficher-la-source-d-une-page-internet
9 juil. 2003 à 22:07
' on met la source dans txtSource ...
txtSource = Replace(source, Chr(10), vbNewLine)
13 juin 2003 à 17:46
Sub modif()
For t = 1 To Len(Text1.Text)
DoEvents
If Mid(Text1.Text, t, 1) = Chr(10) Then
Position = t
DoEvents
Text1.Text = Left(Text1.Text, Position - 1) & vbNewLine & Right(Text1.Text, Len(Text1.Text) - Position)
t = t + 1
DoEvents
End If
DoEvents
Next t
End Sub
c tout con et sa evite d'avoir des barres qui s'affichent enfin c mon cas sous win98
@+
source genial
skram
25 avril 2003 à 13:56
6 juin 2002 à 14:45
7 janv. 2002 à 12:36
bigbang
bigbang00@caramail.com
6 janv. 2002 à 16:34
clair , rapide et sans Ocx ! !!
nikel
6 janv. 2002 à 10:26
bigbang
bigbang00@caramail.com