помогите считать текст.

[raf]

Не подскажет ли кто как мне *.xml файл считать в массив? Я открываю его как текстовый и считываю построчно в массив l (i,j),
с применением следующего кода

For i = 0 To s - 1
Open (p & f(i)) For Input As #1
For j = 1 To 999
If EOF(1) = True Then
j = 999
GoTo 10
End If
Line Input #1, l(i, j)
10 Next j
Close #1
Next i
где p - путь к файлу, f(i) - имя файла, l(i,j) - житая строка итого файла.

но в итоге русский текст превращается в кал который на рисунке.


хотя с обычным *.txt все происходит нормально.
Можно ли это исправить Если кому изветно сообщите пожалуйста

[Ennor]

Конечно, известно - кодировка файла UTF-8, я угадал? В ней на один символ может отводиться один байт, а может два - смотря какой символ. Писать собственный парсер - проще застрелиться.

Только у меня другой вопрос - а нафига его читать как текст, если существуют парсеры для работы с ним как со структурированным хранилищем данных?

[Gloom]

Код: Выделить всё

    Dim objStream As New ADODB.Stream
   
    With objStream
        .Type = adTypeText
        .Charset = "utf-8"
        .Open
        .LoadFromFile "data.xml"
        Do Until .EOS
            Debug.Print .ReadText(adReadLine)
        Loop
        .Close
    End With

[raf]

Конечно, известно - кодировка файла UTF-8, я угадал? В ней на один символ может отводиться один байт, а может два - смотря какой символ. Писать собственный парсер - проще застрелиться.

Только у меня другой вопрос - а нафига его читать как текст, если существуют парсеры для работы с ним как со структурированным хранилищем данных?

Спасибо. еслиб я еще знал эти парсеры для работы с ним как со структурированным хранилищем данных был бы совсем умным. Меня на работе прижали данные из xml файлов обработать, а как это делаица не сказали hады.

[Ennor]

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

[raf]

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

Есть файлы формата *.xml, созданые в некой проге под названием InfoPath. Содержат обычную офисную дребедень о клиентах (имя клиента, заказы, оплаты и тд.) в следующем виде

<my:расчетныйСчет>402222222235</my:расчетныйСчет>
<my:корреспондентскийСчет>222222222</my:корреспондентскийСчет>
<my:ОГРН></my:ОГРН>
<my:ИНН>222222</my:ИНН>
<my:КПП>72222222</my:КПП>
<my:БИК>222222</my:БИК>
<my:ОКПО>2222222</my:ОКПО>

ну и так далее.


Требуется сделать штуку, которая выудит из этих файлов эту дребедень и выдаст в удобном рассортированном виде, чтоб можно было производить поиск итп. Короче вроде базы данных. Беда в том, что шефы-гуманитарии не желают, чтоб база была сделана в старом добром Access, потому что по их словам "это вчерашний день"!!!
А с xml я дел не имел и с этим InfoPath сраным тоже. Вот как жить бедному сисаду с такими людьми?!

[alibek]

InfoPath это... Вообщем это не такая уж и гадость, если его правильно применять. И это совсем не БД.
А для работы с XML юзай майкросовтовский парсер, а не самодельный, и проблем не будет.

[Ennor]

Не хотят аксесс, говоришь? Ну, отчасти они правы, конечно... Но можно сделать так:

1. Ставишь MS SQL Server 2000 (можешь даже Юкон ака 2005, только он не вышел еще официально) и говоришь своему начальству, что это - самая крутая СУБД всех времен и народов, и что за ней будущее. Купятся, вот увидишь.
2. В составе сиквела, разумеется, идет справочная система, называется Books Online (BOL). Открываешь бол и смотришь справку по оператору OPENXML() - он позволяет подгружать XML-ресурс и использовать его в запросах как обычные данные табулярного формата. После чего быстренько разбираешься в структуре, ваяешь нужную тебе реляционную модель и грузишь весь этот мусор в базу данных. После чего - вуаля! - можешь работать с ними посредством обычных селектов, апдейтов и т.д.

Способ спорный, но работоспособный. Так многие делают. Ну а если ухитришься ко всему этому сверху еще и Analysis Services прикрутить, то тебе просто цены не будет .

[Alian]

Лучше всего файлы (кроме чисто текстовых типа электронных книг) считывать не в "Open XXX For Input As #1", а в "Open XXX For Binary As #1": помогает часто. А насчёт кодировки - в VB6 где-то была подобная функция.