网络大杂烩首页

网络大杂烩

  • 网站首页
  • HTML/CSS
  • javascript
  • seo优化
  • PS美工
  • 系统安全
  • 漏洞预警
  • 编程学习
  • 原创专区
  • 【网络大杂烩】是一家综合技术门户,为您提供网站建设,编程开发,安全维护,漏洞预警等技术文章

    技术文章MAP

    文章

    VB中打开和保存txt的总结(textbox与richtextbox)

    日期:2020/1/22 13:40:06来源分类:编程开发

      今天折腾了很长时间的VB主要是利用VB打开文本文档的问题,因为是初学者,所以走了很多的弯路,当然也从很多方面查找了资料,现将自己 的总结如下:

    ———————一 以下是用Textbox控件完成的 ———————————————

     
     Private Sub open_Click()
       comdialog1.Filter = "文档文本(*.txt)|*.txt|所有文件(*.*)|*.*"
       comdialog1.ShowOpen
       Open comdialog1.FileName For Input As #1
       text1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)
       Close #1
     End Sub

      Private Sub save_Click()
        comdialog1.Filter = "文档文本(*.txt)|*.txt|所有文件(*.*)|*.*"
        Open comdialog1.FileName For Output As #1
        Print #1, text1.Text
        Close #1
      End Sub


    -------------------------------- 以下是用richtextbox完成的 -------------------------------------


        Private Sub open_Click()
            comdialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
            comdialog1.ShowOpen
            RichTextBox1.LoadFile comdialog1.FileName
       End Sub

        Private Sub save_Click()
             RichTextBox1.SaveFile comdialog1.FileName, 1
        End Sub
     

    追加保存可以用下面这个

     Open App.Path & "/txt/cuowu.txt" For Append As #1  '打开文件写
    Print #1, Text5.Text
    Close #1
     

    随机推荐

    • 该分类还没有添加任何内容!
    • 该分类还没有添加任何内容!

    Copyright 2005-2019 【网络大杂烩】 版权所有 黑ICP备16886888号

    声明:本站所有文章来自互联网 如有异议 请联系本站管理员