Question

我有一句Eric Corni chargé de clientèle Tél: 09 99 99 99 99 72 atricard@adiscos.com我想只获得chargé de clientèle Tél: 09 99 99 99 99 72 atricard@adiscos.com

我的代码如下：

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

而且_com_position_ = "Eric Corni chargé de clientèle Tél: 09 99 99 99 99 72 atricard@adiscos.com"但显示我需要的内容有误。显示如下：gé de clientèle Tél: 09 99 99 99 99 72 atricard@adiscos.com

你有任何解决方案，请帮我解决，谢谢。

Answer 1

使用instr函数（）..并且知道 的长度为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)

Answer 2

试试这个：

strText = strText.SubString(strText.IndexOf("<br>") + 4)

Answer 3

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

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

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

WScript.Echo re.Replace(strText, "")

使用vb从句子中拆分第一个

3 个答案: