user_dgsol 发表于 2016-4-12 13:25:42

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

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

user_wxhhr 发表于 2016-4-12 15:09:28

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

user_weysn 发表于 2016-4-12 15:13:40

请求大侠帮忙！

roach_work 发表于 2016-4-12 15:15:55

好像很复杂啊

朱令之 发表于 2016-4-12 15:33:38

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

unihappy 发表于 2016-4-12 15:37:20

刚试了一下，写了个代码，楼主试试看。
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 发表于 2016-4-12 16:42:45

非常谢谢！

zcy_0610 发表于 2016-4-12 16:57:36

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

nika888 发表于 2016-4-12 17:26:30

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

joingjay 发表于 2016-4-12 17:38:41

谢谢，以后用吧！
页: [1]
查看完整版本: 又来麻烦大家了：如何把TextBox1记录输出到记事本？