Total de ligne dans un texte rapide

0/5 (5 avis)

Snippet vu 3 118 fois - Téléchargée 45 fois

Commenter

Contenu du snippet


Source / Exemple : 


Public Function NTotal(RichTextBoxLigne As String)
Dim numLines, Texte
numLines = 1
Texte = RichTextBoxLigne
Do
Apostrophe = InStr(Texte, vbCrLf)
If Apostrophe <> 0 Then
numLines = numLines + 1
Texte = Mid(Texte, Apostrophe + 1, Len(Texte) - Apostrophe)
Else
Exit Do
End If
Loop
NTotal = numLines
End Function

Conclusion :


Private Sub Command1_Click()
MsgBox NTotal(Text1.text)
End Sub

A voir également

Ajouter un commentaire Commentaires
ShanaBurns Messages postés 30 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 30 mai 2003
2 août 2002 à 17:27
Ouais c pas mal comme code mais voici une autre métode bien plus rapide encore et en une seule ligne de code.

Function Lignes(text As String) As Integer

Lignes=UBound(Split(text, vbCrLf)) + 1

End Function
druggedsephiroth Messages postés 71 Date d'inscription samedi 18 mai 2002 Statut Membre Dernière intervention 19 juin 2003
2 août 2002 à 14:58
C'est pas mal mais je vois pas le rapport entre le nom de variable Apostrophe et un VbCrlf....
Kayrhan Messages postés 51 Date d'inscription samedi 20 avril 2002 Statut Membre Dernière intervention 14 novembre 2002
1 août 2002 à 19:55
Ouaip il est cool ce code !
cs_Alain Proviste Messages postés 908 Date d'inscription jeudi 26 juillet 2001 Statut Modérateur Dernière intervention 1 février 2015 2
1 août 2002 à 19:53
Voici un code encore plus rapide ( plus court, il ne passe pas par le mid(Texte.......)

Function Lignes(text As String) As Integer

Dim Start As Integer

Lignes = 0

If text = vbNullString Then Exit Function

Do

Start = InStr(Start + 1, text, vbCrLf)
Lignes = Lignes + 1
DoEvents

Loop While Not Start = 0


End Function
cs_Alain Proviste Messages postés 908 Date d'inscription jeudi 26 juillet 2001 Statut Modérateur Dernière intervention 1 février 2015 2
1 août 2002 à 19:34
Tu t'es trompé de rubrique, aucun rapport avec les apis... sinon c'est un bon code.
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 (cs_MEGATRIX)