基本信息
源码名称：vb读取和写入文件
源码大小：7.04KB
文件格式：.zip
开发语言：ASP
更新时间：2024-08-02
友情提示：（无需注册或充值，赞助后即可获取资源下载链接）
嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300
本次赞助数额为： 2 元×
微信扫码支付：2 元
×
请留下您的邮箱，我们将在2小时内将文件发到您的邮箱
源码介绍
基础的文本读入和导出
Dim i%
i = 1
Do Until i = 11
Print i
i = i 1
Loop
End Sub
Private Sub 数据读取_Click()
List1.Clear
Open App.Path & "\t1.txt" For Input As #1
Do Until EOF(1)
Dim t$
Line Input #1, t
List1.AddItem t
Loop
Close #1
End Sub
基础的文本读入和导出
Private Sub Command1_Click()
Dim i%
i = 1
Do Until i = 11
Print i
i = i 1
Loop
End Sub
Private Sub 数据读取_Click()
List1.Clear
Open App.Path & "\t1.txt" For Input As #1
Do Until EOF(1)
Dim t$
Line Input #1, t
List1.AddItem t
Loop
Close #1
End Sub