花落谁家，你作主！	盛大widget设计大赛英雄榜

如何读取文本文件指定行？

楼主aixiaohua1314（andysummer）2006-03-31 01:31:58 在 Web 开发 / ASP 提问

比如只读某个文本文件的第5，6，7，8行内容，其它的都跳过。如何读？问题点数：100、回复次数：9Top

1 楼aixiaohua1314（andysummer）回复于 2006-03-31 01:36:33 得分 0

读出这几行，并写入到另外一个文本文件中保存，如何保存？Top

2 楼czq9966（宁录)(毛主席领导咱闹革命……）回复于 2006-03-31 02:27:10 得分 0

dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile(server.mappath("UserID.txt"), ForReading)
For i=1 to 4 '跳过前10行
MyFile.SkipLine
Next
ReadLineTextFile = MyFile.ReadLine
MyFile.Close

这样就把４行以后的内容读到ReadLineTextFile变量里了，

新建一个FSO对象，用MYFILE.WRITE就可以写文件

至于说写，那就很简单了，也是用FSO来Top

3 楼czq9966（宁录)(毛主席领导咱闹革命……）回复于 2006-03-31 02:29:30 得分 0

睡觉了，不行了Top

4 楼czq9966（宁录)(毛主席领导咱闹革命……）回复于 2006-03-31 02:30:13 得分 0

http://www.sou5.cn/sou5/showArt.php?id=1810Top

5 楼aixiaohua1314（andysummer）回复于 2006-03-31 02:33:03 得分 0

哈哈，你熬不住了呀，我也睡了，今天收获不小，Top

6 楼zhanghongwen（流氓蚊子）回复于 2006-03-31 08:57:33 得分 0

FSO.Top

7 楼sky0120（忍者鱼）回复于 2006-03-31 09:42:36 得分 0

楼主是个痴情人儿哦~~~Top

8 楼aixiaohua1314（andysummer）回复于 2006-03-31 18:19:09 得分 0

解决不了，up。Top

9 楼dragonhell（冷箫吟）回复于 2006-03-31 22:19:29 得分 100

' 写文件操作
If FSO.FileExists(File) = True Then '判断该文件是否存在
'建立 TextStream 对象 CTF
Set CTF = FSO.OpenTextFile(File, 8, False, 0) '打开文件, 详见说明
Else
Set CTF = FSO.CreateTextFile(File,False, False) '新建文件
End If
CTF.Write "<P>第一个字符串; " '写字符串
CTF.WriteLine "第二个字符串; " '写字符串, 并加上一个换行符
CTF.Write "第三个字符串; "
CTF.Close '注意要关闭文件

' 读文件操作
Set CTF = FSO.OpenTextFile(File, 1,,0)
Do While CTF.AtEndOfStream <> True '判别是否文件结尾（循环语句）
Str = CTF.ReadLine '（每次）读取一行
StrNoHTML = StrNoHTML & Str & "<BR>" & VbCrLf
StrHTML = StrHTML & Server.HTMLEncode(Str) & "<BR>" & VbCrLf
Loop
Response.Write StrNoHTML
Response.Write StrHTML

CTF.Close
Set CTF = Nothing '释放对象
Set FSO = Nothing
%>Top