Tải file rss dạng XML, và hiển thị nội dung lên web bằng php

Mon, 04 May 2020 04:16:13 +0000

Không liên quan Access lắm, nhưng có liên quan đến xử lý XML, xin chia sẻ đoạn code tôi dùng để đọc nội dung trang web có chia sẻ nguồn tin RSS dạng XML, sau đó hiển thị nó lên trình duyệt web, viết bằng Php

Vì một vài trang bị chặn, nên tôi thông qua 1 bước trung gian là dùng trang https://feeds.feedburner.com để tải file Rss ấy về,
sau đó load trang RSS lên, phân tích kết cấu của nó và hiển thị lại trên web.
Nhân đó gán luôn trang Proxy để có thể vượt tường lửa.

Mã PHP:
$xml = simplexml_load_file("https://feeds.feedburner.com/Voa-tintuc");
foreach ($xml ->children() as $value){
foreach($value->children() as $value1){
$s1=$value1->title;
$s2=$value1->description;
$s3=$value1->pubDate;
$s4=$value1->link;
if ($s4!=""){
echo ".$s4."'>".$s1."
";
echo $s3."
";
echo $s2."
";
}
}
} 
?>

Kết quả:
https://thuthuataccess.com/search.php

Hàm cơ bản về XML

Sat, 02 May 2020 16:16:36 +0000

Đây là những hàm tôi sưu tầm chỉnh sửa lại, các bạn có thể nghiên cứu chi tiết trên web hoặc tại đây: Link học XML

1. Xuất Table sang file XML:

Mã PHP:
Public Sub TableToXML()  'Thuoc Modules: Import-Export XML
    Application.ExportXML acExportTable, "tblCVDen", "d:\xml3.xml"
End Sub 

2. Các hàm của tôi Xây dựng: để tương tác với XML (Đã Test chạy ok tất cả)

Mã PHP:
Public Sub TaoFileXML2()
    Dim rst As Recordset
    Dim strSQL As String
    
    
    strSQL = "SELECT SoTT, Ngayden, Soden, Tacgia FROM tblCVDen"
    Set rst = CurrentDb.OpenRecordset(strSQL)
    Dim strPath As String
    strPath = CurrentProject.path & "\CVDenXML.xml"
    
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Dim objFile As Object
    Set objFile = fso.CreateTextFile(strPath, True, True)
    
    objFile.Write "" & vbCrLf
    objFile.Write "" & vbCrLf
    
    Do Until rst.EOF
        objFile.Write vbTab & "& """" & rst.Fields("SoTT") & """" & ">" & vbCrLf
        objFile.Write vbTab & vbTab & "" & rst.Fields("Ngayden") & "" & vbCrLf
        objFile.Write vbTab & vbTab & "" & rst.Fields("Soden") & "" & vbCrLf
        objFile.Write vbTab & vbTab & "" & rst.Fields("Tacgia") & "" & vbCrLf
        objFile.Write vbTab & "" & vbCrLf
        rst.MoveNext
    Loop
    
    objFile.Write ""
    rst.Close
    Set rst = Nothing
    Set objFile = Nothing
    Set fso = Nothing
    MsgBox "Complete"
End Sub

Function DocNoiDungXML()
' Khai bao bien: Kieu ket noi muon
'Dim objParser As Object
'Set objParser = CreateObject("Microsoft.XMLDOM")      ' or Set objParser = Server.CreateObject( "Microsoft.XMLDOM" )
'or  'Dang ky them thu vien:  Microsoft XML, version 3.0    , provided in Msxml.dll
' Khai bao bien: Kieu ket noi som
Dim xDoc As MSXML2.DOMDocument
Set xDoc = New MSXML2.DOMDocument
Dim strPath As String
    strPath = CurrentProject.path & "\CVDenXML.xml"
    
        If xDoc.Load(strPath) Then
          DisplayNode xDoc.childNodes, 0
        Else
          MsgBox "Load file that bai"
          ' Hien thi ma loi
          Dim strErrText As String
          Dim xPE As MSXML2.IXMLDOMParseError
          ' Lay doi tuong ParseError
          Set xPE = xDoc.parseError
          With xPE
              strErrText = "Tai lieu XML cua ban khong Load len duoc" & _
                "Do loi sau:" & vbCrLf & _
                "Loi #: " & .errorCode & ": " & xPE.reason & _
                "Dong #: " & .line & vbCrLf & _
                "Vi tri dong: " & .linepos & vbCrLf & _
                "Vi tri trong File: " & .filepos & vbCrLf & _
                "Nguon van ban: " & .srcText & vbCrLf & _
                "Document URL: " & .url
            End With
        
            MsgBox strErrText, vbExclamation
            Set xPE = Nothing
        End If
    Set xDoc = Nothing
