| Нужна помощь | 
|  | 
| 
					| ded2007 | Дата: Понедельник, 02.05.2011, 00:28 | Сообщение # 31 |  |  Профессионал Группа: Проверенные Сообщений: 595 Статус: Отсутствует | Посмотрите "подпрограмму" :dialog_save. В ней командамиQuote (antey8) в примере открывается диалог открытия файласоздается VBScript с именем a.vbsCode echo Set objDialog = CreateObject( "SAFRCFileDlg.FileSave" )>#a.vbs echo objDialog.FileName = "">>#a.vbs
 echo objDialog.OpenFileSaveDlg>>#a.vbs
 echo WScript.Echo objDialog.FileName>>#a.vbs
 
Затем, командой
 он запускается на исполнение и выделяется его ответ.Code for /f "tokens=*" %%i in ('cscript.exe #a.vbs ^| find "\"') do set FILE_SAVE="%%i"Дальше - просто зачищаем
 Code del /q #a.vbs>nul 2>nul
 @DED-LEGO@ - конструктор для разработчиков GFX-тем ПОСМОТРЕТЬ
 |  |  |  |  | 
| 
					| antey8 | Дата: Понедельник, 02.05.2011, 00:38 | Сообщение # 32 |  | Ищущий Группа: Проверенные Сообщений: 38 Статус: Отсутствует | ded2007, вот что у меня
  dialog_save set FILE_SAVE=
 echo Set objDialog = CreateObject( "SAFRCFileDlg.FileSave" )>#a.vbs
 echo objDialog.FileName = "">>#a.vbs
 echo objDialog.OpenFileSaveDlg>>#a.vbs
 echo WScript.Echo objDialog.FileName>>#a.vbs
 for /f "tokens=*" %%i in ('cscript.exe #a.vbs ^| find "\"') do set FILE_SAVE="%%i"
 del /q #a.vbs>nul 2>nul
  просит открыть файл 
 
 Сообщение отредактировал antey8 - Понедельник, 02.05.2011, 01:09 |  |  |  |  | 
| 
					| ded2007 | Дата: Понедельник, 02.05.2011, 01:10 | Сообщение # 33 |  |  Профессионал Группа: Проверенные Сообщений: 595 Статус: Отсутствует | Так, кажется мы опять не поняли друг друга  . Я предполагал, что Вас заинтересовали подробности (и привел их в посте #31), а сейчас мне уже кажется, что Вы имели в виду какую-то проблему, но не сформулировали ее   "Или я неправ, или одно из двух"
   
 @DED-LEGO@ - конструктор для разработчиков GFX-тем ПОСМОТРЕТЬ
 |  |  |  |  | 
| 
					| antey8 | Дата: Понедельник, 02.05.2011, 01:16 | Сообщение # 34 |  | Ищущий Группа: Проверенные Сообщений: 38 Статус: Отсутствует | Quote (ded2007) "Или я неправ, или одно из двух" нам нужен диалог сохранения, аполучаем открытие
 |  |  |  |  | 
| 
					| ded2007 | Дата: Понедельник, 02.05.2011, 01:56 | Сообщение # 35 |  |  Профессионал Группа: Проверенные Сообщений: 595 Статус: Отсутствует | Понял. В примере dialog3.cmd (Вы ведь на него ссылались) показаны ОБА ДИАЛОГА.Quote (antey8) нам нужен диалог сохранения, аполучаем открытие Первым показывается диалог "Выбор файла". В нем не позволяется задавать свое имя файла, а разрешается только выбирать каталог и какой-либо файл. Вызов этого диалога реализован в "подпрограмме" :dialog. Это не моя находка, этот пример я взял с RuBoard-a. Вызывается этот "подскрипт" командамиПереключение кодовых страниц нужно для полноценной поддержки русских имен файловCode chcp 1251>nul call:dialog FILE_NAME
 chcp 866>nul
  После вышеописанного диалога, в обсуждаемом примере, вызывается диалог "Сохранить как". Он позволяет задавать свое имя файла, выбирать путь для сохранения и запрашивает подтверждение на перезапись файла, если выбран один из существующих. Именно этот диалог ("Сохранить как"), а не "диалог открытия файла" я описал в сообщении #31. Вызов его реализован в "подпрограмме" :dialog_save   PS Сами по себе диалоги ничего с файлами не делают, естественно, они только выдают в переменную путь и имя файла.   PSS Одним диалогом обойтись было нельзя, т.к. у них отличающиеся сценарии работы (например, можно или нет задавать свое имя файла) 
 @DED-LEGO@ - конструктор для разработчиков GFX-тем ПОСМОТРЕТЬ
 |  |  |  |  | 
