截取两个字符串中间的字符

'如果不存在则清空变量并退出
'在[从(A在S中首次出现的位置)到S结尾的字符串]中截取从A的下一位开始到[从(A在S中首次出现的位置)到S结尾的字符串]结尾的字符
'在MidStr中截取从开始到B首次出现位置之前的字符串

Public Function MidStr(S As String, A As String, B As String) As String '截取两个字符串中间的字符:截取S中从A与B之间的字符串
If InStr(S, A)
MidStr = Mid(Mid(S, InStr(S, A)), Len(A) + 1)
MidStr = Left$(MidStr, InStr(MidStr, B) - 1)
End Function

MidStr("12456789", "123", "789") '截取"123"与"789"之间的字符串

文章来源于lcx.cc:【VB技巧】截取两个字符串中间的字符

相关推荐: Piwik和OpenX多版本存在PHP远程执行漏洞

测试通过的版本，本地测试成功： Piwik 0.4.3 Piwik 0.4.2 Piwik 0.4.1 Piwik 0.4 Piwik 0.2.37 Piwik 0.2.36 Piwik 0.2.35 OpenX 2.8.2 OpenX 2.8.6 OpenX…