Mengisi beberapa kolom menggunakan kode

Saya mengisi tabel menggunakan kode skrip vb :-

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

Namun saya ingin menghasilkan beberapa kolom, output saya saat ini adalah :-

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

Dan saya ingin itu menjadi seperti :-

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

Saya mencoba berbagai cara lain :-

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

Masih tidak bisa mendapatkan keluaran dalam format yang diinginkan. Semuanya datang dalam satu kolom, bukan kolom berbeda.

Jawabannya di sini tidak membantu saya membuat tabel dengan kolom. Itu hanya menampilkan tabel dengan satu baris dan satu kolom yaitu sel tabel.


vbscript
person user2816085    schedule 21.03.2016    source sumber
comment
Kemungkinan duplikat dari Membuat tabel   -  person user692942    schedule 21.03.2016
comment
Juga duplikat Baca file teks dan tampilkan di tabel vbscript   -  person user692942    schedule 21.03.2016
comment
Kemudian menyerah pada VBScript dan beralih ke Java dan sekarang kembali ke VBScript. Lihat mencari teks dalam file xml menggunakan Java.   -  person user692942    schedule 21.03.2016
comment
Tidak ada akses untuk menginstal apa pun di lingkungan saya seperti Java, Eclipse dll. jadi vbscript adalah satu-satunya pilihan yang saya miliki...   -  person user2816085    schedule 21.03.2016

Jawaban (1)


arrow_upward
0
arrow_downward

Saya bisa membuat tabel. Belajar coding jadi selalu menanyakan pertanyaan bodoh. :-)

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