主题：如何做模糊查找及替换

参考代码

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)