如何在VBScript中循环读取文本行并拆分内容到独立变量？

没问题，我来帮你完善这段代码，实现循环读取每行内容、拆分数字ID和邮箱地址到独立变量，再逐个处理的需求。

首先，先补全你未完成的文件读取逻辑，再加上行内容拆分和循环处理的核心代码：

' 创建文件系统对象
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 打开目标文本文件（替换成你的文件路径，支持绝对/相对路径）
Set objFile = objFSO.OpenTextFile("你的文件路径.txt", 1) ' 1代表只读模式

' 循环读取每一行直到文件末尾
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine()
    ' 跳过空行（可选，避免处理无效内容）
    If Trim(strLine) <> "" Then
        ' 按空格拆分每行内容，得到包含ID和邮箱的数组
        arrParts = Split(strLine, " ")
        ' 验证拆分结果是否符合预期（避免格式错误的行导致报错）
        If UBound(arrParts) = 1 Then
            ' 将拆分出的内容存入独立变量
            strID = arrParts(0)
            strEmail = arrParts(1)
            
            ' ---------------------------
            ' 在这里执行你需要的对应操作
            ' 示例：打印ID和邮箱
            WScript.Echo "处理ID: " & strID & "，邮箱: " & strEmail
            ' ---------------------------
        Else
            ' 处理格式错误的行（可选）
            WScript.Echo "警告：行内容格式错误，跳过处理：" & strLine
        End If
    End If
Loop

' 关闭文件并释放对象
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing

关键部分说明： #

• 文件打开：OpenTextFile的第二个参数1表示只读模式，如果你需要写入可以换成2（写入）或8（追加）。
• 行拆分：Split(strLine, " ")按单个空格分割内容，如果你遇到多行空格的情况，可以先清理多余空格（比如用Replace(strLine, " ", " ")循环替换），再进行拆分。
• 格式验证：通过UBound(arrParts) = 1判断拆分后的数组是否有两个元素，避免因空行、格式错误的行导致脚本崩溃。
• 资源释放：处理完文件后一定要关闭文件并释放对象，避免资源占用。

如果需要更精准匹配合法的数字ID和邮箱格式，可以改用正则表达式的方式（更健壮）：

' 引入正则表达式对象
Set objRegExp = New RegExp
objRegExp.Pattern = "^(\d+)\s+([a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,})$"
objRegExp.IgnoreCase = True

' 在循环内替换拆分逻辑：
Set objMatches = objRegExp.Execute(strLine)
If objMatches.Count > 0 Then
    strID = objMatches(0).SubMatches(0)
    strEmail = objMatches(0).SubMatches(1)
    ' 执行你的操作...
End If

内容的提问来源于stack exchange，提问作者Wafa Nawaz