Question

vb 怎么将文本导入到MSFLEXGRID 控件里

怎么将N行文本， 导入到MSFLEXGRID 控件里
格式为:
张三----男
李四---- 男
小王-----男
李四---- 男
如果有重复项，就不导入重复项，导入成功后，再保存MSFLEXGRID 控件中的内容到文本文档

Answer 1

文本要用分割符隔开。然后用文本流读入。个可以再网上找个例子。具体流程如下
1、open file 这里给你一个列子， 参考一下（vb.net)
private sub 导入()
Dim Swl As StreamReader
Dim fs As New Windows.Forms.OpenFileDialog
fs.Filter = "文本文件(*.txt)|*.txt"
If fs.ShowDialog() = 2 Then
Exit Sub
End If
Swl = New StreamReader(fs.FileName, Encoding.Default, False)
Try
Do While Not Swl.EndOfStream
S = Swl.ReadLine()

‘在这里插入一个过程，把s按照设定好的格式，分割开来插入到msflexgrid中
'----------------------------------------
InsertIntoGridFromText(s）
'-----------------------------------------
Loop
Swl.Close()
Catch ex As Exception
End Try
end sub
private sub InsertIntoGridFromText(byval s as string )
'在这里面实现添加行， 哪找列把读取的文本写入到列单元中。
dim i as integer
for i =0 to 15' 比如有15列
'截取s写入单元格
next

end sub