С Новым годом! Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.95/21: Рейтинг темы: голосов - 21, средняя оценка - 4.95
0 / 0 / 0
Регистрация: 07.12.2011
Сообщений: 15
.NET 4.x

Нужно всю таблицу из Xml импортировать в ListView1

07.12.2011, 22:30. Показов 4522. Ответов 15
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
есть фаил xml со структурой
XML
1
2
3
4
5
6
7
8
9
<?xml version="1.0" encoding="utf-8"?>
<Report layerType="OldCompatible" version="2">
    <ds>
    <i d="Дата" n="данные 1" zp="" zv="" s="gprs" a="" du="0Kb" c="0" dup="10Kb" f="0" cur="810" gmt="+08:00" />
    <i d="Дата" n="данные 1" zp="" zv="" s="gprs" a="" du="0Kb" c="0" dup="10Kb" f="0" cur="810" gmt="+08:00" />
    <i d="Дата" n="данные 1" zp="" zv="" s="gprs" a="" du="0Kb" c="0" dup="10Kb" f="0" cur="810" gmt="+08:00" />
    <i d="Дата" n="данные 1" zp="" zv="" s="gprs" a="" du="0Kb" c="0" dup="10Kb" f="0" bd="01.09.2011 0:34:51" cur="810" gmt="+07:00" />
  </ds>
</Report>
где количество строк <i /> неизвестно
нужно всю эту таблицу импортировать в ListView1 но у меня почему то импортируется только 1 строка последующие дублируются помогите
Вот код
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SXml As New System.Xml.XPath.XPathDocument("c:\путь до файла.xml")
        Dim str(10) As String
        Dim itm As ListViewItem
        str(0) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@d").Value
        str(1) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@n").Value
        str(2) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@zp").Value
        str(3) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@zv").Value
        str(4) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@s").Value
        str(5) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@a").Value
        str(6) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@dup").Value
        str(7) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@f").Value
        str(7) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@bd").Value
        str(9) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@cur").Value
        str(10) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@gmt").Value
        itm = New ListViewItem(str)
        ListView1.Items.Add(itm)
    End Sub
End Class
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
07.12.2011, 22:30
Ответы с готовыми решениями:

Импортировать xml файл в таблицу Access
Добрый день. только учусь vba. Нужно импортировать xml файл в таблицу access. - &lt;Номер&gt;2&lt;/Номер&gt; &lt;1&gt;

Нужно, импортировать из файла в массив 16 значений, таких файлов много, вот нужно импортировать и отсортировать по возрастанию
что то у меня не получаеться Program abli; var a: file of integer; i: byte; mas: array of integer; b:array of integer; ...

ADO Recordset блокирует всю таблицу, нужно блокировать только редактируемую запись
Как?

15
0 / 0 / 0
Регистрация: 07.12.2011
Сообщений: 15
07.12.2011, 23:20  [ТС]
вот исходник
Вложения
Тип файла: rar 12_mts_wtf.rar (35.1 Кб, 33 просмотров)
0
0 / 0 / 0
Регистрация: 07.12.2011
Сообщений: 15
09.12.2011, 19:54  [ТС]
Че никто не знает?
0
10.12.2011, 10:56

Не по теме:

тоже надоело траффик вручную на мтс'е считать?:) Как напишешь поделись:)

