正则表达式入门与提高---VBA平台的正则学习参考资料

sunan0317

留名，最近就在看《精通正则表达式》，由于菜鸟，里面的案例看的云里雾里。拜读下lz的雄文。

tony_hu_24

liu-aguang 发表于 2014-6-11 09:12
(3)Execute方法
     在目标文本中执行正则表达式搜索。
     语法:set mh=object.execute(s)

图片中好像写错了 execute；

渔君

优秀贴，谢谢楼主！

lms008

请问楼主：如何把字符串中<content>
                        <row order="odd">
<item visible="false">HK18031202565114,1009,2008,1030,1313,1800,90,HKR1206-12032018173203-32717,</item>
                                <item visible="true">HK18031202565114</item>
                                <item visible="true">CREDIT CARDS</item>
                                <item visible="true">FUNG WING FAI JOANNE</item>
                                <item visible="false">1313</item>
                                <item visible="false">2008</item>
                                <item visible="false">01</item>
                                <item visible="true">HKSQB18MCWZ010</item>
                                <item visible="true">HKID               / K8759421</item>
                                <item visible="false">90</item>
                                <item visible="false">K8759421</item>
                                <item visible="false"> </item>
                                <item visible="false">1578333</item>
                                <item visible="false"> </item>
                                <item visible="false"> </item>
                                <item visible="true">FD REFERRED</item>
                                <item visible="true">PENDING</item>
                                <item visible="true">CREDIT INITIATION</item>
                                <item visible="true">2018-03-12 00:00:00.0</item>
                                <item visible="false">0</item>
                                <item visible="true"/>
                                <item visible="false">1009</item>
                                <item visible="false">Y</item>
                                <item visible="false"/>
                                <item visible="false">3007</item>
                                <item visible="false">N</item>
                                <item visible="false"/>
                                <item visible="false">1578333</item>
                                <item visible="false">N</item>
                                <item visible="false"> </item>
                                <item visible="false"/>
                                <item visible="false">N</item>
                                <item visible="false"> </item>
                                <item visible="false">HKR1206-12032018173203-32717</item>
                                <item visible="false"> </item>
                                <item visible="false"> </item>
                                <item visible="false">1578333</item>
                                <item visible="false"> </item>
                                <item visible="false"> </item>
                                <item visible="false"/>
                                <item visible="false"> </item>
                                <item visible="false"> </item>
                        </row>，
如何用正则获得数据：如<item visible="true">HK18031202565114</item>中获取到HK18031202565114 的值，正则学得不精通，求解。

liu-aguang

lms008 发表于 2018-3-21 11:54
请问楼主：如何把字符串中
                       
HK18031202565114,1009,2008,1030,1313,1800,90,HKR1206-12032018173203-3 ...

建议用XMLDOM解析。不过，不论用何种方法都必须知道所分离数据项在整个文档中的结构特征或数据项特征。

lms008

liu-aguang 发表于 2018-3-21 12:14
建议用XMLDOM解析。不过，不论用何种方法都必须知道所分离数据项在整个文档中的结构特征或数据项特征。

