Enlevez les numéros de lignes dans les sources sur vbfrance

Soyez le premier à donner votre avis sur cette source.

Vue 3 825 fois - Téléchargée 379 fois

Description

Quand on copie le code de vbfrance, on a qu'a ouvrir le programme et il s'exécute de facon transparente pour supprimer le numéro des lignes et le recopier dans le clipboard.

Le code ci-dessous est à mettre dans un module.

Source / Exemple :


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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Xiaomao
Messages postés
5
Date d'inscription
mardi 20 juin 2006
Statut
Membre
Dernière intervention
7 juillet 2007
-
Bonjour à tous,

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.
cs_Tropic
Messages postés
90
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
1 février 2011
-
Je comfirme ld40
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.
ld40
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
-
encore moi ... lol

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
ld40
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
-
il faudrait creuser un poil plus loin:
mettre le copier systeme + ton code sur le clic droit souris dans firefox.
beau défit, mais surement pas infaisable ;-)
ld40
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
-
en même temps je n'ai jamais compris pourquoi vbfrance avait ajouté cette numérotation de ligne, ça ne sert vraiment à rien et ça n'existait pas dans les premieres version du site il me semble...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.