注册 登录
编程论坛 VB.NET论坛

.net初学问题

tagbn 发布于 2009-09-08 12:02, 889 次点击
我是初学。net请问高手们
怎样把txt文本中的数据读取到listview中?
张明 1234 19
读取到listview中
姓名 电话 年龄
4 回复
#2
ecjob2009-09-09 01:40
先把你会的写上来
#3
limeng_HOHO2009-09-09 15:57
Imports

Public Class Form1

    Private Sub writeToListView()
        Dim fs As FileStream = New FileStream("E:\fileName.txt", FileMode.Open)
        Dim sr As StreamReader = New StreamReader(fs)
        Dim str As String = sr.ReadLine()
        Dim substr(0, 2) As String
        substr(0, 0) = str.Substring(0, str.IndexOf(" ")) '张明
        substr(0, 1) = str.Substring(str.IndexOf(" "), str.LastIndexOf(" ") - str.IndexOf(" ") - 1) '1234
        substr(0, 2) = str.Substring(str.LastIndexOf(" "), str.Length - str.LastIndexOf(" ")) '19
        ListView1.Items.Add(substr(0, 0))
        ListView1.Items.Add(substr(0, 1))
        ListView1.Items.Add(substr(0, 2))
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call writeToListView()
    End Sub
End Class


试过了 好用
#4
limeng_HOHO2009-09-09 16:00
substr(0, 0) = str.Substring(0, str.IndexOf(" ")) '张明
substr(0, 1) = str.Substring(str.IndexOf(" "), str.LastIndexOf(" ") - str.IndexOf(" ") - 1) '1234
substr(0, 2) = str.Substring(str.LastIndexOf(" "), str.Length - str.LastIndexOf(" ")) '19

这段按姓名 电话 年龄 分割了子串 有必要就用 没必要就一整串输入就行了
#5
CY198403212010-01-05 16:18
谢了  正在找这些东西
1