如何把n行12列的txt文件数据导入到msflexgrid中？

Question

有一个txt文件，有12列，若干行，是从其他地方拷贝过来的数据，行数不确定，每个数据中间是用 tab 分隔的。vb5 + windows xp 无法使用 split 函数command1 + msflexgrid1（没有进行任何设置）现在想要实现的第一个目标是：点击 command1 之后，从 app.path 的 test.txt 中把数据读到 msflexgrid1 中，msflexgrid1 的行数需要根据 txt 的行数动态添加。请问：这个目标有办法实现吗？谢了先！

Answer 1

Private Sub Command1_Click()
    Dim s As String
    MSFlexGrid1.Cols = 12
    Open "f:\test.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, s
        MSFlexGrid1.AddItem s, MSFlexGrid1.Rows - 1
    Loop
    'MSFlexGrid1.RemoveItem MSFlexGrid1.Rows - 1
    Close 1
End Sub

Answer 2

请问：我现在想在第一列填入id号，并让第一列不允许编辑（已添加text）。
能否把第一列整个空出来，从第二列开始读入数据？还有，怎么让第一列不被编辑？

Answer 3

AddItem 方法靠字符串中的tab来分隔各列
如果想跳过一列，可以考添加tab实现
比如：
MSFlexGrid1.AddItem vbtab & vbtab & s, MSFlexGrid1.Rows - 1
可以跳过开始的两列