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