Заполнение нескольких столбцов с помощью кода

Я заполняю таблицу, используя код 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

Однако я хочу создать несколько столбцов, мой текущий вывод: -

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