http_404: (Default)
[personal profile] http_404
Public Sub CreateXML()
    Dim cnn As ADODB.Connection
    Dim adoField As ADODB.Field
    Dim rst As ADODB.Recordset
    
    Set cnn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    rst.Open "f_lit", cnn ' Имя таблицы
    rst.MoveFirst
   
    Do  'бежим по строкам таблицы
        Set xmlParser = CreateObject("msxml2.DOMDocument")
        xmlParser.appendChild (xmlParser.createProcessingInstruction("xml", 
                                  "version='1.0' encoding='windows-1251'"))
        'корневая нода с id
        Set rootnode = xmlParser.appendChild(xmlParser.createElement("Item"))
        Set newAttr = xmlParser.createAttribute(rst.Fields(0).Name)
        newAttr.Value = rst.Fields(0).Value
        rootnode.setAttributeNode (newAttr)
        
        For i = 1 To rst.Fields.Count - 1 'бежим по полям записи
            Set subNode = rootnode.appendChild(xmlParser.createElement(rst.Fields(i).Name))
            subNode.Text = rst.Fields(i).Value
        Next i
     
        f_name = rst.Fields(0).Name + "_" + CStr(rst.Fields(0).Value) + ".xml"
        xmlParser.Save (f_name)
        rst.MoveNext
    Loop Until rst.EOF

    rst.Close
    Set rst = Nothing
    cnn.Close
    Set cnn = Nothing
End Sub

Так и живем. С видео пока застряли на этапе снисхождения манны в виде денег.
Ну так что же, у нас есть аудиоархив, со своей непростой судьбой.

Изначально это магнитная лента Ampex, которая потом оцифровывалась на DAT-кассеты, которые затем писали на CD-Audio, которые затем оцифровывались файлами на DVD, которые потом переписывались на сервер.
Ага, именно, весь материал, а это наверное под100000 единиц записей, как-то размазан между этими носителями, частично дублирован. Ух. Понять где-что практически не возможно.

Все это добро частично описано в FoxPro'шной базе, которую /*Слава ODBC! */ мне удалось затащить в access и там уже что-то с ней поделать.

Неплохо было бы дать возможность этому материалу, а он наверное местами довольно уникален /*Стук сердца Джона Гленона записанный из космоса*/, быть доступным внешним потребителям, а именно Радио России, Маяк, Культура и т.п.
Для этого материал, и что еще очень важно - метаданные, запихать в радийный Dalet.

Кусок кода вставлен для красоты, моя текущая гордость - дергаем метаданные из таблиц и пихаем их в xml файлы, для Impex-сервера Dalet, который их уже будет раскладывать по формам нашей стройной модели метаданных (%
From:
Anonymous( )Anonymous This account has disabled anonymous posting.
OpenID( )OpenID You can comment on this post while signed in with an account from many other sites, once you have confirmed your email address. Sign in using OpenID.
User
Account name:
Password:
If you don't have an account you can create one now.
Subject:
HTML doesn't work in the subject.

Message:

 
Notice: This account is set to log the IP addresses of everyone who comments.
Links will be displayed as unclickable URLs to help prevent spam.

October 2012

S M T W T F S
 123456
78910 111213
14151617181920
21222324252627
28293031   

Most Popular Tags

Style Credit

Expand Cut Tags

No cut tags
Page generated Sep. 26th, 2017 10:46 am
Powered by Dreamwidth Studios