7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
renchen 2003-03-25
- 打赏
- 举报
如果用FSO的Readline
来实现时，怎么来读取找到的上一行呢？
来实现时，怎么来读取找到的上一行呢？
northwolves 2003-03-24
- 打赏
- 举报
Dim s As String
Open "D:\temp.txt" For Binary As #1
s = Space(LOF(1))
Get #1, , s
Close #1
Open "D:\temp.txt" For Binary As #1
s = Space(LOF(1))
Get #1, , s
Close #1
三楼の郎 2003-03-24
- 打赏
- 举报
Open WorkDir & "text.txt" For Input As #1
Dim t_String As String
t_String = Input(LOF(1), 1)
Close #1
Dim t_String As String
t_String = Input(LOF(1), 1)
Close #1
litsnake1 2003-03-24
- 打赏
- 举报
up
oswica 2003-03-24
- 打赏
- 举报
up
qbilbo 2003-03-24
- 打赏
- 举报
前面忘了关闭文件。
最后加上一句：Close #1
最后加上一句：Close #1
qbilbo 2003-03-24
- 打赏
- 举报
Dim strLong As String, strTemp As String
Open "c:\Frunlog.txt" For Input As #1
Do
Line Input #1, strTemp
strLong = strLong + strTemp + vbNewLine
Loop Until EOF(1)
strLong = Left(strLong, Len(strLong) - 2) '去掉最后一个换行符。
Open "c:\Frunlog.txt" For Input As #1
Do
Line Input #1, strTemp
strLong = strLong + strTemp + vbNewLine
Loop Until EOF(1)
strLong = Left(strLong, Len(strLong) - 2) '去掉最后一个换行符。
Cooly 2003-03-24
- 打赏
- 举报
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Text1.Text, 1)
strGet = f.ReadAll
f.Close
Set f = Nothing
Set fso = Nothing
Set f = fso.OpenTextFile(Text1.Text, 1)
strGet = f.ReadAll
f.Close
Set f = Nothing
Set fso = Nothing
Cooly 2003-03-24
- 打赏
- 举报
FSO的ReadAll
File I/O 的 Input都可以。
查找FAQ或以前的帖子
File I/O 的 Input都可以。
查找FAQ或以前的帖子
