data.txt文件

Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)
'***********************提取Data.txt内容***********************
Const ForReading = 1
Dim fso
Set fso = CreateObject("s cripting.FileSystemObject")
Dim txtFile,szContent
Set txtFile = fso.OpenTextFile("E:\DATA.TXT",ForReading)
szContent =txtFile.ReadAll
txtFile.close
'***********************读取指定行和列的数据***********************
Dim iReadRow,iReadCol
iReadRow = 3
iReadCol = 2
Dim RowsContent
RowsContent = Split(szContent,vbCrLf) '#按回车符分割数组
Dim ColsContent
ColsContent = Split(RowsContent(iReadRow-1)," ") '#RowsContent(iReadRow-1)即为第n行的数据
HMIRuntime.Trace "The Data is :" & ColsContent(iReadCol-1) & vbCrLf
End Sub