
CODE: [Copy to clipboard]对于读取文件内容到二维数组,你可以使用ADO来实现。Function GetStr(strFile,intRow,intCol)
With CreateObject("Scripting.FileSystemObject").OpenTextFile(strFile)
For i = 1 To intRow - 1
.skipline
Next
strTmp = .readline
GetStr = Mid(strTmp,intCol,1)
End With
End Function
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |