Войти
NeoBooker.ru
Добро пожаловать к нам в гости!
Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
Страница 3 из 3«123
Модератор форума: Peter, DEMBEL 
Форум NeoBook » Всё о программе NeoBook » Сценарии и скриптовые языки в Neobook » Взаимодействие с документами Microsoft Office (Excel, Word, Access, Outlook)
Взаимодействие с документами Microsoft Office
mishemДата: Вс, 29 Января 2012, 21:32 | Сообщение # 61
Эксперт форума

Добавлено (29 Января 2012, 21:32)
---------------------------------------------



Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
Сообщение

Добавлено (29 Января 2012, 21:32)
---------------------------------------------


Автор - mishem
Дата добавления - 29 Января 2012 в 21:32
bodunovaДата: Вс, 29 Января 2012, 21:50 | Сообщение # 62
Новичок
mishem,
 
Сообщениеmishem,

Автор - bodunova
Дата добавления - 29 Января 2012 в 21:50
mishemДата: Вс, 29 Января 2012, 21:53 | Сообщение # 63
Эксперт форума


Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
Сообщение

Автор - mishem
Дата добавления - 29 Января 2012 в 21:53
bodunovaДата: Пн, 30 Января 2012, 20:59 | Сообщение # 64
Новичок
mishem,

 
Сообщениеmishem,


Автор - bodunova
Дата добавления - 30 Января 2012 в 20:59
ponandДата: Сб, 31 Августа 2013, 02:39 | Сообщение # 65
Участник
Помогите разобраться с функцией

есть фунция vbs по заполнения данными листа Excel



заполнение работает нормально, а вот снять защиту с ячейки почему то не получается, выдает ошибку.
Прикрепления: 1072000.jpg(39Kb)


Сообщение отредактировано
ponand - Сб, 31 Августа 2013, 10:26
 
СообщениеПомогите разобраться с функцией

есть фунция vbs по заполнения данными листа Excel



заполнение работает нормально, а вот снять защиту с ячейки почему то не получается, выдает ошибку.

Автор - ponand
Дата добавления - 31 Августа 2013 в 02:39
ВадимДата: Пт, 16 Октября 2015, 17:53 | Сообщение # 66
Генератор идей
Возникла задача вынуть заметки из файлов презентаций, но копипастить из каждого слайда довольно долго - файлов презентаций несколько и они все многостраничные. Натолкнулся в сети на код, но не знаю как его оформить и возможно ли. Поэтому и вопрос:
Возможно ли этот код превратить в функцию для NeoBook?
Чтобы можно было скормить функции файл ppt, а рядом с ним получить txt со всеми заметками к слайдам.


С уважением, Вадим
Win7x32, NB5.8.7, NeoBookDBPro1.6a, FF48, IE11
Мои материалы для начинающих необукеров
 
СообщениеВозникла задача вынуть заметки из файлов презентаций, но копипастить из каждого слайда довольно долго - файлов презентаций несколько и они все многостраничные. Натолкнулся в сети на код, но не знаю как его оформить и возможно ли. Поэтому и вопрос:
Возможно ли этот код превратить в функцию для NeoBook?
Чтобы можно было скормить функции файл ppt, а рядом с ним получить txt со всеми заметками к слайдам.

Автор - Вадим
Дата добавления - 16 Октября 2015 в 17:53
DEMBELДата: Вт, 20 Октября 2015, 19:25 | Сообщение # 67
Наш дизайнер
если еще актуально скинь пример презентации из нескольких слайдов для тестов



Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
 
Сообщениеесли еще актуально скинь пример презентации из нескольких слайдов для тестов

Автор - DEMBEL
Дата добавления - 20 Октября 2015 в 19:25
ВадимДата: Чт, 22 Октября 2015, 21:26 | Сообщение # 68
Генератор идей
DEMBEL, да, актуально! Но если шибко муторно, то обойдусь, не трать свое время. С одной презентацией (по развитию логики мышления) я разобрался вручную, остальные пока не к спеху, поэтому если получится универсальный инструмент - замечательно! Ну а если нет, то и копипаст сгодится, не так уж это и долго. Просто стало интересно - возможно ли быстрее с помощью NeoBook :).

Я открыл pptx через 7zip и увидел, что заметки лежат в папке notesSlides, но в таком виде, что проще вручную скопипастить из самого файла презентации в файл ворд или в текстовик )))

Файл презентации лежит по этой ссылке.


С уважением, Вадим
Win7x32, NB5.8.7, NeoBookDBPro1.6a, FF48, IE11
Мои материалы для начинающих необукеров
 
