Dim sjfilename = "d:\LSconfig.ini"Dim jihe As new List (of String)jihe.AddRange(FileSys.ReadAllText(sjfilename,Encoding.Default).replace(chr(10), "").Split(chr(13)))Output.Show(jihe.count)