读书人

vb2005读取文本到到listview的有关问题

发布时间: 2012-03-04 11:13:33 作者: rapoo

vb2005读取文本到到listview的问题
请问如何将如下格式文本文件读取到listview
temp.txt:

001/002/003
234/344/345
344/546/456
345/345/345


要求listview去掉 "/ "后也按照上面分三列排列

[解决办法]
先沙发
[解决办法]
这个没什么难度的,相当基础的活
[解决办法]
大概是这样吧:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim file As String = My.Application.Info.DirectoryPath & "\temp.txt "
InitializeListView()

With Me.ListView1
.BeginUpdate()
.Items.AddRange(GetListViewItemsFromFile(file))
.EndUpdate()
End With
End Sub

Public Sub InitializeListView()
With Me.ListView1
.BeginUpdate()
.Clear()
With .Columns
.Add( "A ")
.Add( "B ")
.Add( "C ")
End With
.View = View.Details
.EndUpdate()
End With
End Sub

Public Function GetListViewItemsFromFile(ByVal file As String) As ListViewItem()
Dim mList As New List(Of ListViewItem)

Using stream As IO.StreamReader = My.Computer.FileSystem.GetFileInfo(file).OpenText
Dim line As String
With stream
Do
line = .ReadLine
If line IsNot Nothing Then
If line.IndexOf( "/ ") <> -1 Then
mList.Add(New ListViewItem(line.Split( "/ "c)))
End If
End If
Loop Until line Is Nothing
End With
End Using

Return mList.ToArray
End Function
[解决办法]
分解字符串

读书人网 >VB Dotnet

热点推荐