СообщениеDEMBEL, да, актуально! Но если шибко муторно, то обойдусь, не трать свое время. С одной презентацией (по развитию логики мышления) я разобрался вручную, остальные пока не к спеху, поэтому если получится универсальный инструмент - замечательно! Ну а если нет, то и копипаст сгодится, не так уж это и долго. Просто стало интересно - возможно ли быстрее с помощью NeoBook :).

Я открыл pptx через 7zip и увидел, что заметки лежат в папке notesSlides, но в таком виде, что проще вручную скопипастить из самого файла презентации в файл ворд или в текстовик )))

Файл презентации лежит по этой ссылке.

Автор - Вадим
Дата добавления - 22 Октября 2015 в 21:26
antonДата: Пт, 23 Октября 2015, 00:05 | Сообщение # 69
Ветеран форума
Привет. Офисные документы это по сути архивы с набором xml-ек, так что их вполне можно распаковать и пропарсить нужные данные.
Я накалякал, кривоработающий вариант. Почему то, у меня парсит только первые 6 слайдов из той презентации, что ты выложил (Грешу на скрипт парсера, хотя может и я в коде где напортачил. 12 ночи уже, спать охота до жути, но саму логику все равно проследить можно.)
Вообщем вод код:
Код

FileOpenBox "Выберите файл презентации" "Все файлы|*.pptx" "[PubDir]" "[FilePPTX]" ""

SetVar "[notesSlides]" "непуст"
SetVar "[i]" "1"
While "[notesSlides]" "<>" ""
      hpwUnZipString "[FilePPTX]" "ppt\notesSlides\notesSlide[i].xml" "" "[notesSlides]"
      SetVar "[notesSlides[i]]" "[notesSlides]"
      SetVar "[i]" "[i]+1"
EndWhile

GetArrayInfo "[notesSlides]" "" "" "[vSlide]"

Loop "1" "[vSlide]" "[si]"
Call "PARSER_TEGOV.noext" "<a:t>" "</a:t>" "1" "[notesSlides[si]]" "1" "[notes[si]]" "[vi]"
SetVar "[TXTnotes]" "[notes[si]] [TXTnotes]"
EndLoop

zmConvertString "Utf8ToAnsi" "[TXTnotes]" "[TXTnotesDisp]"


Проект в прикреплении, для работы понадобиться, вот этот парсер (от mishem), и плагины zmFunctions и hpwUtility
Прикрепления: testParsPPT.zip(2Kb)


"Вы знаете, нам очень понравились все варианты, что вы прислали. Даже не знаем, что выбрать… А может попробуем объединить все три логотипа в один?"
 
СообщениеПривет. Офисные документы это по сути архивы с набором xml-ек, так что их вполне можно распаковать и пропарсить нужные данные.
Я накалякал, кривоработающий вариант. Почему то, у меня парсит только первые 6 слайдов из той презентации, что ты выложил (Грешу на скрипт парсера, хотя может и я в коде где напортачил. 12 ночи уже, спать охота до жути, но саму логику все равно проследить можно.)
Вообщем вод код:
Код

FileOpenBox "Выберите файл презентации" "Все файлы|*.pptx" "[PubDir]" "[FilePPTX]" ""

SetVar "[notesSlides]" "непуст"
SetVar "[i]" "1"
While "[notesSlides]" "<>" ""
      hpwUnZipString "[FilePPTX]" "ppt\notesSlides\notesSlide[i].xml" "" "[notesSlides]"
      SetVar "[notesSlides[i]]" "[notesSlides]"
      SetVar "[i]" "[i]+1"
EndWhile

GetArrayInfo "[notesSlides]" "" "" "[vSlide]"

Loop "1" "[vSlide]" "[si]"
Call "PARSER_TEGOV.noext" "<a:t>" "</a:t>" "1" "[notesSlides[si]]" "1" "[notes[si]]" "[vi]"
SetVar "[TXTnotes]" "[notes[si]] [TXTnotes]"
EndLoop

zmConvertString "Utf8ToAnsi" "[TXTnotes]" "[TXTnotesDisp]"


Проект в прикреплении, для работы понадобиться, вот этот парсер (от mishem), и плагины zmFunctions и hpwUtility

Автор - anton
Дата добавления - 23 Октября 2015 в 00:05
ВадимДата: Пт, 30 Октября 2015, 13:08 | Сообщение # 70
Генератор идей
Цитата anton ()
Почему то, у меня парсит только первые 6 слайдов
Спасибо, Антон! Попробую!

Добавлено (30 Октября 2015, 13:08)
---------------------------------------------

Цитата anton ()
Почему то, у меня парсит только первые 6 слайдов

У меня тоже, буду разбираться в чем дело. Пока не понял причину.