0
0 / 0 / 0
Регистрация: 07.12.2011
Сообщений: 15
11.12.2011, 09:18  [ТС]
up актуально
0
_
2364 / 1243 / 78
Регистрация: 28.10.2009
Сообщений: 4,331
11.12.2011, 11:25
Цитата Сообщение от Actticus Посмотреть сообщение
Че никто не знает?
Знают, но вломы писать, используй LINQ - там все просто - смотри эту тему
0
0 / 0 / 0
Регистрация: 07.12.2011
Сообщений: 15
14.12.2011, 05:00  [ТС]
эти примеры я разбирал от и до но пока что ничем не помогли они мне
0
_
2364 / 1243 / 78
Регистрация: 28.10.2009
Сообщений: 4,331
14.12.2011, 09:51
Цитата Сообщение от Actticus Посмотреть сообщение
эти примеры я разбирал от и до но пока что ничем не помогли они мне
значит, плохо разбирал, если не помогли
0
0 / 0 / 0
Регистрация: 07.12.2011
Сообщений: 15
16.12.2011, 17:24  [ТС]
я уже мозг сломал но не смог найти решения
0
0 / 0 / 0
Регистрация: 07.12.2011
Сообщений: 15
26.12.2011, 14:17  [ТС]
up актуально
0
197 / 189 / 15
Регистрация: 09.02.2011
Сообщений: 457
26.12.2011, 16:28
VB.NET
1
2
3
4
5
6
7
 Dim TReader As New System.IO.StreamReader(OpenFileDialog1.FileName, True)
        Dim SXml As New System.Xml.XPath.XPathDocument(TReader)
        Dim XMLNav As System.Xml.XPath.XPathNavigator = SXml.CreateNavigator
        Dim XMLNI As System.Xml.XPath.XPathNodeIterator = XMLNav.Select("/Report/ds/i")
        While XMLNI.MoveNext
            Debug.Print(XMLNI.Current.GetAttribute("d", XMLNI.Current.NamespaceURI)) 'берете атрибуты которые нужны
        End While
Добавлено через 27 минут
Не очень понял как эти атрибуты должны отразиться в listview?
1
0 / 0 / 0
Регистрация: 07.12.2011
Сообщений: 15
26.12.2011, 18:57  [ТС]
с сайта мтс получаю xml фаил, в строках <i .... /> в каждом атрибуте хранится какие нибуть данные например номер телефона - куда звонил - сколько говорил - сколько вышло и т.д
я пытался с каждой строки значения занести в отдельные столбцы. но ничего не выходит
Миниатюры
Нужно всю таблицу из Xml импортировать в ListView1  
0
29 / 29 / 1
Регистрация: 01.10.2010
Сообщений: 171
27.12.2011, 09:55
если не можешь работать как с xml файлом то поработай как с текстовым, используй методы парсинга и регулярки, а записывать наверное лучше в datagridview
0
197 / 189 / 15
Регистрация: 09.02.2011
Сообщений: 457
27.12.2011, 09:56
На форме OpenFileDialog1,Button1,DataGridView1
Вариант1:
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim TReader As New System.IO.StreamReader(OpenFileDialog1.FileName, True)
        Dim SXml As New System.Xml.XPath.XPathDocument(TReader)
        Dim XMLNav As System.Xml.XPath.XPathNavigator = SXml.CreateNavigator()
        Dim tb As New DataTable
        tb.Columns.Add("d")
        tb.Columns.Add("n")
        tb.Columns.Add("zp")
        tb.Columns.Add("zv")
        tb.Columns.Add("s")
        tb.Columns.Add("a")
        tb.Columns.Add("du")
        tb.Columns.Add("c")
        tb.Columns.Add("dup")
        tb.Columns.Add("f")
        tb.Columns.Add("bd")
        tb.Columns.Add("cur")
        tb.Columns.Add("gmt")
 
        For Each XMLPath As System.Xml.XPath.XPathNavigator In XMLNav.Select("/Report/ds/i")
            Dim tr As DataRow = tb.NewRow
 
            If Not XMLPath.SelectSingleNode("@d") Is Nothing _
                Then tr("d") = XMLPath.SelectSingleNode("@d").Value
            If Not XMLPath.SelectSingleNode("@n") Is Nothing _
                Then tr("n") = XMLPath.SelectSingleNode("@n").Value
            If Not XMLPath.SelectSingleNode("@zp") Is Nothing _
                Then tr("zp") = XMLPath.SelectSingleNode("@zp").Value
            If Not XMLPath.SelectSingleNode("@s") Is Nothing _
                Then tr("zv") = XMLPath.SelectSingleNode("@zv").Value
            If Not XMLPath.SelectSingleNode("@bd") Is Nothing _
                Then tr("s") = XMLPath.SelectSingleNode("@s").Value
            If Not XMLPath.SelectSingleNode("@a") Is Nothing _
                Then tr("a") = XMLPath.SelectSingleNode("@a").Value
            If Not XMLPath.SelectSingleNode("@du") Is Nothing _
                Then tr("du") = XMLPath.SelectSingleNode("@du").Value
            If Not XMLPath.SelectSingleNode("@c") Is Nothing _
                Then tr("c") = XMLPath.SelectSingleNode("@c").Value
            If Not XMLPath.SelectSingleNode("@dup") Is Nothing _
                Then tr("dup") = XMLPath.SelectSingleNode("@dup").Value
            If Not XMLPath.SelectSingleNode("@f") Is Nothing _
                Then tr("f") = XMLPath.SelectSingleNode("@f").Value
            If Not XMLPath.SelectSingleNode("@bd") Is Nothing _
                Then tr("bd") = XMLPath.SelectSingleNode("@bd").Value
            If Not XMLPath.SelectSingleNode("@cur") Is Nothing _
                Then tr("cur") = XMLPath.SelectSingleNode("@cur").Value
            If Not XMLPath.SelectSingleNode("@gmt") Is Nothing _
                Then tr("gmt") = XMLPath.SelectSingleNode("@gmt").Value
 
            tb.Rows.Add(tr)
        Next
        DataGridView1.DataSource = tb
