Ajouter des commentaires en copiant-collant vers votre code vb

Commenter

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

S'inscrire maintenant

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.

Du même auteur (Helkanen)