VBA: Debug.Print ohne Newline?

Question

Zum Debuggen in VBA habe ich mehrere Debug.Print Anweisungen in meinem Code. Für einen Zeilenanalyseblock möchte ich die Zeile drucken und alle Flags Inline mit der Zeile ausgeben, ohne mehrere Debug.Print sFlag & sLine-Anweisungen in den vielen if/elseif/else-Blöcken zu haben.

Gibt es innerhalb von VBA eine Möglichkeit, den Zeilenumbruch am Ende einer Debug.Print-Anweisung zu unterdrücken?

Answer 1

Es stellt sich heraus, dass Sie dies einfach tun können, indem Sie einfach ein Semikolon am Ende Ihrer Debug.Print Anweisung hinzufügen. Wie so:

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 

Also, einige Beispielausgabe wird:

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!