| 
					| antey8 | Дата: Понедельник, 02.05.2011, 03:10 | Сообщение # 36 |  | Ищущий Группа: Проверенные Сообщений: 38 Статус: Отсутствует | Quote (ded2007) в обсуждаемом примере, вызывается диалог "Сохранить как". Он позволяет задавать свое имя файла, выбирать путь для сохранения и запрашивает подтверждение на перезапись файла, если выбран один из существующих. Именно этот диалог ("Сохранить как"), а не "диалог открытия файла" я описал в сообщении #31. Вызов его реализован в "подпрограмме" :dialog_save нету уменя такого диалога. может я туплю но диалог в котором можна выполнить выше описаное
 несмог увидеть.
 подскажите вчём можетбыть проблема?
 
 
 Сообщение отредактировал antey8 - Понедельник, 02.05.2011, 03:17 |  |  |  |  | 
| 
					| ded2007 | Дата: Понедельник, 02.05.2011, 10:15 | Сообщение # 37 |  |  Профессионал Группа: Проверенные Сообщений: 595 Статус: Отсутствует | Quote (antey8)   Quote (ded2007) Простыми средствами не получается, но если привлечь VBScript (а они стандартно исполняются в любой Windows-системе), то можно вот так. ПРИМЕР-3 Прикрепления: dialog3.cmd (3Kb) в примере открывается диалог открытия файлаВы ссылались на ПРИМЕР-3, по нему я и отвечал.
   А ghost.cmd - это откорректированный вариант Вашего menu_flash31.cmd. В нем "подпрограмма" :dialog_save присутствует, но действительно не задействована. Просмотрите файлы и все наше обсуждение внимательнее
  . 
 @DED-LEGO@ - конструктор для разработчиков GFX-тем ПОСМОТРЕТЬ
 |  |  |  |  | 
| 
					| antey8 | Дата: Понедельник, 02.05.2011, 14:27 | Сообщение # 38 |  | Ищущий Группа: Проверенные Сообщений: 38 Статус: Отсутствует | ded2007, chcp 1251>nul
 call:dialog_save FILE_SAVE
 chcp 866>nul
 НЕРАБОТАЕТ
 |  |  |  |  | 
| 
					| ded2007 | Дата: Понедельник, 02.05.2011, 16:10 | Сообщение # 39 |  |  Профессионал Группа: Проверенные Сообщений: 595 Статус: Отсутствует | В отличие от :dialog для :dialog_save переключение кодовых страниц не требуется. Если Вы имеете в виду не это, то уточните что именноQuote (antey8)  chcp 1251>nul
 call:dialog_save FILE_SAVE
 chcp 866>nul
 НЕРАБОТАЕТ
 @DED-LEGO@ - конструктор для разработчиков GFX-тем ПОСМОТРЕТЬ
 |  |  |  |  | 
| 
					| antey8 | Дата: Понедельник, 02.05.2011, 16:35 | Сообщение # 40 |  | Ищущий Группа: Проверенные Сообщений: 38 Статус: Отсутствует | Quote (ded2007) Если Вы имеете в виду не это, то уточните что именноя немогу запустить диалог :dialog_save
 |  |  |  |  | 
| 
					| ded2007 | Дата: Понедельник, 02.05.2011, 20:59 | Сообщение # 41 |  |  Профессионал Группа: Проверенные Сообщений: 595 Статус: Отсутствует | Давайте сначала. Вот пример dialog_save.cmd он работает? Если нет, то что пишет в командном окне? Лучше всего сделать скриншот.Quote (antey8) я немогу запустить диалог :dialog_save
 @DED-LEGO@ - конструктор для разработчиков GFX-тем ПОСМОТРЕТЬ
 |  |  |  |  | 
| 
					| antey8 | Дата: Понедельник, 02.05.2011, 21:26 | Сообщение # 42 |  | Ищущий Группа: Проверенные Сообщений: 38 Статус: Отсутствует | Quote (ded2007) Давайте сначала. Вот пример dialog_save.cmd он работает? Если нет, то что пишет в командном окне? Лучше всего сделать скриншот.вот мой скрин
 |  |  |  |  | 
| 
					| ded2007 | Дата: Понедельник, 02.05.2011, 21:35 | Сообщение # 43 |  |  Профессионал Группа: Проверенные Сообщений: 595 Статус: Отсутствует | Какая у Вас версия Windows? Установлен ли MSOffice? 
 @DED-LEGO@ - конструктор для разработчиков GFX-тем ПОСМОТРЕТЬ
 |  |  |  |  | 
| 
					| antey8 | Дата: Понедельник, 02.05.2011, 21:38 | Сообщение # 44 |  | Ищущий Группа: Проверенные Сообщений: 38 Статус: Отсутствует | Quote (ded2007) Какая у Вас версия Windows? Установлен ли MSOffice?windows 7 32bit, офис2007.
 |  |  |  |  | 
| 
					| ded2007 | Дата: Понедельник, 02.05.2011, 21:48 | Сообщение # 45 |  |  Профессионал Группа: Проверенные Сообщений: 595 Статус: Отсутствует | Вот заметка. В ней предлагается зарегистрировать библиотеку safrcdlg.dll. Я ее прилагаю. Для начала попробуем просто поместить ее в Windows\System32. 
 @DED-LEGO@ - конструктор для разработчиков GFX-тем ПОСМОТРЕТЬ
 
 
 Сообщение отредактировал ded2007 - Понедельник, 02.05.2011, 21:50 |  |  |  |  |