С уважением, Вадим
Win7x32, NB5.8.7, NeoBookDBPro1.6a, FF48, IE11
Мои материалы для начинающих необукеров
 
Сообщение
Цитата anton ()
Почему то, у меня парсит только первые 6 слайдов
Спасибо, Антон! Попробую!

Добавлено (30 Октября 2015, 13:08)
---------------------------------------------

Цитата anton ()
Почему то, у меня парсит только первые 6 слайдов

У меня тоже, буду разбираться в чем дело. Пока не понял причину.

Автор - Вадим
Дата добавления - 30 Октября 2015 в 13:08
antonДата: Пт, 30 Октября 2015, 14:38 | Сообщение # 71
Ветеран форума
Цитата Вадим ()
У меня тоже, буду разбираться в чем дело. Пока не понял причину.

А я пока признаться честно не пытался понять, работой завалили. Перекурить некогда. Время появиться поковыряю. Вместе найдем причину. Может еще у кого желание появиться нам помочь, или чтонть свое предложить.... ;)


"Вы знаете, нам очень понравились все варианты, что вы прислали. Даже не знаем, что выбрать… А может попробуем объединить все три логотипа в один?"
 
Сообщение
Цитата Вадим ()
У меня тоже, буду разбираться в чем дело. Пока не понял причину.

А я пока признаться честно не пытался понять, работой завалили. Перекурить некогда. Время появиться поковыряю. Вместе найдем причину. Может еще у кого желание появиться нам помочь, или чтонть свое предложить.... ;)

Автор - anton
Дата добавления - 30 Октября 2015 в 14:38
mishemДата: Пт, 30 Октября 2015, 19:50 | Сообщение # 72
Эксперт форума
Цитата anton ()
Грешу на скрипт парсера, хотя может и я в коде где напортачил.

Что там внутри парсера я уже и не помню, а напортачил в коде.

Вот так короче у меня вроде бы все файлы пропарсил.

Код

FileOpenBox "Выберите файл презентации" "Все файлы|*.pptx" "[PubDir]" "[FilePPTX]" ""

SetVar "[notesSlides]" "непуст"
SetVar "[i]" "1"
While "[notesSlides]" "<>" ""
      hpwUnZipString "[FilePPTX]" "ppt\notesSlides\notesSlide[i].xml" "" "[notesSlides]"
      zmConvertString "Utf8ToAnsi" "[notesSlides]" "[notesSlides]"
      SetVar "[notesSlides[i]]" "[notesSlides]"
      SetVar "[i]" "[i]+1"
EndWhile

GetArrayInfo "[notesSlides]" "" "" "[vSlide]"

Loop "1" "[vSlide]" "[si]"

Call "PARSER_TEGOV.noext" "<a:t>" "</a:t>" "1" "[notesSlides[si]]" "0" "[notes[si]]" "[vi]"

Loop "1" "[vi]" "[i]"
    SetVar "[TXTnotes]" "[TXTnotes][#13][notes[si][i]]"
    If "[i]" "=" "[vi]"
        SetVar "[TXTnotes]" "[TXTnotes][#13]"
    EndIf
EndLoop
DeleteArray "[notes[si]]" "All"
ClearVariables "[notesSlides[si]]"
EndLoop

Добавлено (30 Октября 2015, 19:50)
---------------------------------------------
Алучше использовать еще один плагин hpwControl вместо функции. Быстрее будет.
И такой код:

Код

FileOpenBox "Выберите файл презентации" "Все файлы|*.pptx" "[PubDir]" "[FilePPTX]" ""

SetVar "[notesSlides]" "непуст"
SetVar "[i]" "1"
While "[notesSlides]" "<>" ""
      hpwUnZipString "[FilePPTX]" "ppt\notesSlides\notesSlide[i].xml" "" "[notesSlides]"
      zmConvertString "Utf8ToAnsi" "[notesSlides]" "[notesSlides]"
      SetVar "[TXTnotes]" "[TXTnotes][#13][#10][notesSlides]"
      SetVar "[i]" "[i]+1"
EndWhile

hpwExecRegExpList "<a:t>.*?</a:t>" "[TXTnotes]" "[#13][#10]" "[TXTnotes2]"

StrReplace "[TXTnotes2]" "<a:t>" "" "[TXTnotes2]" ""
StrReplace "[TXTnotes2]" "</a:t>" "" "[TXTnotes2]" ""


Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
Сообщение
Цитата anton ()
Грешу на скрипт парсера, хотя может и я в коде где напортачил.

Что там внутри парсера я уже и не помню, а напортачил в коде.

Вот так короче у меня вроде бы все файлы пропарсил.

Код

