如何只选择文本文件一行中的指定单词?
How to choose only specified words in a line of a text file?
我想在从文本文件的一行中选择的列表视图中显示单词,例如 "The quick brown fox jump over",现在我只想选择单词 "quick fox over" 然后在列表视图中显示它们,我的代码如下
Try
Dim path As String = openFileDialog1.FileName
Dim SR As New IO.StreamReader(path)
Do While SR.Peek() <> -1
Dim LVItem As New ListViewItem
StrTemp = SR.ReadLine.Split(New String() {}, StringSplitOptions.RemoveEmptyEntries)
LVItem.Text = StrTemp(0).ToString
ListView1.Items.Add(LVItem)
LVItem.SubItems.Add(StrTemp(1).ToString)
LVItem.SubItems.Add(StrTemp(2).ToString)
LVItem.SubItems.Add(StrTemp(3).ToString)
LVItem.SubItems.Add(StrTemp(4).ToString)
LVItem.SubItems.Add(StrTemp(5).ToString)
LVItem.SubItems.Add(StrTemp(6).ToString)
Loop
SR.Close()
Catch Ex As Exception
MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
End Try
它的作用是逐行读取文本文件,删除空格并将输出显示到列表视图中,每列 1 个单词。
您需要第 2、3、5 和 6 列:
LVItem.Text = StrTemp(2).ToString
ListView1.Items.Add(LVItem)
LVItem.SubItems.Add(StrTemp(3).ToString)
LVItem.SubItems.Add(StrTemp(5).ToString)
LVItem.SubItems.Add(StrTemp(6).ToString)
您必须调整 ListView 列 Headers 以匹配提取的新数据。
我想在从文本文件的一行中选择的列表视图中显示单词,例如 "The quick brown fox jump over",现在我只想选择单词 "quick fox over" 然后在列表视图中显示它们,我的代码如下
Try
Dim path As String = openFileDialog1.FileName
Dim SR As New IO.StreamReader(path)
Do While SR.Peek() <> -1
Dim LVItem As New ListViewItem
StrTemp = SR.ReadLine.Split(New String() {}, StringSplitOptions.RemoveEmptyEntries)
LVItem.Text = StrTemp(0).ToString
ListView1.Items.Add(LVItem)
LVItem.SubItems.Add(StrTemp(1).ToString)
LVItem.SubItems.Add(StrTemp(2).ToString)
LVItem.SubItems.Add(StrTemp(3).ToString)
LVItem.SubItems.Add(StrTemp(4).ToString)
LVItem.SubItems.Add(StrTemp(5).ToString)
LVItem.SubItems.Add(StrTemp(6).ToString)
Loop
SR.Close()
Catch Ex As Exception
MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
End Try
它的作用是逐行读取文本文件,删除空格并将输出显示到列表视图中,每列 1 个单词。
您需要第 2、3、5 和 6 列:
LVItem.Text = StrTemp(2).ToString
ListView1.Items.Add(LVItem)
LVItem.SubItems.Add(StrTemp(3).ToString)
LVItem.SubItems.Add(StrTemp(5).ToString)
LVItem.SubItems.Add(StrTemp(6).ToString)
您必须调整 ListView 列 Headers 以匹配提取的新数据。