主题：如何定位字符位置

dim s as string = "2室1卫"

dim i as integer = s.indexof("室")

if i > -1 then

msgbox(s.substring(0,i))

end if