又来麻烦大家了：如何把TextBox1记录输出到记事本？

user_dgsol

大家好！我想通过点击点击“导入”按钮，把记事本的记录导入到 TextBox1 或 listbox 控件中，请求高手奉献代码！谢谢

user_wxhhr

求教！高手快帮帮我，在线等！

user_weysn

请求大侠帮忙！

roach_work

好像很复杂啊

朱令之

代码没写过，不过试试用打开文本文件的方式来打开文件，然后把文件内容赋值给你的控件。vb里是完全可以的。vba理论上讲应该也行。

unihappy

刚试了一下，写了个代码，楼主试试看。
Private Sub CommandButton1_Click()
    Dim f As String
    'f = Application.GetOpenFilename("文本文件(*.txt),*.txt", 1)'这句在excel里能用，就是弹出打开文件的对话框，在ppt里不好使
    'If f = "False" Then Exit Sub'配合上面那句用的
   
    Dim fn As Integer
    Dim t As String
    fn = FreeFile
    'Open f For Input As fn'配合打开文件框用的
    Open "c:a.txt" For Input As fn'固定文件名打开文件
    While Not EOF(fn)
        Line Input #fn, t
        ListBox1.AddItem (t)
        'MsgBox MyStr
    Wend
    Close fn
End Sub

dgjsldkjg

非常谢谢！

zcy_0610

谢谢大师的帮忙！有一个问题请教，每次点击按钮就重新导入一次记录没有清除以前的记录。该怎样修改代码呢？

nika888

ListBox1.Clear 添加这一句行了。谢谢！

joingjay

谢谢，以后用吧！