Вариант 2:
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tb As New DataTable
        tb.Columns.Add("d")
        tb.Columns.Add("n")
        tb.Columns.Add("zp")
        tb.Columns.Add("zv")
        tb.Columns.Add("s")
        tb.Columns.Add("a")
        tb.Columns.Add("du")
        tb.Columns.Add("c")
        tb.Columns.Add("dup")
        tb.Columns.Add("f")
        tb.Columns.Add("bd")
        tb.Columns.Add("cur")
        tb.Columns.Add("gmt")
        Dim tr As DataRow = tb.NewRow
        Dim TReader As New System.IO.StreamReader(OpenFileDialog1.FileName, True)
        Dim SXml As New System.Xml.XPath.XPathDocument(TReader)
        Dim XMLNav As System.Xml.XPath.XPathNavigator = SXml.CreateNavigator()
        Dim ni As System.Xml.XPath.XPathNodeIterator = XMLNav.Select("/Report/ds/i")
        While (ni.MoveNext())
            tr = tb.NewRow
            Dim nav2 As System.Xml.XPath.XPathNavigator = ni.Current.Clone()
            nav2.MoveToFirstAttribute()
            addData(nav2.Name, nav2.Value, tr)
            While (nav2.MoveToNextAttribute())
                addData(nav2.Name, nav2.Value, tr)
            End While
            tb.Rows.Add(tr)
        End While
        DataGridView1.DataSource = tb
    End Sub
    Sub addData(ByVal name As String, ByVal val As String, ByRef tr As DataRow)
        For Each col As DataColumn In tr.Table.Columns
            If col.ColumnName = name Then tr(name) = val
        Next
    End Sub
если не можешь работать как с xml файлом то поработай как с текстовым, используй методы парсинга и регулярки, а записывать наверное лучше в datagridview
Если не может работать с готовым парсером, то советовать написать свой как-то не разумно.
1
27.12.2011, 09:59

Не по теме:

Подсветке синтаксиса VB .NET не устаю удивляться

0
27.12.2011, 13:50

Не по теме:

Я тоже) как изъять все что есть в обозревателе объектов(может есть коллекция какая-нить)? давно хочу парсер vb кода сваять

1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
27.12.2011, 13:50
Помогаю со студенческими работами здесь

В *.XML есть .Append & write. последнее обновление listView1?
например я пишу текст с колонами` a_a_1_a.@mail.ru в 'listView1' и с кнопкой 'Add' я добавляю этот текст в файле 'XmlTest.xml' в XML...

Нужно вывести данные в таблицу из xml файла
Есть такой файлик с расширением .xml (из программы spy_orb) в нем много строк, но нам нужно вытащить только суммы и запихнуть в таблицу,...

Импортировать большую таблицу
Есть таблица примерно на ~700 мегабайт, ее нужно импортировать из файла .txt в таблицу tbl1 в базе bd1. В таблице 2 поля - field_1 и...

Импортировать столбец в таблицу
Здравствуйте! Не знаю та ли тема, я выполнил запрос в sqllite а как теперь импортировать полученный столбец в таблицу не могу найти

Как импортировать таблицу в бд?
Есть база данных , есть таблица в папке и надо её как то импортировать в базу данных используя php код. Как это можно сделать ? тип...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
16
Ответ Создать тему
Новые блоги и статьи
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru