VBA：Debug.Print沒有換行符？

Question

對於在VBA中進行調試，我的代碼中有幾個Debug.Print聲明。對於行解析塊，我想打印該行，並使用行輸出任何標記inline，而在許多if/elseif/else塊中沒有多個Debug.Print sFlag & sLine語句。

在VBA中有沒有辦法在Debug.Print聲明結束時壓制換行符？

Answer 1

事實證明，只需在您的Debug.Print語句末尾添加分號即可輕鬆完成此操作。像這樣：

While oExec.StdOut.AtEndOfStream = False 
    sLine = oExec.StdOut.ReadLine 
    If bInFileSystem Then 
     If AnalyzeFileSystemLine(sLine) = False Then 
     Debug.Print "[FSERR]: "; 
     End If 
    ElseIf bInWASCheck Then 
     If AnalyzeWASLine(sLine) = False Then 
     Debug.Print "[WASERR]: "; 
     End If 
    End If 

    Debug.Print sLine 
Wend 

所以，一些輸出的將是：

test text things look good! 
[FSERR]: uh oh this file system is at 90% capacity! 
some more good looking text :) 
[WASERR]: oh no an app server is down!