การเติมข้อมูลหลายคอลัมน์โดยใช้โค้ด

ฉันกำลังเติมตารางโดยใช้รหัส vb-script :-

Set table = document.createElement("table")
Set tbody = document.createElement("tbody")
i = 0
For Each node In objMSXML.selectNodes(sXPath)   
    Set tr = document.createElement("tr")
    Set td = document.createElement("td")
    td.innerText = node.parentNode.nodeName & "->" & node.text
    tr.appendChild td
    tbody.appendChild tr
    i = i +1
Next
table.appendChild tbody
document.body.appendChild table

อย่างไรก็ตาม ฉันต้องการสร้างหลายคอลัมน์ ผลลัพธ์ปัจจุบันของฉันคือ:-

universespace->Milkyway 
universespace->Earth Layer 
scienceSubject->Solar System 
scienceItem->Earth 
scienceItem->Moon 
scienceItem->Mars

และฉันต้องการให้เป็นเช่น:-

+--------------+--------------+--------------+-----------+
|universespace1|universespace2|scienceSubject|scienceItem| 
+--------------+--------------+--------------+-----------+
| Milkyway     | Earth Layer  | Solar System | Earth     |
+--------------+--------------+--------------+-----------+
| Milkyway     | Earth Layer  | Solar System | Moon      |
+--------------+--------------+--------------+-----------+
| Milkyway     | Earth Layer  | Solar System | Mars      |
+--------------+--------------+--------------+-----------+

ฉันลองวิธีอื่นหลายวิธี: -

Set table = document.createElement("table")
Set tbody = document.createElement("tbody")
i = 0
For Each node In objMSXML.selectNodes(sXPath)   
    Set tr = document.createElement("tr")
     Select Case True
     Case "namespace" = node.parentNode.nodeName 
        Set th = document.createElement("th")
        th.innerText =   node.parentNode.nodeName
        tr.appendChild th
      Case "namespace" = node.parentNode.nodeName
        Set th1 = document.createElement("th")
        th1.innerText =   node.parentNode.nodeName
        tr.appendChild th1
      Case "querySubject" = node.parentNode.nodeName
        Set th2 = document.createElement("th")
        th2.innerText =   node.parentNode.nodeName
        tr.appendChild th2
      Case "queryItem" = node.parentNode.nodeName
        Set th3 = document.createElement("th")
        th3.innerText =   node.parentNode.nodeName
        tr.appendChild th3
     End Select
    'td.innerText = i & node.parentNode.nodeName & "->" & i & node.text
    'tr.appendChild td
    tbody.appendChild tr

ยังไม่สามารถรับเอาต์พุตในรูปแบบที่ต้องการได้ ทั้งหมดนี้มาในคอลัมน์เดียวแทนที่จะเป็นคอลัมน์ที่แตกต่างกัน

คำตอบที่นี่ไม่ได้ช่วยฉันในการสร้างตารางที่มีคอลัมน์ เพียงแสดงตารางที่มีหนึ่งแถวและหนึ่งคอลัมน์ เช่น เซลล์ตาราง


vbscript
person user2816085    schedule 21.03.2016    source แหล่งที่มา
comment
อาจซ้ำกับ กำลังสร้างตาราง   -  person user692942    schedule 21.03.2016
comment
ซ้ำกับ อ่านไฟล์ข้อความและแสดงในตาราง vbscript   -  person user692942    schedule 21.03.2016
comment
จากนั้นเลิกใช้ VBScript แล้วไปที่ Java แล้วกลับมาที่ VBScript อีกครั้ง ดูค้นหาข้อความในไฟล์ xml โดยใช้ java   -  person user692942    schedule 21.03.2016
comment
ไม่มีสิทธิ์เข้าถึงเพื่อติดตั้งสิ่งใดในสภาพแวดล้อมของฉัน เช่น java, eclipse ฯลฯ ดังนั้น vbscript จึงเป็นทางเลือกเดียวที่ฉันมี...   -  person user2816085    schedule 21.03.2016

คำตอบ (1)


arrow_upward
0
arrow_downward

ฉันสามารถสร้างตารางได้ การเรียนรู้การเขียนโค้ด ดังนั้นมักจะถามคำถามโง่ๆ อยู่เสมอ :-)

Set table = document.createElement("table")
Set tbody = document.createElement("tbody")
i = 0
Set tr = document.createElement("tr")
set th = document.createElement("th")
th.innerHtml = " Namespace1  "
tr.appendChild th
set th = document.createElement("th")
th.innerHtml = "  Namespace2  "
tr.appendChild th
set th = document.createElement("th")
th.innerHtml = "  Query Subject  "
tr.appendChild th
set th = document.createElement("th")
th.innerHtml = "  Query Item  "
tr.appendChild th
Set tr1 = document.createElement("tr")
For Each node In objMSXML.selectNodes(sXPath)   
    Set td = document.createElement("td")
    td.innerText = i & node.text
    tr1.appendChild td
    tbody.appendChild tr
    tbody.appendChild tr1
    i = i +1
Next
document.body.appendChild list
table.appendChild tbody
document.body.appendChild table
person user2816085    schedule 21.03.2016