En supposant que vous souhaitez diviser sur les nouvelles lignes à l'aide de String.Split retourne un tableau contenant les pièces:
Dim parts AsString()= myString.Split(newString(){Environment.NewLine},
StringSplitOptions.None)
Ce sera de la plate-forme, de sorte que vous pouvez diviser sur "\n", "\r", "\n\r" ou une combinaison d'entre eux. String.Split a une surcharge qui prend un tableau de chaînes à la les chaînes que vous voulez diviser.
Dim strLines()AsString= Clipboard.GetText.Replace(Chr(13),"").Split(Chr(10))
J'aime le faire de cette façon. On ne peut que diviser sur un char, mais dans la plupart des cas de Saut de ligne est de deux personnages, un Retour Chariot (0x0D ALIAS Char 13) et un saut de Ligne (0x0A ALIAS Char 10). Mais dans d'autres systèmes, c'est juste un LF. J'ai donc tout simplement supprimer toutes les instances de la CR et de se diviser sur la LF.
Dim enter AsString= vbCrLf
Dim linecount AsInteger=0Dim sr AsNew System.IO.StreamReader(yourTextFilePath)
linecount = sr.ReadToEnd.Split(CChar(enter)).Length -1
En supposant que vous souhaitez diviser sur les nouvelles lignes à l'aide de
String.Split
retourne un tableau contenant les pièces:Ce sera de la plate-forme, de sorte que vous pouvez diviser sur
"\n"
,"\r"
,"\n\r"
ou une combinaison d'entre eux.String.Split
a une surcharge qui prend un tableau de chaînes à la les chaînes que vous voulez diviser.OriginalL'auteur
J'aime le faire de cette façon. On ne peut que diviser sur un char, mais dans la plupart des cas de Saut de ligne est de deux personnages, un Retour Chariot (0x0D ALIAS Char 13) et un saut de Ligne (0x0A ALIAS Char 10). Mais dans d'autres systèmes, c'est juste un LF. J'ai donc tout simplement supprimer toutes les instances de la CR et de se diviser sur la LF.
OriginalL'auteur
OriginalL'auteur
OriginalL'auteur