преобразовать данные из csv into openoffice

[Galbert]

Умные люди - выручайте!
У меня файл в csv
Хочу в опенофисе, типа как в примере

[kuklp]

Игорь, отож. Давай не лезть поперед батек форума:-) Скоро твой тезка появится, пущай решает.

[Hugo121]

Интересный пример на 32кб
Надо было его запаковать в рар, рар в инсталлятор, инсталлятор в образ диска.
Мы бы тут его смонтировали, установили (а может быть кто-то на диск сперва записал), распаковали и посмотрели - был бы процесс интереснее

А по делу - не видел я таких csv, чтоб и поля и десятичные запятыми разделялись... Хотя может быть...
Но опенофиса у меня нет. И такого csv тоже...

[Serge_Bliznykov]

А по делу - не видел я таких csv, чтоб и поля и десятичные запятыми разделялись...

+1

это либо глюк, либо ошибка.
и я лично нормального решения данной задачи НЕ ВИЖУ (есть, правда, ненормальные, но это надо взять набор текстов, сохранить их в такой глючный CSV, и потом смотреть. Если десятичная часть ВСЕГДА будет присутствовать, то можно обработать предварительно файл. Но исключительно для данного количества и состава чисел. если добавить любой столбец - то все эти хитрые преобразования рухнут!)


[брюзжание-ON]
а вообще, не знаю, кто придумал формат CSV, но те, кто делал export/import CSV в MS Excel - алтернативно одарённые уродцы. Они хотят и рыбку съесть и на дерево залезть... формат разделения полей и десятичных разрядов должен быть НЕЗАВИСИМЫМ от локальных настроек. А в случае MS - формат CSV меняется. и это глупо и неправильно!

[Hugo121]

Сергей, а я и подвинутся могу - тебя (как батьку) вперёд пропустить

[Galbert]

Друзья, всем спасибо!
По крайней мере, я пытался решить эту задачу.
Возможно, проблема, что невозможно выложить пример в исходном формате, но это к устроителям форума.
Все-таки, мне кажется решение возможно.
Изначально, при попытке открыть файл, появляется окно, в котором можно выбрать разделители.
Проблема в моем примере, что единственным разделителем является запятая.....

[Galbert]

Большой привет человеку из Никополя!

[Galbert]

может быть эта поможет:
рациональные числа в моем примере всегда начинаются с 7
т.е.
00:00:00,7,8,7,3
надо разделить по ячейкам:
00:00:00 7,8 7,3

[Hugo121]

Ну тогда что-то вроде:

Sub tt()
Dim s$, arr, i&
s = "00:00:00,7,8,7,3"
s = Replace(s, ",", "")
arr = Split(s, 7)
For i = 1 To UBound(arr)
arr(i) = "7" & "," & arr(i)
Next
End Sub

Читаем файл построчно, обрабатываем строку как выше, генерим выходной файл.
Какой - не знаю, нет опенофиса

[Казанский]

Почитайте тут: http://programmersforum.ru/showthread.php?t=166012
Начали с такого же кривого CSV, а потом совсем другое решение нашлось.