Access2010の特定のテキストボックスの値をテキストファイルに出力する簡単な関数を作成しました
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)
これを修正して、最初の行のみが含まれ、「」が含まれないようにする方法はありますか?
変化する
Write #1, Outline
に
Print #1, Outline
Print #
ステートメントとは異なり、ステートメントはWrite #
、ファイルに書き込まれるときに、アイテム間にコンマを挿入し、文字列を引用符で囲みます。リストに明示的な区切り文字を入れる必要はありません。Write#は、outputlistの最後の文字をファイルに書き込んだ後、改行文字、つまりキャリッジリターンラインフィード(Chr(13)+ Chr(10))を挿入します。
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加