テキストファイルで空白の行が作成されないようにする方法

Question

私のテキストファイルに作成されている空白行に関する問題が発生しました。これが発生するのを防ぐ方法はありますか？私は（ボタンは下記掲載のマクロsub test()をポイントである）

00|MAABBJQQ|AJ_20161206_005|||||||||||||||||||||||||| 
*blank row 1 
*blank row 2 
*blank row 3 
*blank row 4 
*blank row 5 

ここ増分機能が含まれている5回私のボタンをクリックしたときはいつでも空白行と

元のテキストファイルのデータが
00|MAABBJQQ|AJ_20161206_001||||||||||||||||||||||||||

を作成しましたあなたのために私が進めていることを理解するための私の増分機能コードです。

Sub test() 
Dim fn As String, txt As String, myVal, temp 
fn = Application.GetOpenFilename("TextFiles,*.txt") 
If fn = "False" Then Exit Sub 
txt = CreateObject("Scripting.FileSystemObject").OpenTextFile(fn).ReadAll 
With CreateObject("VBScript.RegExp") 
    .Global = True 
    .Pattern = "_(\d+)(?=\|)" 
    myVal = Format$(.Execute(txt)(0).submatches(0) + 1, "_000") 
    txt = .Replace(txt, myVal) 
    Open Replace(fn, ".txt", "_Increment.txt") For Output As #1 
     Print #1, txt 
     MsgBox "This is batch No" & myVal 
    Close #1 
End With 
End Sub 

Answer 1

あなたPrint文の末尾にセミコロン;を追加します：Print #文の

Print #1, txt; 

詳細はhereを見つけることができます。 charpos引数の設定に注意してください。セミコロンを使用すると、改行（CRLF）の挿入を抑制します。