html 删除第一个字符串,VBA从字符串中删除HTML标记仅删除第一个字符

的VBA替换功能不能处理通配符,但Range.Replace方法可以。如果将Response变量写入单元格中,请运行Range.Replace方法,然后将单元格值读回到消息变量中,它将完成您正在尝试执行的操作。

示例代码:

Sub SendHTTP()

Dim myRequest As Object

Set myRequest = CreateObject("WinHttp.WinHttpRequest.5.1")

myRequest.Open "Get", _

"http://tyda.se/search/test?lang[0]=en&lang[1]=sv"

'Send

myRequest.Send

Dim Response, message As String

Response = myRequest.ResponseText

'Write Response to cell

With ThisWorkbook.Sheets(1).Range("A1") 'Change this to a cell that is available for your code to use.

.Value2 = Response

'Strip HTML tags

.Replace What:="", Replacement:=" ", LookAt:=xlPart

'Read value back into variable

message = .Value2

'Clear cell

.ClearContents

End With

'Display message

MsgBox message

End Sub

参与评论 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:1024 设计师:我叫白小胖 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值