VBScript 维护迁移：用 PowerShell 重写时长汇总脚本

本节目标

把旧 VBScript 的逐行文本统计需求改写为 PowerShell 函数，保留明确的输入约束、输出结果与失败行为，避免只做语法替换。

环境与运行方法

本篇迁移后的完整示例使用 PowerShell 7，保存为 lesson.ps1，执行 pwsh -NoProfile -File lesson.ps1。旧 VBScript 宿主依赖 Windows 组件状态，本篇不要求启用旧组件；实际运行验证针对迁移后实现。

核心思路

迁移先梳理脚本做了什么：接收文本时长，拒绝坏记录，输出总和。旧脚本若依赖 On Error Resume Next，可能在错误后继续使用不完整结果。新实现应显式规定失败策略，而不是把错误忽略机制原样搬过去。

完整示例

function Get-TotalMinutes {
    param([string[]]$Lines)
    $total = 0
    foreach ($line in $Lines) {
        $value = 0
        if (-not [int]::TryParse($line, [ref]$value) -or $value -lt 0 -or $value -gt 1440) {
            throw 'invalid minutes'
        }
        $total += $value
    }
    return $total
}
Write-Output ('total={0}' -f (Get-TotalMinutes -Lines @('20','35','0')))
try {
    Get-TotalMinutes -Lines @('20','bad') | Out-Null
} catch {
    Write-Output 'invalid'
}

预期输出

total=55
invalid

逐步理解

函数将文本解析、范围检查和累计集中管理。遇到 bad 时 throw 终止本次汇总，调用边界 catch 转换为失败提示，不会返回看似完整的部分总和。成功输出流只保留约定结果。

旧 VBScript 中的对象创建、文件编码、日期地区设置和 COM 调用需要逐项迁移，不能认为换一个循环语法就等价。可以先提取纯数据处理逻辑，建立固定输入输出测试，再替换系统交互部分。

常见问题与边界

• 本篇示例是迁移后的 PowerShell，不是可直接交给 cscript 的 VBScript。
• 忽略全部错误可能掩盖部分处理失败。
• 系统接口和文件编码需分别验证。

动手练习

输入改成空数组和含负数的数组，说明预期。

参考答案

空数组按本契约返回零；负数使整个汇总失败，不返回部分结果。若产品希望跳过坏行，应另外返回成功记录数与错误清单，不能静默改变策略。