0

Eric Corni<br>chargé de clientèle<br>Tél: 09 99 99 99 99 72<br> atricard@adiscos.com我有我只想得到的一句话chargé de clientèle<br>Tél: 09 99 99 99 99 72<br> atricard@adiscos.com

我有如下代码：

strText = Replace(strText, "_com_position_", Right(com_signature,InStrRev(com_signature, ">", len(com_signature))+3))

_com_position_ = "Eric Corni<br>chargé de clientèle<br>Tél: 09 99 99 99 99 72<br> atricard@adiscos.com"但它与我需要的显示错误。它显示如下：gé de clientèle<br>Tél: 09 99 99 99 99 72<br> atricard@adiscos.com

有什么解决办法，请帮我解决，谢谢。

4

3 回答 3

0

一种可能的解决方案（使用）是使用正则表达式删除字符串的第一部分：

strText = "Eric Corni<br>chargé de ..."

Set re = New RegExp
re.Pattern = "^.*?<br>"
re.IgnoreCase = True

WScript.Echo re.Replace(strText, "")
于 2013-05-20T10:53:49.790 回答
0

尝试这个：

strText = strText.SubString(strText.IndexOf("<br>") + 4)
于 2013-05-20T07:28:59.710 回答
0

使用 instr function() .. 然后知道长度<br>为 4

Dim strText As String = "Eric Corni<br>chargé de clientèle<br>Tél: 09 99 99 99 99 72<br>    atricard@adiscos.com"

strText = Mid(strText,InStr(strText, "<br>") + 4)
于 2013-05-20T04:25:52.427 回答