VB读取TXT每一行

Question

就是将TXT内的内容的每一行 显示在 text1中，text1设置为多行显示

还有 j将text2中得内容 每一行保存为txt
请不要 复制粘贴一些网上的 代码，那些我都看过了 ，都不大符合我想要的

Answer 1

写一个sub
sub GetTxt()
dim TempStr$
open "TXT路径，自己填" for input as #1
do while not eof(1)
line input #1,TempStr
text1.text=text1.text & TempStr & vbcrlf
loop
close #1
end sub
'调用示例
private sub command1_click()
gettxt
end sub
'第二个，还是写一个sub
sub SaveTxt()
open "这里写一个txt的路径，如c:\1.txt" for output as #1
print #1,text2.text
close #1
end sub
'调用示例
private sub command2_click()
savetxt
end sub
没有vb调试，如果有小问题，自己调试下本回答被提问者采纳

Answer 2

悬赏分：0

Answer 3

open "c:\1.txt" for input as #1
while not eof(1)
line input #1,s
text1.text=text1.text & s & vbcrlf
wend
close #1

'保存text2
open "c:\1.txt" for output as #1
print #1,text2.text
close #1