@より前の文字列を取り出す関数作成

Question

@より前の文字列を取り出す関数を作成しておりますが、仮に＠より前の関数が変わったとしても
きちんと取り出せるようにしたいですので、どなたかご教示お願いいただけますでしょうか。

mail = "[e-mail]"

ret = GetAlias(mail)
WScript.echo ret

Function GetAlias(mail)
"この部分を関数化"
end function

Answer 1

こんなんでよろしいですか。

Function GetAlias(mail) 
	ms = split(mail,"@")
	GetAlias = ms(0)
end function

Comments

[goldenbad]

こちらで@以前の文字列が取り出せる感じでしょうか。

[goldenbad]

ちなみに、後ろを取り出すパターンはms(0)が変わる感じでしょうか。

[ttyp03]

そのつもりですけど、できないですか？
動作は確認してます。
後ろを取り出す場合は、ms(1)になります。

[goldenbad]

承知しました。確認します。