参考代码
Dim str As String = "25阿斯蒂芬 lasdfjlldksajflsj" & vbcrlf & vbcrlf & vbcrlf & "田sdafjldasjfllsdasdaf乐山大佛" & vbcrlf & "lafjlsdafjasldkjf吉林大路"msgbox(str)str = System.Text.RegularExpressions.Regex.Replace(str, "(?s)(?<=阿斯蒂芬).*(?=乐山大佛)", vbcrlf)msgbox(str)