如何一行行地读取文件？

ttx9n · 发表于 2006-11-16 00:00:00

dim input(30)

' 定义一个数组,大小可随时更改.这里为了显示方便.

file_path=Server.Mappath("index.html")

Set fs=Server.CreateObject("Scripting.FileSystemObject")

Set file_open=fs.OpenTextFile(file_path)

n=0

Do While Not file_open.AtEndOfStream

n=n+1

fileline=file_open.readline

input(i)=fileline

' 将文件内容读入input数组.

Loop

file_open.close

Set fs=Nothing

另外，对于二进制数据，我们也可以用Read()来读取，如：

file_open.Read(200)

就是读取file_open中的200个数据。

do827261756 · 发表于 2022-12-4 05:53:02

看到这帖子真是高兴！

fzyzy · 发表于 2022-12-24 05:29:08

vcxvcxv

雪龙Ui79 · 发表于 2022-12-25 15:40:38

快更新啊，我擦

6hruhg · 发表于 2023-1-13 13:55:47

额UI废物iuhfujewfiewnnfen

lsc54 · 发表于 2023-8-22 04:24:32

看看怎么样再说

r8st9 · 发表于 2023-9-10 02:22:50

好人好人好人好人

leidie123a · 发表于 2024-3-8 13:31:35

为全额万千瓦

feiyasqhr · 发表于 2024-3-30 18:54:21

天天源码论坛

3mfwk4yf · 发表于 2024-4-28 01:21:25

那三门，你们谁寂寞才快乐撒

账号		自动登录	找回密码
密码			立即注册

[编程10000问] 如何一行行地读取文件？