7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2003-10-31
- 打赏
- 举报
Dim filetxt As String, x As Variant, i As Integer
filetxt = String(FileLen(filepath), " ")
Open filepath For Binary As 1
Get #1, , filetxt
Close 1
x = Split(filetxt, vbCrLf)
x(i-1) 就是第i行内容
filetxt = String(FileLen(filepath), " ")
Open filepath For Binary As 1
Get #1, , filetxt
Close 1
x = Split(filetxt, vbCrLf)
x(i-1) 就是第i行内容
78815 2003-10-31
- 打赏
- 举报
确实都可以！！
qjqmoney 2003-10-31
- 打赏
- 举报
同意楼上两位
DeltaCat 2003-10-30
- 打赏
- 举报
dim fso as new filesystemobject
dim txt as textstream
set txt = fso.opentextfile("文件名",forreading)
do while not txt.eof
msgbox txt.readline
loop
dim txt as textstream
set txt = fso.opentextfile("文件名",forreading)
do while not txt.eof
msgbox txt.readline
loop
lxqlogo0 2003-10-30
- 打赏
- 举报
open "c:qq.txt" for input as #1
while not eof(1)
line input #1,txt
text1.text=text1.text & txt & vbcrlf
wend
close #1
while not eof(1)
line input #1,txt
text1.text=text1.text & txt & vbcrlf
wend
close #1
