WScript.Echo支持哪些格式化输出符

在VBScript中，WScript.Echo 本身不直接支持类似C语言printf的格式化符号（如%d、%f等），但可通过以下方法实现类似效果：

一、基础格式化技巧

1. 字符串拼接
   使用 & 运算符连接变量和字符串，实现简单格式化：

   Dim name, age
   name = "Alice"
   age = 25
   WScript.Echo "姓名: " & name & ", 年龄: " & age  ' 输出: 姓名: Alice, 年龄: 25
   

2. 换行与制表符

   • 换行：vbCrLf（回车换行）或 Chr(10)（换行）：

     WScript.Echo "第一行" & vbCrLf & "第二行"  ' 输出两行文本
     

   • 制表符：vbTab：

     WScript.Echo "姓名" & vbTab & "年龄" & vbCrLf & "Alice" & vbTab & "25"
     

3. 数值格式化

   • 固定小数位数：使用 FormatNumber 函数：

     Dim price: price = 1234.5678
     WScript.Echo "价格: " & FormatNumber(price, 2)  ' 输出: 价格: 1,234.57
     

   • 千位分隔符：FormatNumber 默认添加：

     WScript.Echo "销售额: " & FormatNumber(1000000, 0)  ' 输出: 销售额: 1,000,000
     

4. 日期格式化
   使用 FormatDateTime 函数：

   Dim dt: dt = #10/5/2023#
   WScript.Echo "短日期: " & FormatDateTime(dt, vbShortDate)  ' 输出: 短日期: 2023/10/5
   WScript.Echo "长日期: " & FormatDateTime(dt, vbLongDate)   ' 输出: 长日期: 2023年10月5日
   

二、高级格式化方法

1. 条件判断与三元表达式
   使用 IIf 函数实现简单条件输出：

   Dim score: score = 85
   WScript.Echo "结果: " & IIf(score >= 60, "及格", "不及格")  ' 输出: 结果: 及格
   

2. 数组与循环输出

   • 遍历数组：

     Dim fruits(2), i
     fruits(0) = "Apple": fruits(1) = "Banana": fruits(2) = "Cherry"
     For i = LBound(fruits) To UBound(fruits)
         WScript.Echo "水果 " & i & ": " & fruits(i)
     Next
     

   • 拼接为字符串：

     WScript.Echo "水果列表: " & Join(fruits, ", ")  ' 输出: 水果列表: Apple, Banana, Cherry
     

3. 自定义分隔符
   通过字符串拼接实现复杂分隔：

   Dim a, b, c
   a = 10: b = 20: c = 30
   WScript.Echo "a=" & a & ",b=" & b & ",c=" & c  ' 输出: a=10,b=20,c=30
   

三、与C语言格式化的对比

功能	C语言（printf）	VBScript（WScript.Echo）
整数格式化	%d（十进制）、%x（十六进制）	需手动转换或拼接（如 CInt(var)）
浮点数格式化	%f（固定小数）、%e（科学计数）	使用 FormatNumber(var, n)
字符串对齐	%10s（右对齐）、%-10s（左对齐）	需手动填充空格或使用 PadLeft/PadRight（需自定义函数）
日期时间	strftime 函数	使用 FormatDateTime 函数

四、注意事项

1. 性能优化
   频繁调用 WScript.Echo 可能影响性能，尤其在循环中。建议先拼接字符串再输出：

   Dim result, i
   result = ""
   For i = 1 To 100
       result = result & "迭代 " & i & vbCrLf
   Next
   WScript.Echo result
   

2. 对象输出限制
   若对象无默认属性，直接输出可能显示类型名称（如 [object]）。需明确指定属性：

   Set objShell = CreateObject("WScript.Shell")
   WScript.Echo "计算机名: " & objShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
   

3. 替代方案

   • 消息框：使用 MsgBox 显示带图标/按钮的对话框：

     MsgBox "操作完成!", vbInformation, "提示"
     

   • 文件输出：结合 FileSystemObject 写入文件：

     Set objFSO = CreateObject("Scripting.FileSystemObject")
     Set objFile = objFSO.OpenTextFile("C:\output.log", 8, True)
     objFile.WriteLine "日志记录时间: " & Now()
     objFile.Close