代码之家  ›  专栏  ›  技术社区  ›  onlyf

使用隐藏的命令窗口运行cmd命令

  •  1
  • onlyf  · 技术社区  · 7 年前

    我编写了一个简单的函数,将Access 2010中特定文本框的值输出到文本文件

    Private Sub ProcessButton_Click()
    MsgBox ("Into Process Button Click")
    
    ' Assign found line to variable
    Dim Outline As String
    Outline = Me.TextboxFound.Value
    
    
    'Save record to file
    strFile_Path = OutputFile
    Open strFile_Path For Append As #1
    Write #1, Outline
    Close #1
    
    
    ' Update db table
    
    ' Clear Fields
    Me.TextBoxPod.Value = Null
    Me.TextBoxDate.Value = Null
    Me.TextboxFound.Value = Null
    Me.TextBoxPod.SetFocus
    
    
    
    End Sub
    

    我对上述代码的问题是: Me.TextBoxFound.Value 在我的例子中,有

    Me.TextBoxFound.Value = 10101010102 LINE1 DATA(CRLF) 
    

    以上内容由“findstr”命令生成。

    但在输出文本文件中,我得到以下内容:

    "10101010102 LINE1 DATA (CRLF)
    "(CRLF)
    

    是否有办法解决此问题,使其仅包含第一行而不包含“”?

    1 回复  |  直到 7 年前
        1
  •  1
  •   braX    7 年前

    改变

    Write #1, Outline
    

    Print #1, Outline
    

    Print # 声明 Write # 语句在项目之间插入逗号,并在字符串写入文件时在字符串周围加引号。您不必在列表中放置显式分隔符。Write#将outputlist中的最后一个字符写入文件后,插入换行符,即回车换行符(Chr(13)+Chr(10))。