Ajouter des commentaires en copiant-collant vers votre code vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 268 fois - Téléchargée 29 fois

Contenu du snippet

Permet de copier-coller des commentaires vers votre code VB
Si vous avez besoin d'aide, de garder une fonction, de mettre du texte dans votre source VB, sans passer par l'étape "Je tape ' puis bas puis ' puis bas pendant 200 lignes... vous pouvez grâce à ces fonctions toute simple transformer le texte du ClipBoard en commentaires, ou l'inverse

désolé...
je savais pas que ça existait déjà dans vb
pour ceux qui ne le savent d'ailleurs pas, regardez le premier commentaire, en bas
mais je laisse la source, jusqu'à nouvelle utilisation

Source / Exemple :


Public Function Commenter(Optional str As String) As String
    'transforme le texte du Clipboard pour qu'il soit en commentaire...
    'ou le texte passé en argument
    
    Dim ligne As String
    Dim skip  As Long
    skip = 1
    
    Dim tmp As String
    tmp = ""
    
    If str = "" Then
        str = Clipboard.GetText
    End If
    If str <> "" Then
        While skip < Len(str)
            If InStr(skip, str, vbCrLf) <> 0 Then
                ligne = Mid(str, skip, InStr(skip, str, vbCrLf) - skip)
                skip = InStr(skip, str, vbCrLf) + Len(vbCrLf)
            Else
                ligne = Right(str, Len(str) - skip + 1)
                skip = Len(str)
            End If
            If Left(ligne, 1) <> "'" Then
                tmp = tmp & "'" & ligne & vbCrLf
            Else
                tmp = tmp & ligne & vbCrLf
            End If
        Wend
    End If
    
    'on passe le texte vers le clipboard
    Clipboard.Clear
    Clipboard.SetText tmp
    
    Commenter = tmp
End Function

Public Function DéCommenter(Optional str As String) As String
    'c'est l'inverse : enlève les ' en début de ligne
    
    Dim ligne As String
    Dim skip  As Long
    skip = 1
    
    Dim tmp As String
    tmp = ""
    
    If str = "" Then
        str = Clipboard.GetText
    End If
    If str <> "" Then
        While skip < Len(str)
            If InStr(skip, str, vbCrLf) <> 0 Then
                ligne = Mid(str, skip, InStr(skip, str, vbCrLf) - skip)
                skip = InStr(skip, str, vbCrLf) + Len(vbCrLf)
            Else
                ligne = Right(str, Len(str) - skip + 1)
                skip = Len(str)
            End If
            If Left(ligne, 1) = "'" Then
                tmp = tmp & Mid(ligne, 2) & vbCrLf
            Else
                tmp = tmp & ligne & vbCrLf
            End If
        Wend
    End If

    'maintenant on peut par exemple faire ceci :
    Clipboard.Clear
    Clipboard.SetText tmp
    
    DéCommenter = tmp
End Function

Conclusion :


C'est peu utile, d'accord, mais on sait jamais...

A voir également

Ajouter un commentaire

Commentaires

Helkanen
Messages postés
54
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
9 juin 2004
-
ben, ct justement mon but... mais bon
si ça sert strictement à rien ...
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
Dommage....

Tu aurais pu faire un Addin, si ca n'avais pas deja existe dans l'IDE....
Helkanen
Messages postés
54
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
9 juin 2004
-
ah ben non...
merci pour l'info...
faut dire qu'avec VB en anglais, je trouve moins facilement ce genre de fonctions... enfin bon...
cs_EBArtSoft
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
5 -
C'est bien mais il y a deux boutons dans l'IDE de VB
pour faire cela, dans vb faire :

- Affichage->barres d'outils->personaliser...
- puis commandes->edition->commenter le bloc
->ne pas commenter le bloc

Peut etre ne le savais-tu pas ?!?

@+

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.