Question

下午，

我无法将一些数据从PowerPoint导入Access。

最初，当我导入数据时，注释部分的内容如下所示：

 <div class="ExternalClass63DBAC931E7D4E4680E207BF938770AA"><p>xxxxxxxxxxx.</p> <p>xxxxxxxxxxxx</p></div>

xxxxxxx是我想要提取的数据的地方。我已经尝试用Regex取代＆lt;＆gt;之间的所有内容。如下所示

Public Function AddPipesBeforeDates(ByVal strText As String) As String
Dim regex As Object
Dim matches As Object
Dim m As Object


Set regex = CreateObject("VBScript.RegExp")
regex.Global = True
regex.pattern = "<.*>"
Set matches = regex.Execute(strText)
For Each m In matches
    strText = Replace(strText, m, "")
Next
AddPipesBeforeDates = strText

Set matches = Nothing
Set regex = Nothing
End Function

问题在于它消除了一切。
我刚刚发现了正则表达式，我对它并不熟悉。有没有办法删除不需要的数据？

请注意，xxxxxx数据可以是任何值空格或特殊字符

任何关于如何做到这一点的想法或想法将不胜感激。我可能会走错路。

由于

Answer 1

您必须注意，<resource methods="POST" uri-template="/sample/{id}/sub" faultSequence="fault"> <inSequence> <filter source="$ctx:AM_KEY_TYPE" regex="PRODUCTION"> <then> <property name="api.ut.backendRequestTime" expression="get-property('SYSTEM_TIME')"/> <property name="Authorization" expression="fn:concat('Basic ', 'dXNlcjp1c2Vy')" scope="transport"/> <property name="messageType" value="application/xml" scope="axis2"/> <payloadFactory media-type="xml"> <format> <input> <newParam>$1</newParam> </input> </format> <args> <arg evaluator="json" expression="$."/> </args> </payloadFactory> <property name="DISABLE_CHUNKING" value="true" scope="axis2"/> <send> <endpoint name="admin--Test_APIproductionEndpoint_0"> <http uri-template="http://xxxx:8181/ValidateWAR/getValidate/validate"/> <property name="Content-Type" value="application/xml" scope="transport"/> </endpoint> </send> </then> <else> <sequence key="_sandbox_key_error_"/> </else> </filter> </inSequence> <outSequence> <class name="org.wso2.carbon.apimgt.usage.publisher.APIMgtResponseHandler"/> <send/> </outSequence> </resource>匹配任何字符，只有换行符（因此，包括.和<）。

要删除>和<之间的所有子字符串，您可以使用

通过这种方式，您可以避免“过度火焰”和匹配超出您需要的距离。

访问vba替换/正则表达式？

1 个答案: