Question

对于VBA中的调试，我的代码中有几个Debug.Print语句。对于行解析块，我想打印该行，并使用该行输出任何标记内联，而在多个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!

VBA：没有换行的Debug.Print？

1 个答案: