VB读取文件复制粘贴问题

Question

1.VB读取文本文件或ini文件，2.读取第一行并且自动复制到剪贴板，3.然后粘贴出来，4.VB又读取第二行，如此循环，只到内容读完。能实现的送100分，百度我有两个号

Answer 1

open "c:\1.ini" for input as #1'打开文件
do while not eof(1) '循环读取
line input #1,s '先读取第一行，赋值给变量s 再次循环到此为第二行
Clipboard.Clear'清空剪切板
Clipboard.SetText s'将s的值放到剪切板
text1.text=text1.text & Clipboard.GetText & vbcrlf '将剪切板的内容放到text1，Clipboard.GetText为剪切板内容
loop '循环语句
close #1 '关闭文件 以便下次使用

Answer 2

sub test()
dim mystring as string
Open "c:\1.log" For Input As #1
Do While Not EOF(1)
Clipboard.Clear
Line Input #1, mystring
Clipboard.SetText mystring
Debug.Print Clipboard.GetText
Loop
Close #1
end sub
因为不知道你要粘贴到什么地方,所以我直接用DEBUG输出了.本回答被提问者和网友采纳