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, который их уже будет раскладывать по формам нашей стройной модели метаданных (%

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 11:01 am
Powered by Dreamwidth Studios