Total de ligne dans un texte rapide

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 780 fois - Téléchargée 42 fois

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
-
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
-
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
-
Ouaip il est cool ce code !
cs_Alain Proviste
Messages postés
910
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
1 -
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
910
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
1 -
Tu t'es trompé de rubrique, aucun rapport avec les apis... sinon c'est un bon code.

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.