VBA:调试。打印没有换行符？

Question

为了在 VBA 中进行调试，我的代码中有多个 Debug.Print 语句。对于行解析 block ，我想打印该行，并与该行一起输出任何标志 inline ，而无需在整个过程中使用多个 Debug.Print sFlag & sLine 语句许多 if/elseif/else block 。

在 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!