Lire un rich text box en vb.net

Question

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

cs_labout · Answer

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

Lison49 · Answer

Bonjour, 
Si mon texte est d&#233;j&#224; &#224; l'&#233;cran et que je n'ai pas &#224; l'ouvrir.  Dans le menu Outils je dois leur ajouter l'option statistique qui permettra de savoir combien ils ont de mot, de caract&#232;re(espace non compris) le nombre avec espace compris, et le nombre paragraphe et le nombre de ligne.

Puis-je trouver &#231;a dans ta formule en vb.net
Merci


Lison49

cs_labout · Answer

le nombre de caract&#232;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&#233;

Une solution, mettre en tableau
atab=split( richtext.text," ")
et ne compter que les &#233;l&#233;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

Lire un rich text box en vb.net

3 réponses

Discussions similaires