使用MSHFLEXGRID怎么从文本文档中读取数据。

[jonahclinton]

问题大概就是这样。使用MSHFLEXGRID从FILEIO.TXT中提取数据。
然后在MSHFLEXGRID中显示出来。

[tztz520]

Private Sub Command2_Click()
Dim s As String, ls_Content() As String
Dim I As Long, II As Integer
Dim LogCount As Long

Open App.Path & "\aa.txt" For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
ls_Content = Split(s, vbCrLf)
LogCount = UBound(ls_Content, 1) - 1

MSFlexGrid1.Cols = 2
MSFlexGrid1.Rows = LogCount + 1
MSFlexGrid1.Col = 1
For I = 0 To LogCount
MSFlexGrid1.Row = I
MSFlexGrid1.Text = ls_Content(I)
Next I
End Sub

[jonahclinton]

能简单解释解释吗？我刚开始学MSHFLEXGRID。

谢谢

[excuseser]

Open App.Path & "\aa.txt" For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
ls_Content = Split(s, vbCrLf) '以还行为界存在数组
LogCount = UBound(ls_Content, 1) - 1 ‘数组维数

MSFlexGrid1.Cols = 2 ‘2列
MSFlexGrid1.Rows = LogCount + 1 ’维数 + 1 行
MSFlexGrid1.Col = 1
For I = 0 To LogCount
MSFlexGrid1.Row = I
MSFlexGrid1.Text = ls_Content(I) ’往MSFlexGrid1里一个一个填入数组里的东西

Next I
End Sub
有什么要解释的？MSFlexGrid1.Text递增，如果使用MSFlexGrid1.TextMatrix（*，*）或许更容易理解。

[jonahclinton]

用GET应该怎么做呀~~~~

[coslightyuan]

首先确定一下你的文本文档是顺序存储还是随机存储，若是顺序存储，最好每个记录存为1行，这样可以用Line input语句将每行信息读出，在利用flex的textmatrix 属性赋值；
若是随机存储，则最好自定义一个数据类型，含有记录id 和接收字符串数组，通过get语句获得文件中的记录。

type Receive
RecordId as byte
RecordInfo as string*10
end type

设Receive1已预先声明为Receive类型，先将Receive1.RecordId赋值为相应的记录好，利用

Get fileId,Receive1.RecordId,Receive1.RecordInfo即可将内容取出，在利用利用flex的textmatrix 属性赋值。
注意，文件存的格式必须与取的格式对应

[啊呀]

可以用 tab 作为分隔符存储于文本中，
这样可以进行如下操作：
lineinput文本赋给字符串 -〉mshflexgrid.additem(字符串)
直接添加行，方便

[superxiumu]

mark