String 如何逐字阅读字符串

String 如何逐字阅读字符串,string,vbscript,word,String,Vbscript,Word,我有一个VBScript,可以从txt文件中读取用户名。用户名来自目录的一个长字符串和后面的一些附加信息。使用VBS,我从文本文件中删除了行的第一部分和最后一部分,以便只读取名称 现在,我的变量(strName)将给我类似于:“johndoe”。我的最终目标是将其转换为电子邮件地址。域始终是相同的,因此我需要能够从“john doe”开始,并以“john结束。doe@gmail.com“(不指定实际域,因为它与问题无关)。现在我可以在字符串中添加“@gmail.com”`了,但我不知道如何完成其

我有一个VBScript,可以从txt文件中读取用户名。用户名来自目录的一个长字符串和后面的一些附加信息。使用VBS,我从文本文件中删除了行的第一部分和最后一部分,以便只读取名称

现在,我的变量(
strName
)将给我类似于:
“johndoe”
。我的最终目标是将其转换为电子邮件地址。域始终是相同的,因此我需要能够从
“john doe”
开始,并以
“john结束。doe@gmail.com“
(不指定实际域,因为它与问题无关)。现在我可以在字符串中添加“@gmail.com”`了,但我不知道如何完成其余的操作

我正在考虑将名字读入一个新变量
strFirstName
,将姓氏读入第二个变量
strLastName
,然后沿以下行添加一行:

strName = strFirstName + "." + strLastName + "@gmail.com"
我可以用什么一次只读一个单词?我在脚本中使用了以下函数来获取名称,但由于名称的长度可能会有所不同,因此我不能使用相同的函数

strName = Mid(strName, 4 + 11)
strName = Left(strName, (LEN(strName)-13))

如果源字符串的格式始终为:

C:\Directory\first last\OS - Information
然后,您可以使用一些
Split()
s提取名字和姓氏:

第一个
Split()
通过
\
分隔字符串,创建4个元素。由于您只关心第三个字符串(索引
2
),因此只需附加
(2)
,即可返回该字符串

现在我们有了
johndoe
,只需再次使用
Split()

现在,您可以创建您的电子邮件地址:

strEmail = strFirst & "." & strLast & "@gmail.com"

您的源字符串看起来像什么?它是在单词之间有空格还是存在其他字符?源字符串的开头看起来像:“C:\Directory\John Doe\OS-Information”。在运行了我最初文章末尾的两行之后,现在的字符串是:John Doe。在约翰和母鹿之间只有一个空间。它工作得很好!非常感谢你的帮助!非常感谢
strEmail = strFirst & "." & strLast & "@gmail.com"