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

Soyez le premier à donner votre avis sur cette source.

Vue 3 791 fois - Téléchargée 374 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

PCPT
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
23 -
pas bête, je garde de côté ;)
à 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.

++
cs_darunia
Messages postés
357
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
24 mars 2011
1 -
C'est pas grand chose, mais qu'est ce que c'est pratique !
draluorg
Messages postés
627
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
25 novembre 2010
-
Salut a tous,

au risque de passer pour un c**, eh tu pourrais expliquer un peu plus car je vois pas de quoi tu parles ? sorry

++
draluorg
Messages postés
627
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
25 novembre 2010
-
re,

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 ;)

++
MadM@tt
Messages postés
2215
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
-
arghhh alors c'est firefox qui plante de ce coté... moi qui pensait que ça venait de vbfrance

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 ^^

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.