7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
射天狼 2003-10-23
- 打赏
- 举报
Private Sub Command1_Click()
Dim strTmp As String, strArray() As String
Open "C:\aa.txt" For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
strArray = Split(strTmp, vbCrLf) '将文件数据存到数组中,一个元素代表一行!~~
End Sub
Dim strTmp As String, strArray() As String
Open "C:\aa.txt" For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
strArray = Split(strTmp, vbCrLf) '将文件数据存到数组中,一个元素代表一行!~~
End Sub
OFFICE之门 2003-10-23
- 打赏
- 举报
用FSO
FILE.READLINE
FILE.READLINE
wangwei1980 2003-10-23
- 打赏
- 举报
高手都哪里去了？
wangwei1980 2003-10-23
- 打赏
- 举报
请大家帮帮忙
