из нескольких слов сделать аббревитатуру Опции

[Puzo]

Вобщем задач в том что дана строка с несколькими словами и нужна функция которая из этой строки выдирает первые буквы от слов и записывает в другую строку, например отедл маркетинговых услуг нада получить ому, или еще пример отдел планирования аэронавигационного обеспечения\служба аэронавигационного обеспечения из этого должно получится опао сао
кто может помогите решить сию задачу пжлст

[Puzo]

а если у нас есть файл текстовый с этими же отделами например otdeli.txt , в который входят все отделы, т.е. в каждой строчке по отделу, например
отдел лизинговых связей/служба маркетинга
отдел маркетинга/экономическая служба
информационный отдел/служба безопасности
и тд и тп
то как в этом случае будет выглядеть текст программы.
и еще вопрос можно ли чтобы вместо .txt данные брались из .xls?

Сообщение отредактировано: Puzo - 16.07.2007 13:35

[Neznaika]

1)а если у нас есть файл текстовый с этими же отделами например otdeli.txt , в который входят все отделы, т.е. в каждой строчке по отделу, например
отдел лизинговых связей/служба маркетинга
отдел маркетинга/экономическая служба
информационный отдел/служба безопасности
и тд и тп
то как в этом случае будет выглядеть текст программы.

2)и еще вопрос можно ли чтобы вместо .txt данные брались из .xls?

1) - это несложно(компилятор Delphi):

...
var
   F : TextFile;
   S : String;
begin
   AssignFile(F,'otdeli.txt');
   Reset(F);
   ReadLn(F,S);
   S := Abbreviatura2(S);  
   Что-нибудь делаем с S
   ...
   CloseFile(F)

2) - это уже посложнее.
Наверно нужно использовать OLE.
Программа установит связь с Excel(он соответственно будет сервером) и попросит его открыть документ
например otdeli.xls. Далее нужно посылать OLE-серверу запросы на чтение нужных строк
(аббревиатуры которых нужно создать). Вроде не очень сложно, но я помочь не смогу(не знаю как точно
нужно запрограммировать обмен данными и Excel отсутствует).
Есть ещё вариант - узнать в каком формате хранятся нужные строки в XLS файле, но тогда придётся бороться
с переносимостью(то есть с НЕПЕРЕНОСИМОСТЬЮ - с одной версией XLS будет работать, с другой нет)

Сообщение отредактировано: Neznaika - 16.07.2007 17:22