读取txt的几个问题
来源:互联网 发布:网络焦虑症 编辑:程序博客网 时间:2024/05/01 22:13
点击第一个按钮 把C:/123.TXT 读取到 text1 要全部都能显示出来!我试过有的只能显示一行 或不能全部显示
第二个 按下第二个按钮 把 C:/321.TXT 读取到 text2 而且只读取文本的前20行... 后面的省略不读
'text控件的multiline属性都设为true scrollbar属性设成2
'第一个按钮
Private Sub Command1_Click()
Open "c:/123.txt" For Input As #1
Dim Lines As String
Dim NextLine As String
Do Until EOF(1)
Line Input #1, NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)
Loop
Close #1
Text1.Text = Lines
End Sub
'第二个按钮
Private Sub Command2_Click()
Open "c:/321.txt" For Input As #1
Dim Lines As String
Dim NextLine As String
Dim i As Integer
For i = 1 To 20
On Error Resume Next
Line Input #1, NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)
Next i
Close #1
Text2.Text = Lines
End Sub
- 读取txt的几个问题
- txt文件的读取
- Android读取txt的方法
- 读取txt文件的内容
- 读取TXT文件的方法
- 读取txt
- 读取TXT文件,和生成TXT文件的方法
- 读取TXT文件,和生成TXT文件的方法
- python实现txt/csv的读取和写入txt/csv!
- 读取TXT文件内容的方法
- 读取txt文件和ArrayList的操作
- 读取TXT文件内容的方法
- c#读取简单的TXT文件
- J2ME 读取TXT文件的方法
- C#读取TXT文件的代码实现
- 用C#读取txt文件的方法
- qte2读取中文文件的测试.txt
- 快速读取比较大的TXT文件
- 环境变量所在的键
- 在母板捕获控件
- datagrid确认删除
- IO虚拟化和AMD的IOMMU
- 关于设计文档模板
- 读取txt的几个问题
- 实现自定义拖放
- 多层无状中如何对数据集添加静态字段?
- 在struts框架下数据库表单与网页表单的设计
- vsFTPd 服务器初学者指南
- 全排列javascript算法
- AMD的虚拟化技术
- (转)Spring 的优秀工具类盘点,第 1 部分: 文件资源操作和 Web 相关工具类
- 某VIP会员站被挂马 Trojan.Win32.Agent.vty/ down.exe