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

Question

我编写了一个简单的函数，用于将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) 

以上内容来自＆＃34; findstr＆＃34;命令。

但是在输出文本文件中，我得到以下内容：

"10101010102 LINE1 DATA (CRLF)
"(CRLF)

有没有办法解决这个问题，因此它只包含第一行而没有＆＃34;＆＃34;？

Answer 1

更改

Write #1, Outline

到

Print #1, Outline

与Print #语句不同，Write #语句在将字符串写入文件时在字符串和引号之间插入逗号。您不必在列表中放置明确的分隔符。 Write＃在将outputlist中的最终字符写入文件后插入换行符，即回车换行符（Chr（13）+ Chr（10））。