1.如何打开一个txt文件?打开方法是调用notepad直接打开指定目录下的txt文件显示出来,不是用fso或者open的那种。
2.用传统的I/O文件操作的write语句向一个word或者txt文件里面写数据,数据的前后出现了“引号”如何消除,如果用put语句的话,在数据的前面出现了特殊符号,这个又如何消除?

解决方案 »

  1.   

    第一个问题使用ShellExecute解决
    第二个问题,使用write,put我从未出现题中所提现象,所以不是很清楚
      

  2.   

    这个例子告诉你第一个问题该怎么解决
    新建一个工程,移除form1,新建一个模块。
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    Sub main()
        Dim sTmp As String
        sTmp = InputBox("输入要打开的文本文件路径:", "输入路径")
        ShellExecute 0, "open", sTmp, vbNullString, vbNullString, vbNull
    End Sub
      

  3.   

    要消除引号,解决办法是用Print FileNumber, String 代替 Write FileNumber, String。
    例如:
    Open "C:\1.txt" for Output As #1
      Print #1, "Line1"
      Write #1, "Line2"
    Close #1结果是Line1
    "Line2"