VB中我想自动打出TXT文本里的字母 并且是一行一行的打 该怎么写啊

来源：百度知道 编辑：UC知道 时间：2024/05/21 19:57:35
TXT文件里比如说第一行是shick1 第2行是shick1mks2 一行一行的重新输出 或键盘按出也行 方正都是字母的 没人名字
该怎么写呢 每天要添表 看的眼睛都花了 谁能教下
不要他显示 只要它一行一行的读 在别的地方在写出
读一行写一行就这样

不知道你是想只是显示一行（读出一行），还是怎么样？

Private Sub Command1_Click()
Set fso = CreateObject("scripting.filesystemobject")
Set file = fso.opentextfile("d:\111.txt")
Do While file.atendofstream <> True
Text1.Text = file.readline
Loop
file.Close
End Sub

vb中有fso(FileSystemObject文件操作函数)对象!fso中有读取 一行的函数,当他读一行的时候输出一行!不就好了!

多看看FileSystemObject的说明!