Private Function VBF(ByVal texte As String) As String
Dim Result As String
Result = texte
MsgBox(Result)
For Each ligne As String In texte.Split(NewLine)
ligne = ligne.Replace(NewLine, "")
Dim snewline As String = ligne.Trim(" ")
Dim schar As String = snewline.ToCharArray(0, 1)
MsgBox(schar)
If IsNumeric(schar) Then
snewline = snewline.TrimStart(" ")
snewline = snewline.Substring(2)
End If
Result = Result.Replace(ligne, snewline)
Next
MsgBox(Result)
Return Result
End Function
J'apelle la fonction avec le code de la page http://www.vbfrance.com/codes/TESTER-CONNECTION-INTERNET-PING_25004.aspx
en le mettant dans une RichTextBox nommé RTB
Lorsque je fait je fais RTB.Text.Split(Newline).Length ca me renvoie 1 alors qu'il y a 99 lignes !
Mon ce code permet normalement d'enlever les numéros de lignes et leurs .
ex 22. ' Ligne de code
Redman