代码之家  ›  专栏  ›  技术社区  ›  j johns

通过VBA将ascii art添加到命令提示符

  •  0
  • j johns  · 技术社区  · 1 年前

    shellOUT = oShell.Run("cmd.exe /s /c echo Art Here & " & f & " " & cf, vbNormalFocus, True)

    
           ____             
          / __ \ ___  _   __
         / / / // _ \| | / /
        / /_/ //  __/| |/ / 
       /_____/ \___/ |___/  
                            
    
    
    1 回复  |  直到 1 年前
        1
  •  3
  •   Josh Eller    1 年前

    您可以执行以下操作:

    Dim myArt As String
    
    myArt = _
        "       ____             " & vbNewLine & _
        "      / __ \ ___  _   __" & vbNewLine & _
        "     / / / // _ \| | / /" & vbNewLine & _
        "    / /_/ //  __/| |/ / " & vbNewLine & _
        "   /_____/ \___/ |___/  " & vbNewLine & _
        "                        " & vbNewLine
    
    shellOUT = oShell.Run("cmd.exe /s /c echo " & myArt & ..., vbNormalFocus, True)