我搜索了多个帖子,但我们无法弄明白。
我试图删除值中的所有文字。
抱歉,我忘了提及他们的其他字符串,所以我不能使用列模式。
我有:
<string name="u" value="e45f"/>
<string name="u" value="bh90"/>
<string name="u" value="48hv"/>
<string name="u" value="Sh8D"/>
我想:
<string name="u" value=""/>
<string name="u" value=""/>
<string name="u" value=""/>
<string name="u" value=""/>
如果你能解释一下你是怎么做的,我将不胜感激。
答案 0 :(得分:0)
这是通常的正则表达式
查找<string\s+name="u"\s+value=".+"/>
替换为<string name="u" value=""/>
检查常规表达
全部替换
什么问题?
答案 1 :(得分:0)
您可以使用此正则表达式搜索:
查找Option Explicit
Public Sub GetInfo()
Application.Screenupdating = False
Dim sResponse As String, i As Long, html As New HTMLDocument
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "https://www.forebet.com/", False
.send
sResponse = StrConv(.responseBody, vbUnicode)
End With
sResponse = Mid$(sResponse, InStr(1, sResponse, "<!DOCTYPE "))
Dim links As Object
With html
.body.innerHTML = sResponse
Set links = .querySelectorAll("a.mainlevel_foremenu,a.sublevel_foremenu")
End With
For i = 0 To links.Length - 1
Cells(i + 1, 1) = "https://www.forebet.com" & Replace$(links(i).href, "about:", vbNullString)
Next i
Application.Screenupdating = True
End Sub
替换为value="[^"]*"
如果有的话,这将保留您的其他内容。