WScript.Echo支持哪些数据类型输出

WScript.Echo 是 VBScript 中用于输出的核心方法，支持多种数据类型和简单的格式化操作。以下是其详细的数据类型支持和格式化技巧：

---

一、支持的数据类型

WScript.Echo 可以直接输出以下数据类型，无需显式转换：

1. 字符串（String）

• 示例：

  WScript.Echo "Hello, World!"  ' 直接输出字符串
  

2. 数值（Numeric）

• 整数（Integer/Long）：

  Dim num: num = 42
  WScript.Echo "整数: " & num  ' 输出: 整数: 42
  

• 浮点数（Single/Double）：

  Dim pi: pi = 3.1415926
  WScript.Echo "圆周率: " & pi  ' 输出: 圆周率: 3.1415926
  

3. 布尔值（Boolean）

• 自动转换为 True 或 False 字符串：

  Dim isReady: isReady = True
  WScript.Echo "状态: " & isReady  ' 输出: 状态: True
  

4. 日期时间（Date）

• 默认按系统区域设置格式显示：

  Dim nowTime: nowTime = Now()
  WScript.Echo "当前时间: " & nowTime  ' 输出类似: 当前时间: 2023/10/5 14:30:00
  

5. 对象（Object）

• 自动调用对象的默认属性（如 Name、Value 等）：

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.CreateTextFile("C:\test.txt", True)
  WScript.Echo "文件对象: " & objFile  ' 输出文件对象的默认属性（如路径）
  

6. 数组（Array）

• 需手动遍历或拼接输出：

  Dim fruits(2)
  fruits(0) = "Apple"
  fruits(1) = "Banana"
  fruits(2) = "Cherry"
  
  ' 方法1：逐个输出
  For Each fruit In fruits
      WScript.Echo fruit
  Next
  
  ' 方法2：拼接为字符串
  WScript.Echo "水果列表: " & Join(fruits, ", ")  ' 输出: 水果列表: Apple, Banana, Cherry
  

7. Null 或 Empty

• 输出为空字符串或特定提示：

  Dim varNull, varEmpty
  varNull = Null
  varEmpty = Empty
  WScript.Echo "Null值: " & CStr(varNull)  ' 输出: Null值: (空)
  WScript.Echo "Empty值: " & varEmpty      ' 输出: Empty值: (空)
  

---

二、格式化输出技巧

WScript.Echo 本身不支持复杂的格式化（如固定小数位数、对齐等），但可通过以下方法实现：

1. 字符串拼接与转义字符

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

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

• 制表符：vbTab：

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

2. 数值格式化

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

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

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

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

3. 日期格式化

• 使用 FormatDateTime 函数：

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

4. 条件判断与三元表达式

• 使用 IIf 函数实现简单条件输出：

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

5. 自定义分隔符（多参数输出）

• WScript.Echo 默认用空格分隔多个参数，可通过字符串拼接自定义：

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

---

三、完整示例

Option Explicit

' 数据类型示例
Dim str, num, flag, dt, obj, arr(2), nullVar
str = "VBScript"
num = 42.5
flag = True
dt = Now()
Set obj = CreateObject("Scripting.Dictionary")
obj.Add "Key", "Value"
arr(0) = "Red": arr(1) = "Green": arr(2) = "Blue"
nullVar = Null

' 格式化输出
WScript.Echo "=== 数据类型演示 ===" & vbCrLf & _
           "字符串: " & str & vbCrLf & _
           "数值: " & FormatNumber(num, 1) & vbCrLf & _
           "布尔值: " & IIf(flag, "是", "否") & vbCrLf & _
           "日期: " & FormatDateTime(dt, vbLongDate) & vbCrLf & _
           "对象属性: " & obj("Key") & vbCrLf & _
           "数组: " & Join(arr, ", ") & vbCrLf & _
           "Null值: " & CStr(nullVar)

输出效果：

=== 数据类型演示 ===
字符串: VBScript
数值: 42.5
布尔值: 是
日期: 2023年10月5日
对象属性: Value
数组: Red, Green, Blue
Null值: 

---

四、注意事项

1. 对象输出限制：

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

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

2. 性能优化：

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

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

3. 替代方案：

   • 需要复杂格式化时，可输出到文件或使用 MsgBox（带图标/按钮）：

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

通过灵活组合数据类型和格式化技巧，WScript.Echo 可以满足大多数脚本的输出需求。对于高级场景，建议结合 FileSystemObject 或第三方组件实现更丰富的功能。