Войти
NeoBooker.ru
Добро пожаловать к нам в гости!
Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Модератор форума: 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 (39.0 Kb)


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

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



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

Файл презентации лежит по этой ссылке.
Бесплатный онлайн курс программирования в VisualNEO Win (NeoBook)
 
Сообщение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 (2.2 Kb)

"Вы знаете, нам очень понравились все варианты, что вы прислали. Даже не знаем, что выбрать… А может попробуем объединить все три логотипа в один?"
 
СообщениеПривет. Офисные документы это по сути архивы с набором 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 слайдов

У меня тоже, буду разбираться в чем дело. Пока не понял причину.
Бесплатный онлайн курс программирования в VisualNEO Win (NeoBook)
 
Сообщение
Цитата 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, спасибо!! Воспользовался последним вариантом. Заметки извлекаются! Удобно, елки-палки!! :)
Бесплатный онлайн курс программирования в VisualNEO Win (NeoBook)
 
Сообщениеmishem, anton, спасибо!! Воспользовался последним вариантом. Заметки извлекаются! Удобно, елки-палки!! :)
Автор - Вадим
Дата добавления - 01 Ноября 2015 в 05:29
markДата: Пт, 01 Апреля 2016, 20:18 | Сообщение # 75
Любопытный
ponand,
Цитата ponand ()
Помогите разобраться с функцией

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

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

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

У меня скрипт выдает ошибку поэтому, методом проб и ошибок слепил для себя. В vbs я ноль. Получилось коряво, но работает. :)
Автор - mark
Дата добавления - 01 Апреля 2016 в 20:18
novichokДата: Вт, 25 Декабря 2018, 18:06 | Сообщение # 76
Приколист
всем привет,скажите можно в небуке открыть фаил с поддержкой XML?
Прикрепления: 6942055.png (42.9 Kb)
 
Сообщениевсем привет,скажите можно в небуке открыть фаил с поддержкой XML?
Автор - novichok
Дата добавления - 25 Декабря 2018 в 18:06
LectorДата: Пт, 13 Сентября 2019, 08:22 | Сообщение # 77
Ветеран форума
Добрый день!

Подскажите, а как "допилить" скрипт NB2Word 1.2, чтобы можно было вставлять в Word параграфы с отступом слева (1,25 см) и без интервала после параграфа (10 pt)?
 
СообщениеДобрый день!

Подскажите, а как "допилить" скрипт NB2Word 1.2, чтобы можно было вставлять в Word параграфы с отступом слева (1,25 см) и без интервала после параграфа (10 pt)?
Автор - Lector
Дата добавления - 13 Сентября 2019 в 08:22
DEMBELДата: Пт, 13 Сентября 2019, 20:48 | Сообщение # 78
Наш дизайнер
На выхах попилю, загляни попозже. Какая версия ворда у тебя?
Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
 
СообщениеНа выхах попилю, загляни попозже. Какая версия ворда у тебя?
Автор - DEMBEL
Дата добавления - 13 Сентября 2019 в 20:48
LectorДата: Сб, 14 Сентября 2019, 09:33 | Сообщение # 79
Ветеран форума
word 2016
 
Сообщениеword 2016
Автор - Lector
Дата добавления - 14 Сентября 2019 в 09:33
DEMBELДата: Пн, 16 Сентября 2019, 02:56 | Сообщение # 80
Наш дизайнер
Мда, скрипт конечно та еще жесть ) надо плагин допиливать.
Вставь сюда http://joxi.ru/xAeBxnKCRkE5jr перед nbExecAction:
Код
objSelection.ParagraphFormat.SpaceBefore = 0 'интервал перед абзацем
objSelection.ParagraphFormat.SpaceAfter = 0 'интервал после абзаца
objSelection.Paragraphs.FirstLineIndent = 72 'отступ красной сроки
Как задавать вопросы

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
 
СообщениеМда, скрипт конечно та еще жесть ) надо плагин допиливать.
Вставь сюда http://joxi.ru/xAeBxnKCRkE5jr перед nbExecAction:
Код
objSelection.ParagraphFormat.SpaceBefore = 0 'интервал перед абзацем
objSelection.ParagraphFormat.SpaceAfter = 0 'интервал после абзаца
objSelection.Paragraphs.FirstLineIndent = 72 'отступ красной сроки
Автор - DEMBEL
Дата добавления - 16 Сентября 2019 в 02:56
LectorДата: Пн, 16 Сентября 2019, 04:13 | Сообщение # 81
Ветеран форума
Работает, спасибо!
 
СообщениеРаботает, спасибо!
Автор - Lector
Дата добавления - 16 Сентября 2019 в 04:13
AlexandrVolДата: Сб, 04 Ноября 2023, 16:29 | Сообщение # 82
Прохожий
Кстати касательно офиса, я бы на вашем месте решил купить Microsoft Office 365 и не париться с вылезающим окошком в начале)
 
СообщениеКстати касательно офиса, я бы на вашем месте решил купить Microsoft Office 365 и не париться с вылезающим окошком в начале)
Автор - AlexandrVol
Дата добавления - 04 Ноября 2023 в 16:29
Форум NeoBook » Всё о программе NeoBook » Сценарии и скриптовые языки в Neobook » Взаимодействие с документами Microsoft Office (Excel, Word, Access, Outlook)
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Поиск: