的VBScript +正则表达式

Question

 
Dim sString 

sString = "John;Mary;Anne;Adam;Bill;Ester" 

是否有一个正则表达式我可以用它来检索从上面的列表如下：

1. 约翰（;在名称末尾）
2. 安妮（;在起止）
3. 酯（;开头）

我目前使用下面的正则表达式为每个：

 
1. Joh.* 
2. .*An.* 
3. .*st.* 

但是，上述检索整个字符串，而不是我想要的值。我如何获得正确的值？

代码：

 
Dim oRegex : Set oRegex = New RegExp 
oRegex.Global = False 
oRegex.IgnoreCase = False 

'John 
oRegex.Pattern = "Joh.*" 

Set oMatch = oRegex.Execute(sString) 
sName = oMatch(0) 

上面的代码检索，而不是只有约翰整个字符串。同样的问题与其他:(

Answer 1

为什么不直接用这个？

Dim nameArray = Split(sString,";") 

Answer 2

更简单的方法，在你的字符串做split()，然后遍历列表得到你的东西，如

s = split(sString,";") 
for i=Lbound(s) to Ubound(s) 
    ' get your names 
next