ENLEVEZ LES NUMÉROS DE LIGNES DANS LES SOURCES SUR VBFRANCE
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
-
24 août 2006 à 10:40
cs_Xiaomao Messages postés 5 Date d'inscription mardi 20 juin 2006 Statut Membre Dernière intervention 7 juillet 2007 - 14 juin 2007 à 20:27
cs_Xiaomao Messages postés 5 Date d'inscription mardi 20 juin 2006 Statut Membre Dernière intervention 7 juillet 2007 - 14 juin 2007 à 20:27
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/39247-enlevez-les-numeros-de-lignes-dans-les-sources-sur-vbfrance
https://codes-sources.commentcamarche.net/source/39247-enlevez-les-numeros-de-lignes-dans-les-sources-sur-vbfrance
14 juin 2007 à 20:27
Désolé de ramener ma fraise, mais je voulais rapporter tout simplement mon cas.
Je suis sous Linux, sous Mozilla Firefox 1.5.0.12 et je n'ai pas le "bug" que vous constatez. Voici mon clipboard :
* Option Explicit
*
* Sub Main()
*
* Dim sLine() As String, sData() As String, i As Integer, sText As String
*
* sLine = Split(Clipboard.GetText, vbCrLf)
*
* For i = 0 To UBound(sLine)
* sText = sText & Mid$(sLine(i), InStr(1, sLine(i), ".") + 2) & vbCrLf
* Next i
*
* sText = Left$(sText, Len(sText) - 2)
* Clipboard.Clear
* Clipboard.SetText sText
*
* End Sub
A+
Chaton.
28 nov. 2006 à 10:11
Très utile avec l'extension de firefox pour lancer
une application
Voilà le petit + qui fallait.
L'astuce de frank150 + l'extension firefox
finit la galère.
7 oct. 2006 à 16:42
je n'ai pas trouvé pour le clic droit, mais j'ai trouvé pour créer un bouton dans firefox qui lance un exe, c'est déjà pas si mal ;-)
voici le tuto:
http://extensions.geckozone.org/ExternalApplicationButtons
7 oct. 2006 à 15:27
mettre le copier systeme + ton code sur le clic droit souris dans firefox.
beau défit, mais surement pas infaisable ;-)
7 oct. 2006 à 14:56
29 août 2006 à 12:46
27 août 2006 à 20:54
Utile comme code, en effet
27 août 2006 à 20:27
# Option Explicit
#
# Sub Main()
#
# Dim sLine() As String, sData() As String, i As Integer, sText As String
chaque ligne commence par un dièze.
si je le copie toutes les lignes dans VB ou ici :
1. Option Explicit
2.
3. Sub Main()
4.
5. Dim sLine() As String, sData() As String, i As Integer, sText As String
(etc...)
le but du code de frank150 est de virer cette numérotation du presse-papier avant de coller vers VB, pour les utilisateurs de FF.
27 août 2006 à 19:47
25 août 2006 à 22:35
25 août 2006 à 14:32
24 août 2006 à 21:52
24 août 2006 à 18:18
en tout cas bonne idée, meme si c'est pas grand chose au niveau codage
petit paradoxe du jour : en voulant recopier ton code, je me suis tapé tous les numéros des lignes à supprimer ^^
24 août 2006 à 16:52
erf c bon j'ai compris, je suis sous Ie donc je n'ai pas ce probleme...
J'avais po lu le commentaire de PCPT ;)
++
24 août 2006 à 16:50
au risque de passer pour un c**, eh tu pourrais expliquer un peu plus car je vois pas de quoi tu parles ? sorry
++
24 août 2006 à 16:28
24 août 2006 à 10:40
à noter que ce code sert à combler un bug visible sous FireFox (les lignes ne sont pas numérotées sous IE) ; il faudrait donc tester l'existance de ces numéros.
++