我是考虑用XMLDOM解析 的，但是保存为XML文件用XMLDOM解析出问题，麻烦你帮我看看是哪里出错了。
1）把response 返回的字符串保存到xml 文件， 代码如下：
Sub makeXml(inputed_string As String, log_path As String, filename As String)
   Dim objFSO, logfile, logtext, log_folder, log_Newpath


   Set objFSO = CreateObject("Scripting.FileSystemObject")
   On Error Resume Next
   log_Newpath = log_path & "\responseData"
   Set log_folder = objFSO.CreateFolder(log_Newpath)


   If objFSO.FileExists(log_Newpath & "\" & filename) = 0 Then
       Set logfile = objFSO.CreateTextFile(log_Newpath & "\" & filename, True, False)
   End If
   Set log_folder = Nothing
   Set logfile = Nothing


   Set logtext = objFSO.OpenTextFile(log_Newpath & "\" & filename, 2, True, -2)
   logtext.Write "<?xml version=""1.0"" encoding=""UTF-8""?>"
   logtext.Write inputed_string
   logtext.Close


   Set objFSO = Nothing
End Sub



数据如下：


2）： 用XMLDOM解析 文件，代码如下：
Function ParseXMLData()
        Dim strXMLPath As String
        Dim xmlDoc, rcdSetList, recordTmp, row_list, row_files, nodes
        Dim strAppID, strPrd, strCustNam, strCmpCde, strAppStatus, strPrsStatus, strQueStatus, strAppDte, strDrwaDate, strPendStatusFlag
        Dim i As Integer

        On Error GoTo errHandler

        'strXMLPath = ThisWorkbook.Path & "\responseData\data_search_result.xml"
         strXMLPath = "D:\H\2015_CR_SIRS\VBA\RDF_EUC_PCL&Porfolios\CSIM_user_blacklist_TUEF_AC\Login_COS_CSIM\COS_testing_20180319\COS_source" & "\testCos.xml"
        Set xmlDoc = CreateObject("Microsoft.XMLDOM")
        xmlDoc.async = "false"

        If Not IsEmpty(Worksheets("COS_Search_data").Activate) Then ActiveSheet.UsedRange.ClearContents
        ActiveSheet.[a1:j1] = Array("Application ID", "Anchor product", "Customer Name", "Campaign Code", "Application status", "Process status", "Queue Status", "Application date", "Draw down date", "Pending Application Flag")

        xmlDoc.Load (strXMLPath)
        Set rcdSetList = xmlDoc.SelectNodes("lov/recordSet")
       For Each recordTmp In rcdSetList
            Set row_list = recordTmp.SelectNodes("content/row")
            i = 1
            For Each row_files In row_list
                i = i + 1
                'Debug.Print row_files.Attributes(0).Text
                 strAppID = row_files.ChildNodes(1).ChildNodes(0).NodeValue
                 strPrd = row_files.ChildNodes(2).ChildNodes(0).NodeValue
                 strCustNam = row_files.ChildNodes(3).ChildNodes(0).NodeValue
                 strCmpCde = row_files.ChildNodes(7).ChildNodes(0).NodeValue
                 strAppStatus = row_files.ChildNodes(5).ChildNodes(0).NodeValue
                 strPrsStatus = row_files.ChildNodes(16).ChildNodes(0).NodeValue
                 strQueStatus = row_files.ChildNodes(17).ChildNodes(0).NodeValue
                 strAppDte = row_files.ChildNodes(18).ChildNodes(0).NodeValue
                ' strDrwaDate = row_files.ChildNodes(19).ChildNodes(0).NodeValue

                Cells(i, 1) = strAppID
                Cells(i, 2) = strPrd
                Cells(i, 3) = strCustNam
                Cells(i, 4) = strCmpCde
                Cells(i, 5) = strAppStatus
                Cells(i, 6) = strPrsStatus
                Cells(i, 7) = strQueStatus
                Cells(i, 8) = strAppDte
                Cells(i, 9) = strDrwaDate

                'Add logic for Pending Appliction flag.
                'for Pending Appliction = No
                'if Application Status = ACCEPTED & Process Status =COMPLETED  OR
                'Application Status = CANCELLED OR Application Status = DECLINED OR No Application
                'Else Pending Appliction = Yes
                If strAppStatus = "" Then
                    strPendStatusFlag = "NO"
                ElseIf strAppStatus = "ACCEPTED" & strPrsStatus = "COMPLETED" Then
                    strPendStatusFlag = "NO"
                ElseIf strAppStatus = "CANCELLED" Then
                    strPendStatusFlag = "NO"
                ElseIf strAppStatus = "DECLINED" Then
                    strPendStatusFlag = "NO"
                Else
                    strPendStatusFlag = "YES"
                End If
                 Cells(i, 10) = strPendStatusFlag
            Next
        Next
        Columns("H:H").NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
        Application.ScreenUpdating = True
        ActiveSheet.[A:I].Columns.AutoFit
        ParseXMLData = True
        Exit Function

errHandler:
        MsgBox Err.Number & vbTab & Err.Description, vbCritical + vbOKOnly, "Parse XML Data Failed"
        ActiveWorkbook.Sheets("log").Activate
        ActiveSheet.Cells(8, 2) = Trim(Err.Description) & "::" & Replace(Err.Number, "-", "")
        ParseXMLData = False
        Exit Function
End Function

当执行到红色那行就跳出了，应该是读取的xml文件不是一个普通的XML类型的文件。

问题是：我如何才能把返回的数据保存为一个XMLDOM可以正常解析的文件呢？

lms008

lms008 发表于 2018-3-21 12:26
我是考虑用XMLDOM解析 的，但是保存为XML文件用XMLDOM解析出问题，麻烦你帮我看看是哪里出错了。
1）把r ...

问题已解决：
在创建xml 中间中，把写入的内容 加入换行符(Chr(10)),
Sub makeXml(inputed_string As String, log_path As String, filename As String)
   Dim objFSO, logfile, logtext, log_folder, log_Newpath
   Dim strContent$


   Set objFSO = CreateObject("Scripting.FileSystemObject")
   On Error Resume Next
   log_Newpath = log_path & "\responseData"
   Set log_folder = objFSO.CreateFolder(log_Newpath)


   If objFSO.FileExists(log_Newpath & "\" & filename) = 0 Then
       Set logfile = objFSO.CreateTextFile(log_Newpath & "\" & filename, True, False)
   End If
   Set log_folder = Nothing
   Set logfile = Nothing

   strContent = Replace((inputed_string,">",">" & Chr(10))       
   Set logtext = objFSO.OpenTextFile(log_Newpath & "\" & filename, 2, True, -2)
   logtext.Write "<?xml version=""1.0"" encoding=""UTF-8""?>" & Chr(10)
   logtext.Write strContent
   logtext.Close


   Set objFSO = Nothing
End Sub


liu-aguang 发表于 2018-3-21 12:14
建议用XMLDOM解析。不过，不论用何种方法都必须知道所分离数据项在整个文档中的结构特征或数据项特征。

我是考虑用XMLDOM解析 的，但是保存为XML文件用XMLDOM解析出问题，麻烦你帮我看看是哪里出错了。
1）把response 返回的字符串保存到xml 文件， 代码如下：
Sub makeXml(inputed_string As String, log_path As String, filename As String)
   Dim objFSO, logfile, logtext, log_folder, log_Newpath
   Dim strContent$


   Set objFSO = CreateObject("Scripting.FileSystemObject")
   On Error Resume Next
   log_Newpath = log_path & "\responseData"
   Set log_folder = objFSO.CreateFolder(log_Newpath)


   If objFSO.FileExists(log_Newpath & "\" & filename) = 0 Then
       Set logfile = objFSO.CreateTextFile(log_Newpath & "\" & filename, True, False)
   End If
   Set log_folder = Nothing
   Set logfile = Nothing


   Set logtext = objFSO.OpenTextFile(log_Newpath & "\" & filename, 2, True, -2)
   logtext.Write "<?xml version=""1.0"" encoding=""UTF-8""?>" & Chr(10)
   logtext.Write inputed_string
   logtext.Close


   Set objFSO = Nothing
End Sub

nifeng123

谢谢楼主，楼主大好人

vbxu

好东西，完美学习材料

linhj003

支持下，顺便留个脚印