一个让人笑的问题？

[maome2005]

比如我想在字符“[e-mail]”取“webmg”或者反之
怎样取？

[3q2008Com]

?left("aaa@aa.a",instr("aaa@aa.a","@")-1)
right (("aaa@aa.a", (len("aaa@aa.a")-instr("aaa@aa.a","@")))

[junki]

VB提供很多操作字符串的函数
也可以使用Mid来载取需要的字串
http://www.china-askpro.com/msg36/qa54.shtml

[province_]

MID(STR,1,INSTR(STR,"@")-1)

[jxgzay]

Private Sub Command1_Click()
string1="[e-mail]"
x = Split(string1"@")
Print x(0)
End Sub
答案：
"webmg"

[igxk]

同意　hot1kang1(许仙) ，province_(雍昊) ，jxgzay(jxgzay) 的方案。

[Kelishating]

同意hot1kang1(许仙) AND province_(雍昊) AND jxgzay(jxgzay) AND igxk(圣漠科) 的方案。

[chen2831278]

可以用ＭＩＤ　来截取字符

[huangfeng0912]

顶

[snowhillxj]

mid,left,right都可以做取字符串的操作，很方便。

[深圳小武]

簡單點的
left([e-mail],5) 得到webmg，just so so !

[phommy]

const str as string="a@b.c"
dim name() as string
split str,"@"
debug.print name(1)

[killl]

MID(STR,1,INSTR(STR,"@")-1)