Tham khảo tài liệu 'professional information technology-programming book part 148', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Tạo HTML từ XML và XSL Thông thường nếu bạn định nghĩa bên trong một XML file rằng nó cần một XSL để display thì Internet Exporer sẽ tự transform XML dựa theo XSL và display kết quả trong browser cho bạn. Trong trường hợp ấy nếu bạn View Source của Webpage bạn chỉ đọc đuợc XML source mà thôi. Có thể bạn sẽ thắc mắc sao không thấy cái HTML source là kết quả của quá trình Tranform XML. Trong chương trình VB6 trình bày tại đây bạn sẽ thấy cách dùng DOM Document Object Model của MSXML để thực hiện công việc tương đương với IE và save kết quả HTML thành một Webpage . Webpage nầy có thể được display độc lập với XML bằng bất cứ WebBrowser ra ActiveX MSXML mà ta dùng cho VB6 là của IE khi ta Project Reference Microsoft XML . Chương trình mẫu Bạn có thể download chương trình mẫu để xem cách thảo chương rất đơn giản. Phần chính của chương trình nằm trong Sub Form_Load như liệt ra dưới đây. Bạn có thể xem listing và giải thích về cách transform dựa trên trong bài XML Kỹ thuật tin học nòng cốt trong tương lai. Private Sub Form_Load Dim HTMLCode As String Need to Project References Microsoft XML to use DOM Dim myXMLDoc As New Dim myXSLDoc As New Need to Project References Microsoft Script Runtime to use FileSystemObject and TextStream Dim Fs As FileSystemObject Dim TS As TextStream Display the XML file in a listbox PopulateListBoxFromFile LstXML False Display the XSL file in a listbox PopulateListBoxFromFile lstXSL False Load the XML file Load the XSL file Transform XML by XSL to give HTML HTMLCode myXSLDoc Now Write the resultant HTML to file Create a FileSystem Object Set Fs CreateObject Open TextStream for Output Set TS ForWriting False TristateUseDefault HTMLCode Write the .
