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

qianlan

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

qianlan

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

qianlan

请求大侠帮忙！{:soso_e183:}

xxbb77

好像很复杂啊

erqie

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

erqie

刚试了一下，写了个代码，楼主试试看。
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

qianlan

非常谢谢！

qianlan

erqie 发表于 2011-9-14 11:35
刚试了一下，写了个代码，楼主试试看。
Private Sub CommandButton1_Click()
    Dim f As String

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

qianlan

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

chuhaiou

谢谢，以后用吧！