End Function

Sub DisplayNode(ByRef Nodes As MSXML2.IXMLDOMNodeList, ByVal Indent As Integer)

  Dim xNode As MSXML2.IXMLDOMNode
  Indent = Indent + 2

  For Each xNode In Nodes
      If xNode.nodeType = NODE_TEXT Then
        Debug.Print Space(Indent) & xNode.parentNode.nodeName & ": " & xNode.nodeValue
      End If

      If xNode.hasChildNodes Then
        DisplayNode xNode.childNodes, Indent
      End If
  Next xNode
End Sub

Public Sub XoaNode()  'Thuoc Modules: Hoc-Import-Export XM2
    Dim xDoc As MSXML2.DOMDocument
Dim strPath As String
Dim strSearch As String

strSearch = 2
strPath = CurrentProject.path & "\CVDenXML.xml"

    Set xDoc = New MSXML2.DOMDocument
    xDoc.validateOnParse = False
    xDoc.Load strPath

    DeleteNodes xDoc, "//TableCongVanDen/Dong[@SoTT='" & strSearch & "']"
    xDoc.Save strPath  ''save new document
    Set xDoc = Nothing
End Sub

Sub DeleteNodes(xDoc As MSXML2.DOMDocument, xPath As String)
    Dim foo As IXMLDOMNodeList, el  As IXMLDOMElement
    Set foo = xDoc.selectNodes(xPath)
    If foo.Length > 0 Then Debug.Print "[Xoa Node: " & xPath
    For Each el In foo
        el.parentNode.removeChild el
    Next el
    Set foo = Nothing
End Sub

Public Sub TimNoiDungFileXML()
Dim xDoc As New MSXML2.DOMDocument30
Dim xNode As MSXML2.IXMLDOMElement
Dim strPath As String
Dim strSearch As String

strSearch = 14
strPath = CurrentProject.path & "\CVDenXML.xml"
'Try To Load The Document
With xDoc
    If Not .Load(strPath) Then
        MsgBox "Unable to load"
        Exit Sub
    End If
    Set xNode = .selectSingleNode("//TableCongVanDen/Dong/Soden[.='" & strSearch & "']")
'    Set xNode = .selectSingleNode("//Categories/Ngayden[.='08/12/2011']")
    If Not xNode Is Nothing Then
        Debug.Print xNode.Text, xNode.nodeName
    End If
End With
Set xNode = Nothing
Set xDoc = Nothing
End Sub

Public Sub SuaNoiDungXML()
Dim xDoc As New MSXML2.DOMDocument30
Dim xNode As MSXML2.IXMLDOMElement

Dim strSearch As String

strSearch = "222222"
Dim strPath As String
strPath = CurrentProject.path & "\CVDenXML.xml"
'Try To Load The Document
With xDoc
    If Not .Load(strPath) Then
        MsgBox "Unable to load"
        Exit Sub
    End If
    Set xNode = .selectSingleNode("//TableCongVanDen/Dong/Soden[.='" & strSearch & "']")
'    Set xNode = .selectSingleNode("//Categories/Ngayden[.='08/12/2011']")
    If Not xNode Is Nothing Then
      EditNodes xDoc, "//TableCongVanDen/Dong/Soden[.='" & strSearch & "']"
    End If
End With
xDoc.Save strPath
Set xNode = Nothing
Set xDoc = Nothing
End Sub

Sub EditNodes(xDoc As MSXML2.DOMDocument, xPath As String)
    Dim foo As IXMLDOMNodeList, el  As IXMLDOMElement
    Set foo = xDoc.selectNodes(xPath)
    If foo.Length > 0 Then Debug.Print "[Sua NoiDung Node: " & xPath
    For Each el In foo
        el.Text = "aaaa"
    Next el
    
    Set foo = Nothing
End Sub 

Ngoài các hàm trên mong các bạn chia sẽ thêm nhưng gì còn thiếu.

Tiếp theo tôi sẽ làm các bài liên quan đến tương tác giữa Access file CSV và TXT.

Thân mến!

Thủ Thuật Access - XML

Tải file rss dạng XML, và hiển thị nội dung lên web bằng php

Hàm cơ bản về XML