comment fais t'on pour lire ligne par ligne dans un fichier text ou dans RichTextBox
merci

labout
Pour lire dans un fichier texte ligne par ligne

Private Sub btnStringReaderReadFileInLines_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStringReaderReadFileInLines.Click
Dim myStreamReader As StreamReader
Dim myInputString As String
Dim rowCount As Integer = 0

Try
myStreamReader = File.OpenText(txtFileName.Text)
txtFileText.Clear() ' Clear the TextBox

myInputString = myStreamReader.ReadLine()
While Not myInputString Is Nothing
txtFileText.Text += rowCount.ToString()
+ ": " + myInputString + vbCrLf
rowCount += 1
' Read the next line.
myInputString = myStreamReader.ReadLine()
End While
Catch exc As Exception
' Show the error to the user.
MsgBox("File could not be opened or read." + vbCrLf + _
"Please verify that the filename is correct, " + _
"and that you have read permissions for the desired " + _
"directory." + vbCrLf + vbCrLf + "Exception: " + exc.Message)
Finally
' Close the object if it has been created.
If Not myStreamReader Is Nothing Then
myStreamReader.Close()
End If
End Try
End Sub

Salut

Bonjour,
Si mon texte est déjà à l'écran et que je n'ai pas à l'ouvrir.  Dans le menu Outils je dois leur ajouter l'option statistique qui permettra de savoir combien ils ont de mot, de caractère(espace non compris) le nombre avec espace compris, et le nombre paragraphe et le nombre de ligne.

Puis-je trouver ça dans ta formule en vb.net
Merci

Lison49

le nombre de caractère sans espace est
len(replace(richtext.text," ",""))
Avec mon ocx c'est  MsgBox(Len(Replace(RichTextBoxJmb1.RichTextBox.Text, " ", "")))
Le nombre de mots c'est plus compliqué

Une solution, mettre en tableau
atab=split( richtext.text," ")
et ne compter que les éléments de plus d'une lettre
dim nbmot as long
dim i as long
dim atab() as string
nbmot=0

for i=0 to ubound(atab)
  if len(atab(i)>1 then
    nbmot=nbmot+1
  endif
next 



labout