FileOpenBox "Выберите файл презентации" "Все файлы|*.pptx" "[PubDir]" "[FilePPTX]" ""

SetVar "[notesSlides]" "непуст"
SetVar "[i]" "1"
While "[notesSlides]" "<>" ""
      hpwUnZipString "[FilePPTX]" "ppt\notesSlides\notesSlide[i].xml" "" "[notesSlides]"
      zmConvertString "Utf8ToAnsi" "[notesSlides]" "[notesSlides]"
      SetVar "[notesSlides[i]]" "[notesSlides]"
      SetVar "[i]" "[i]+1"
EndWhile

GetArrayInfo "[notesSlides]" "" "" "[vSlide]"

Loop "1" "[vSlide]" "[si]"

Call "PARSER_TEGOV.noext" "<a:t>" "</a:t>" "1" "[notesSlides[si]]" "0" "[notes[si]]" "[vi]"

Loop "1" "[vi]" "[i]"
    SetVar "[TXTnotes]" "[TXTnotes][#13][notes[si][i]]"
    If "[i]" "=" "[vi]"
        SetVar "[TXTnotes]" "[TXTnotes][#13]"
    EndIf
EndLoop
DeleteArray "[notes[si]]" "All"
ClearVariables "[notesSlides[si]]"
EndLoop

Добавлено (30 Октября 2015, 19:50)
---------------------------------------------
Алучше использовать еще один плагин hpwControl вместо функции. Быстрее будет.
И такой код:

Код

FileOpenBox "Выберите файл презентации" "Все файлы|*.pptx" "[PubDir]" "[FilePPTX]" ""

SetVar "[notesSlides]" "непуст"
SetVar "[i]" "1"
While "[notesSlides]" "<>" ""
      hpwUnZipString "[FilePPTX]" "ppt\notesSlides\notesSlide[i].xml" "" "[notesSlides]"
      zmConvertString "Utf8ToAnsi" "[notesSlides]" "[notesSlides]"
      SetVar "[TXTnotes]" "[TXTnotes][#13][#10][notesSlides]"
      SetVar "[i]" "[i]+1"
EndWhile

hpwExecRegExpList "<a:t>.*?</a:t>" "[TXTnotes]" "[#13][#10]" "[TXTnotes2]"

StrReplace "[TXTnotes2]" "<a:t>" "" "[TXTnotes2]" ""
StrReplace "[TXTnotes2]" "</a:t>" "" "[TXTnotes2]" ""

Автор - mishem
Дата добавления - 30 Октября 2015 в 19:50
antonДата: Пт, 30 Октября 2015, 21:42 | Сообщение # 73
Ветеран форума
Цитата mishem ()
Что там внутри парсера я уже и не помню, а напортачил в коде.

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


"Вы знаете, нам очень понравились все варианты, что вы прислали. Даже не знаем, что выбрать… А может попробуем объединить все три логотипа в один?"
 
Сообщение
Цитата mishem ()
Что там внутри парсера я уже и не помню, а напортачил в коде.

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

Автор - anton
Дата добавления - 30 Октября 2015 в 21:42
ВадимДата: Вс, 01 Ноября 2015, 05:29 | Сообщение # 74
Генератор идей
mishem, anton, спасибо!! Воспользовался последним вариантом. Заметки извлекаются! Удобно, елки-палки!! :)

С уважением, Вадим
Win7x32, NB5.8.7, NeoBookDBPro1.6a, FF48, IE11
Мои материалы для начинающих необукеров
 
Сообщениеmishem, anton, спасибо!! Воспользовался последним вариантом. Заметки извлекаются! Удобно, елки-палки!! :)

Автор - Вадим
Дата добавления - 01 Ноября 2015 в 05:29
markДата: Пт, 01 Апреля 2016, 20:18 | Сообщение # 75
Любопытный
ponand,
Цитата ponand ()
Помогите разобраться с функцией

есть фунция vbs по заполнения данными листа Excel

У меня скрипт выдает ошибку поэтому, методом проб и ошибок слепил для себя. В vbs я ноль. Получилось коряво, но работает. :)
Прикрепления: XLS.rar(8Kb)
 
Сообщениеponand,
Цитата ponand ()
Помогите разобраться с функцией

есть фунция vbs по заполнения данными листа Excel

У меня скрипт выдает ошибку поэтому, методом проб и ошибок слепил для себя. В vbs я ноль. Получилось коряво, но работает. :)

Автор - mark
Дата добавления - 01 Апреля 2016 в 20:18
Форум NeoBook » Всё о программе NeoBook » Сценарии и скриптовые языки в Neobook » Взаимодействие с документами Microsoft Office (Excel, Word, Access, Outlook)
Страница 3 из 3«123
Поиск: