|
发表于 2020-1-22 00:09:01
|
显示全部楼层
Dim dlg As New OpenFileDialog
dlg.InitialDirectory = "c:\"
dlg.Multiselect = False
dlg.CheckFileExists = True
If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim fs As IO.FileStream = dlg.OpenFile()
Dim bzData As Byte()
ReDim bzData(fs.Length)
fs.Read(bzData, 0, fs.Length - 1)
Dim strFileData As String = System.Text.Encoding.ASCII.GetString(bzData)
Dim res As System.Text.RegularExpressions.MatchCollection
res = System.Text.RegularExpressions.Regex.Matches(strFileData, "\r\n")
Dim strRes As String = String.Format("一共有{0:d}行。", res.Count + 1)
MessageBox.Show(strRes)
End If |
|