找"abc"整段我用的是正则表达式 命名空间前边加上:imports system.text.regularexpressions private sub calculate(byval sender as system.object, byval e as system.eventargs)handles button1.click dim origintext as string = textbox1.text dim re as new regex("w+(abc)") dim resulttext as string = “” for each m as match in re.matches(origintext) resulttext& = m & chr（10） next end sub
