互动
·配合正则表达式的replace方法和vbs的substring函数写一个
·??!       substring(xxx@sohu.com,5,12)