如何将循环读取的子字符串分配给单独的变量？

Question

有一个文本文件，其中包含以下数据：

1000 abc@gmail.com  
1005 xyz@ymail.com  
1003 pqr@gmail.com

我想从第一行选择号码和电子邮件地址，将它们保存在单独的变量中，执行一些操作，然后从第二行选择号码和电子邮件，执行一些操作，然后就这样继续。

请告诉我如何在VBScript中执行此操作。

以下是我打开和阅读文本文件的代码：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\temp\test.txt", 1)
Do While Not objFile.AtEndOfStream = True
    strContents = objFile.ReadLine
    WScript.Echo strContents
Loop
objFile.Close

Answer 1

您是否在询问如何Split字符串？

Do Until objFile.AtEndOfStream
    arr  = Split(objFile.ReadLine, " ", 2)
    num  = arr(0)
    mail = arr(1)
    '...
Loop