Автор Тема: XML  (Прочитано 1348 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Arkhangel

  • ***
  • Сообщений: 605
    • Просмотр профиля
#0: 05 Июля 2019, 18:22:41
Есть два файла первый это пример, второй мой файл с данными в нем неправильная схема. Вопрос как данные из файла раскидать по примеру?
1. http://cloud.cgko28.ru:8088/index.php/s/7yPtSOVoAg7Mb7R
2. http://cloud.cgko28.ru:8088/index.php/s/sFwWkluYDzGmgZ5

Arkhangel

  • ***
  • Сообщений: 605
    • Просмотр профиля
#1: 08 Июля 2019, 07:16:33
Нет у нас спецов по xml?

VladUS

  • *
  • Сообщений: 61
    • Просмотр профиля
#2: 08 Июля 2019, 08:30:53
второй мой файл с данными в нем неправильная схема
А какими средствами получается второй файл? Есть ли возможность изменения механизма выгрузки?
Если нет, то попробуйте это: http://qaru.site/questions/2509255/how-do-i-translate-xml-from-one-schema-to-another - сам не пробовал, не мой профиль.

Arkhangel

  • ***
  • Сообщений: 605
    • Просмотр профиля
#3: 08 Июля 2019, 11:30:24
А какими средствами получается второй файл? Есть ли возможность изменения механизма выгрузки?
файлик изначально был создан в excel

MikeSVB

  • ***
  • Сообщений: 5188
    • Просмотр профиля
    • http://svb28.ru
#4: 08 Июля 2019, 13:25:32
мне кажется, тут нужен свой велосипед для таких задач

akar

  • ***
  • Сообщений: 1043
    • Просмотр профиля
    • Регистр доноров костного мозга
#5: 08 Июля 2019, 15:19:40
файлик изначально был создан в excel
Чисто теоретически... Если экселевская таблица имеет постоянную чёткую структуру, то можно сохранить из экселя в csv и сделать скрипт, который даст нужные команды Microsoft Log Parser, и эта программа сделает нужный xml. Но делать скрипт с командами придётся долго.

Arkhangel

  • ***
  • Сообщений: 605
    • Просмотр профиля
#6: 10 Июля 2019, 16:21:34
Требуется программист для написания обработки, перевод данных из excel в xml, язык на ваше усмотрение. Есть примерный файлик написан на VBA(можно просто доработать имеющийся).

Arkhangel

  • ***
  • Сообщений: 605
    • Просмотр профиля
#7: 11 Июля 2019, 10:36:55
Public Sub XMLFDcreate()
Dim fso As Object
Set fso = CreateObject("scripting.filesystemobject")
Dim fileout As Object
Worksheets("Ìîäåëè FD").Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
÷èñëîìîäåëåé = ActiveCell.Row
D = 2

For G = 2 To ÷èñëîìîäåëåé
Ãðóïïà = Worksheets("Ìîäåëè FD").Cells(G, 1)
ÒèïÐàñ÷åòà = Worksheets("Ìîäåëè FD").Cells(G, 4)
Ìîäåëü = Worksheets("Ìîäåëè FD").Cells(G, 3)
Set fileout = fso.CreateTextFile(Worksheets("Ïàðàìåòðû").Cells(4, 2) & "FD_" & Ãðóïïà & ".xml", True, True)
fileout.write Chr(60) & "?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "UTF-8" & Chr(34) & "?" & Chr(62) & Chr(10)
fileout.write Chr(60) & "FD_State_Cadastral_Valuation Version=" & Chr(34) & "02" & Chr(34) & Chr(62) & Chr(10)

'<General_Information>
Worksheets("ÃÁÓ").Activate
fileout.write Chr(60) & "General_Information" & Chr(62) & Chr(10)
fileout.write Chr(60) & "RegionsRF" & Chr(62) & Chr(10)
fileout.write Chr(60) & "RegionRF" & Chr(62) & Cells(1, 2) & Chr(60) & Chr(47) & "RegionRF" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "RegionsRF" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Contract_Evaluation" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Details" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Date_Doc" & Chr(62) & Cells(2, 2) & Chr(60) & Chr(47) & "Date_Doc" & Chr(62) & Chr(10)
fileout.write Chr(60) & "N_Doc" & Chr(62) & Cells(3, 2) & Chr(60) & Chr(47) & "N_Doc" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Details" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Customer" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Name" & Chr(62) & Cells(4, 2) & Chr(60) & Chr(47) & "Name" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Code_OGRN" & Chr(62) & Cells(5, 2) & Chr(60) & Chr(47) & "Code_OGRN" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Address" & Chr(62) & Cells(6, 2) & Chr(60) & Chr(47) & "Address" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Customer" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Administrant" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Juridic" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Name" & Chr(62) & Cells(7, 2) & Chr(60) & Chr(47) & "Name" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Code_OGRN" & Chr(62) & Cells(8, 2) & Chr(60) & Chr(47) & "Code_OGRN" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Address" & Chr(62) & Cells(9, 2) & Chr(60) & Chr(47) & "Address" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Juridic" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Administrant" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Contract_Evaluation" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Report_Details Date=" & Chr(34) & Cells(10, 2) & Chr(34) & " Number=" & Chr(34) & Cells(11, 2) & Chr(34) & Chr(62) & Chr(10)
fileout.write Chr(60) & "Appraisers" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Appraiser" & Chr(62) & Chr(10)
fileout.write Chr(60) & "FIO" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Surname" & Chr(62) & Cells(12, 2) & Chr(60) & Chr(47) & "Surname" & Chr(62) & Chr(10)
fileout.write Chr(60) & "First" & Chr(62) & Cells(13, 2) & Chr(60) & Chr(47) & "First" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Patronymic" & Chr(62) & Cells(14, 2) & Chr(60) & Chr(47) & "Patronymic" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "FIO" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Name_Org" & Chr(62) & Cells(7, 2) & Chr(60) & Chr(47) & "Name_Org" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Appraiser" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Appraisers" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Report_Details" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "General_Information" & Chr(62) & Chr(10)


'Package

'Groups_Real_Estates
Worksheets("Ìîäåëè FD").Activate
fileout.write Chr(60) & "Package" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Groups_Real_Estates" & Chr(62) & Chr(10)

For i = 2 To ÷èñëîìîäåëåé
fileout.write Chr(60) & "Group_Real_Estate" & Chr(62) & Chr(10)
fileout.write Chr(60) & "ID_Group" & Chr(62) & Cells(i, 1) & Chr(60) & Chr(47) & "ID_Group" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Name_Group" & Chr(62) & Cells(i, 2) & Chr(60) & Chr(47) & "Name_Group" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Group_Real_Estate" & Chr(62) & Chr(10)
Next i

fileout.write Chr(60) & Chr(47) & "Groups_Real_Estates" & Chr(62) & Chr(10)

'Evaluative_Factors

Worksheets("Ôàêòîðû êîëè÷").Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
×èñëîÔàêòîðÊîëè÷ = ActiveCell.Row

fileout.write Chr(60) & "Evaluative_Factors" & Chr(62) & Chr(10)

For i = 2 To ×èñëîÔàêòîðÊîëè÷
fileout.write Chr(60) & "Evaluative_Factor Id_Factor=" & Chr(34) & Cells(i, 1) & Chr(34) & " Type=" & Chr(34) & "2" & Chr(34) & Chr(62) & Chr(10)
fileout.write Chr(60) & "Name_Factor" & Chr(62) & Cells(i, 3) & Chr(60) & Chr(47) & "Name_Factor" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Name_Factor_Desc" & Chr(62) & Cells(i, 4) & Chr(60) & Chr(47) & "Name_Factor_Desc" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Quantitative_Dimension" & Chr(62) & Cells(i, 5) & Chr(60) & Chr(47) & "Quantitative_Dimension" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Evaluative_Factor" & Chr(62) & Chr(10)

Next i

For i = 1 To Worksheets("Ïàðàìåòðû").Cells(5, 2)
Worksheets("Ôàêòîðû êà÷" & i).Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
×èñëîÇíà÷ = ActiveCell.Row

fileout.write Chr(60) & "Evaluative_Factor Id_Factor=" & Chr(34) & Cells(1, 2) & Chr(34) & " Type=" & Chr(34) & "1" & Chr(34) & Chr(62) & Chr(10)
fileout.write Chr(60) & "Name_Factor" & Chr(62) & Cells(3, 2) & Chr(60) & Chr(47) & "Name_Factor" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Name_Factor_Desc" & Chr(62) & Cells(4, 2) & Chr(60) & Chr(47) & "Name_Factor_Desc" & Chr(62) & Chr(10)
fileout.write Chr(60) & "QualitativeValues" & Chr(62) & Chr(10)

For j = 6 To ×èñëîÇíà÷
fileout.write Chr(60) & "QualitativeValue" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Qualitative_Id" & Chr(62) & Cells(j, 2) & Chr(60) & Chr(47) & "Qualitative_Id" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Qualitative_Value" & Chr(62) & Cells(j, 3) & Chr(60) & Chr(47) & "Qualitative_Value" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "QualitativeValue" & Chr(62) & Chr(10)
Next j
fileout.write Chr(60) & Chr(47) & "QualitativeValues" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Evaluative_Factor" & Chr(62) & Chr(10)

Next i

fileout.write Chr(60) & Chr(47) & "Evaluative_Factors" & Chr(62) & Chr(10)


'Appraise
    'Statistical_Modelling
fileout.write Chr(60) & "Appraise" & Chr(62) & Chr(10)

Worksheets("ÇÓ").Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
×èñëîÇÓ = ActiveCell.Row

If ÒèïÐàñ÷åòà = "Ñòàòèñòè÷åñêîå ìîäåëèðîâàíèå" Then
fileout.write Chr(60) & "Statistical_Modelling" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Group_Real_Estate_Modelling ID_Group=" & Chr(34) & Ãðóïïà & Chr(34) & Chr(62) & Chr(10)
fileout.write Chr(60) & "Rating_Model" & Chr(62) & Ìîäåëü & Chr(60) & Chr(47) & "Rating_Model" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Real_Estates" & Chr(62) & Chr(10)
For K = 3 To ×èñëîÇÓ
If Cells(K, 1) = Ãðóïïà Then
fileout.write Chr(60) & "Real_Estate ID_Group=" & Chr(34) & Cells(K, 1) & Chr(34) & Chr(62) & Chr(10)
fileout.write Chr(60) & "CadastralNumber" & Chr(62) & Cells(K, 2) & Chr(60) & Chr(47) & "CadastralNumber" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Type" & Chr(62) & Cells(K, 3) & Chr(60) & Chr(47) & "Type" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Area" & Chr(62) & Cells(K, 4) & Chr(60) & Chr(47) & "Area" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Category Name=" & Chr(34) & Cells(K, 5) & Chr(34) & " " & Chr(47) & Chr(62) & Chr(10)
fileout.write Chr(60) & "Utilization Name_doc=" & Chr(34) & Cells(K, 6) & Chr(34) & " " & Chr(47) & Chr(62) & Chr(10)
fileout.write Chr(60) & "Location" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Code_OKATO" & Chr(62) & Cells(K, 7) & Chr(60) & Chr(47) & "Code_OKATO" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Code_KLADR" & Chr(62) & Cells(K, 8) & Chr(60) & Chr(47) & "Code_KLADR" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Region" & Chr(62) & Cells(K, 9) & Chr(60) & Chr(47) & "Region" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Note" & Chr(62) & Cells(K, 10) & Chr(60) & Chr(47) & "Note" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Location" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Date_valuation" & Chr(62) & Cells(K, 11) & Chr(60) & Chr(47) & "Date_valuation" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Evaluative_Factors" & Chr(62) & Chr(10)

For a = 14 To 14 + ×èñëîÔàêòîðÊîëè÷ - 2 + Worksheets("Ïàðàìåòðû").Cells(5, 2)
If (a - 14) < ×èñëîÔàêòîðÊîëè÷ Then
fileout.write Chr(60) & "Evaluative_Factor ID_Factor=" & Chr(34) & Cells(2, a) & Chr(34) & " " & Chr(62) & Chr(10)
fileout.write Chr(60) & "Quantitative_Value" & Chr(62) & Cells(K, a) & Chr(60) & Chr(47) & "Quantitative_Value" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Evaluative_Factor" & Chr(62) & Chr(10)
Else
fileout.write Chr(60) & "Evaluative_Factor ID_Factor=" & Chr(34) & Cells(2, a) & Chr(34) & " " & Chr(62) & Chr(10)
fileout.write Chr(60) & "Qualitative_Id" & Chr(62) & Cells(K, a) & Chr(60) & Chr(47) & "Qualitative_Id" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Evaluative_Factor" & Chr(62) & Chr(10)
End If
Next a
fileout.write Chr(60) & Chr(47) & "Evaluative_Factors" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Real_Estate" & Chr(62) & Chr(10)
End If
Next K
fileout.write Chr(60) & Chr(47) & "Real_Estates" & Chr(62) & Chr(10)

fileout.write Chr(60) & "Evaluative_Factors_Modelling" & Chr(62) & Chr(10)
For M = 2 To ×èñëîÔàêòîðÊîëè÷
If InStr(1, Ìîäåëü, Worksheets("Ôàêòîðû êîëè÷").Cells(M, 3), vbTextCompare) <> 0 Then
fileout.write Chr(60) & "Evaluative_Factor_Modelling Id_factor=" & Chr(34) & Worksheets("Ôàêòîðû êîëè÷").Cells(M, 1) & Chr(34) & " " & Chr(47) & Chr(62) & Chr(10)
End If
Next M


fileout.write Chr(60) & Chr(47) & "Evaluative_Factors_Modelling" & Chr(62) & Chr(10)


fileout.write Chr(60) & Chr(47) & "Group_Real_Estate_Modelling" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Statistical_Modelling" & Chr(62) & Chr(10)
End If






'Valuation

If ÒèïÐàñ÷åòà = "Óñòàíîâëåíèå ñòîèìîñòè" Then
fileout.write Chr(60) & "Valuation" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Group_Real_Estate_Valuation" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Rationale" & Chr(62) & "Ìîäåëèðîâàíèå íà áàçå óäåëüíîé êàäàñòðîâîé ñòîèìîñòè" & Chr(60) & Chr(47) & "Rationale" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Real_Estates" & Chr(62) & Chr(10)
For K = 3 To ×èñëîÇÓ
If Cells(K, 1) = Ãðóïïà Then
fileout.write Chr(60) & "Real_Estate ID_Group=" & Chr(34) & Cells(K, 1) & Chr(34) & Chr(62) & Chr(10)
fileout.write Chr(60) & "CadastralNumber" & Chr(62) & Cells(K, 2) & Chr(60) & Chr(47) & "CadastralNumber" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Type" & Chr(62) & Cells(K, 3) & Chr(60) & Chr(47) & "Type" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Specific_CadastralCost Value=" & Chr(34) & Cells(K, 12) & Chr(34) & " Unit=" & Chr(34) & "1002" & Chr(34) & Chr(47) & Chr(62) & Chr(10)
fileout.write Chr(60) & "Area" & Chr(62) & Cells(K, 4) & Chr(60) & Chr(47) & "Area" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Category Name=" & Chr(34) & Cells(K, 5) & Chr(34) & " " & Chr(47) & Chr(62) & Chr(10)
fileout.write Chr(60) & "Utilization Name_doc=" & Chr(34) & Cells(K, 6) & Chr(34) & " " & Chr(47) & Chr(62) & Chr(10)
fileout.write Chr(60) & "Location" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Code_OKATO" & Chr(62) & Cells(K, 7) & Chr(60) & Chr(47) & "Code_OKATO" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Code_KLADR" & Chr(62) & Cells(K, 8) & Chr(60) & Chr(47) & "Code_KLADR" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Region" & Chr(62) & Cells(K, 9) & Chr(60) & Chr(47) & "Region" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Note" & Chr(62) & Cells(K, 10) & Chr(60) & Chr(47) & "Note" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Location" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Date_valuation" & Chr(62) & Cells(K, 11) & Chr(60) & Chr(47) & "Date_valuation" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Real_Estate" & Chr(62) & Chr(10)
End If
Next K
fileout.write Chr(60) & Chr(47) & "Real_Estates" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Group_Real_Estate_Valuation" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Valuation" & Chr(62) & Chr(10)
End If

' Other

If ÒèïÐàñ÷åòà = "Èíîå" Then
fileout.write Chr(60) & "Other" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Evaluation_Group" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Description" & Chr(62) & "Èñïîëüçîâàíèå ìåòîäîâ äîõîäíîãî ïîäõîäà" & Chr(60) & Chr(47) & "Description" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Real_Estates" & Chr(62) & Chr(10)
For K = 3 To ×èñëîÇÓ
If Cells(K, 1) = Ãðóïïà Then
fileout.write Chr(60) & "Real_Estate ID_Group=" & Chr(34) & Cells(K, 1) & Chr(34) & Chr(62) & Chr(10)
fileout.write Chr(60) & "CadastralNumber" & Chr(62) & Cells(K, 2) & Chr(60) & Chr(47) & "CadastralNumber" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Type" & Chr(62) & Cells(K, 3) & Chr(60) & Chr(47) & "Type" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Specific_CadastralCost Value=" & Chr(34) & Cells(K, 12) & Chr(34) & " Unit=" & Chr(34) & "1002" & Chr(34) & Chr(47) & Chr(62) & Chr(10)
fileout.write Chr(60) & "Area" & Chr(62) & Cells(K, 4) & Chr(60) & Chr(47) & "Area" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Category Name=" & Chr(34) & Cells(K, 5) & Chr(34) & " " & Chr(47) & Chr(62) & Chr(10)
fileout.write Chr(60) & "Utilization Name_doc=" & Chr(34) & Cells(K, 6) & Chr(34) & " " & Chr(47) & Chr(62) & Chr(10)
fileout.write Chr(60) & "Location" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Code_OKATO" & Chr(62) & Cells(K, 7) & Chr(60) & Chr(47) & "Code_OKATO" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Code_KLADR" & Chr(62) & Cells(K, 8) & Chr(60) & Chr(47) & "Code_KLADR" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Region" & Chr(62) & Cells(K, 9) & Chr(60) & Chr(47) & "Region" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Note" & Chr(62) & Cells(K, 10) & Chr(60) & Chr(47) & "Note" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Location" & Chr(62) & Chr(10)
fileout.write Chr(60) & "Date_valuation" & Chr(62) & Cells(K, 11) & Chr(60) & Chr(47) & "Date_valuation" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Real_Estate" & Chr(62) & Chr(10)
End If
Next K
fileout.write Chr(60) & Chr(47) & "Real_Estates" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Evaluation_Group" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Other" & Chr(62) & Chr(10)
End If


fileout.write Chr(60) & Chr(47) & "Appraise" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "Package" & Chr(62) & Chr(10)
fileout.write Chr(60) & Chr(47) & "FD_State_Cadastral_Valuation" & Chr(62) & Chr(10)

fileout.Close
Next G

End Sub


Arkhangel

  • ***
  • Сообщений: 605
    • Просмотр профиля
#8: 11 Июля 2019, 10:58:06
нужно доработать код, не бесплатно

_Ranger_

  • ***
  • Сообщений: 938
    • Просмотр профиля
#9: 11 Июля 2019, 11:05:24
код в файл кидать надо и на обменник или в облако
или на pastebin кинуть
с кодировкой траблы

Arkhangel

  • ***
  • Сообщений: 605
    • Просмотр профиля
#10: 11 Июля 2019, 12:17:11
для  примера выложил


IIpuHTeP

  • ***
  • Сообщений: 726
    • Просмотр профиля
    • Habr
#11: 11 Июля 2019, 20:14:44
Какая-то мутная задача. Выложите пример excel файла (обезличивайте личные данные, не выкладывайте данные с чьими-то данными, замените на Иванов Иван Иванович). Это раз. Два: я так понял вам надо перевести имеющиеся данные (в excel или где-то там) под данный xml файл, верно? Третье: нету сразу схемы этого файла в xsd? (XSD — это язык описания структуры XML документа. Его также называют XML Schema. При использовании XML Schema XML парсер может проверить не только правильность синтаксиса XML документа, но также его структуру, модель содержания и типы данных)

Arkhangel

  • ***
  • Сообщений: 605
    • Просмотр профиля
#12: 12 Июля 2019, 13:50:13
вот тут файл excel и то как он должен выглядеть в xml
http://cloud.cgko28.ru:8088/index.php/s/op2hxmLwLlZJ3w4

Собака Павлова

  • ***
  • Сообщений: 7536
    • Просмотр профиля
#13: 12 Июля 2019, 14:04:14
Чота в иксемеле гораздо больше полей чем в экселе

Arkhangel

  • ***
  • Сообщений: 605
    • Просмотр профиля
#14: 12 Июля 2019, 15:43:34
код выше нормально преобразует

Arkhangel

  • ***
  • Сообщений: 605
    • Просмотр профиля
#15: 12 Июля 2019, 15:43:52
но его надо допилить