IPB

Здравствуйте, гость ( Вход | Регистрация )

4 страниц V  < 1 2 3 4 >  
Reply to this topicStart new topic
> Dark side of Programming, Visual Basic
izrukvruki
сообщение 27 Feb 2007, 11:29
Сообщение #41

Князь Бореи
Сообщений: 5 171
Спасибо сказали: 1349 раз




Такая ситуация: сначала открываю файл, и пересохраняю его

OpenDocument Name1
...
ActiveDocument.SaveAs Name2

Но вот если Name2 открыт - вылетает ошибка. может быть можно как-то провести проверку на открыт файл или не открыт???

On Error Resume Next
конечно ошибку игнорирует и не вылетает, но хотелось бы ошибку отловить и предотвратить
Go to the top of the pageAdd Nick
 
+Quote Post
Bourn
сообщение 27 Feb 2007, 11:54
Сообщение #42

Immortal
Сообщений: 2 415
Спасибо сказали: 60 раз




на счет VBA я не знаю но можно ошибку отловить
On Error Resume goto label
тут код
label:
msgbox err.description


--------------------
Не лезь в дела Мудрых. Понять - не поймешь, а хлопот не оберешься.
Go to the top of the pageAdd Nick
 
+Quote Post
izrukvruki
сообщение 28 Dec 2007, 15:31
Сообщение #43

Князь Бореи
Сообщений: 5 171
Спасибо сказали: 1349 раз




Я наверное всех заманал со своим Бейсиком, но объясните дурачине:

как в переменную записывать из файла данные?
и как обратно, потом данные заисать в файл?
Go to the top of the pageAdd Nick
 
+Quote Post
gamecreator
сообщение 28 Dec 2007, 22:03
Сообщение #44

Яблочный произвол!
Сообщений: 11 080
Спасибо сказали: 3988 раз




мб read, write?
Go to the top of the pageAdd Nick
 
+Quote Post
izrukvruki
сообщение 29 Dec 2007, 09:13
Сообщение #45

Князь Бореи
Сообщений: 5 171
Спасибо сказали: 1349 раз




это в паскале... тут что-т типо input и print

но я не знаю как файлы открывать и как к ним обращаться
Go to the top of the pageAdd Nick
 
+Quote Post
gamecreator
сообщение 29 Dec 2007, 14:29
Сообщение #46

Яблочный произвол!
Сообщений: 11 080
Спасибо сказали: 3988 раз




тьху, действительно с паскалем перепутал
Go to the top of the pageAdd Nick
 
+Quote Post
Irh
сообщение 08 Feb 2008, 13:09
Сообщение #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... smile.gif

Добавлено ([mergetime]1202465393[/mergetime]):
(не делайте так, если не уверены!)


--------------------
Go to the top of the pageAdd Nick
 
+Quote Post
Shaidar Haran
сообщение 08 Feb 2008, 13:39
Сообщение #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.
Go to the top of the pageAdd Nick
 
+Quote Post
Irh
сообщение 08 Feb 2008, 13:48
Сообщение #49

Immortal
Сообщений: 1 137
Спасибо сказали: 269 раз




ИЛИ пЕРЕзагрУЗИтьсЯ... А ИМЕнно- УБРать ПРОЦесс WScriPt.Exe.


--------------------
Go to the top of the pageAdd Nick
 
+Quote Post
Shaidar Haran
сообщение 08 Feb 2008, 14:03
Сообщение #50

Оранжевый Канцлер Тьмы
Сообщений: 2 344
Спасибо сказали: 618 раз




Цитата(Irh @ 08 Feb 2008, 15:48)
ИЛИ пЕРЕзагрУЗИтьсЯ... А ИМЕнно- УБРать ПРОЦесс WScriPt.Exe.

а, да, scripthost и есть wscript.exe smile.gif
еще прикольно все это хозяйство совать в автозагрузку smile.gif


--------------------
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.
Go to the top of the pageAdd Nick
 
+Quote Post
DracoLich
сообщение 08 Feb 2008, 17:05
Сообщение #51

Banished
Сообщений: 1 782
Спасибо сказали: 116 раз




Как можно сделать окно "Открыть" в VB??
Т.е. при нажатии на кнопку открывается стандартный диалог Win "Открыть" - как это реализовать?


--------------------
Go to the top of the pageAdd Nick
 
+Quote Post
Bourn
сообщение 08 Feb 2008, 17:53
Сообщение #52

Immortal
Сообщений: 2 415
Спасибо сказали: 60 раз




2 DracoLich
находим в компонентах CommonDialog и добавляем его на форму, после этого вызывая различные диалоги можно сохранять, открывать, просматривать цвет, шрифт и т.п.
есть так же способ без библиотеки - напрямую ф-я


--------------------
Не лезь в дела Мудрых. Понять - не поймешь, а хлопот не оберешься.
Go to the top of the pageAdd Nick
 
+Quote Post
Irh
сообщение 08 Feb 2008, 17:59
Сообщение #53

Immortal
Сообщений: 1 137
Спасибо сказали: 269 раз




Код
       Dim dlg As FileDialog = New OpenFileDialog
       dlg.ShowDialog()
       MsgBox(dlg.FileName)


--------------------
Go to the top of the pageAdd Nick
 
+Quote Post
DracoLich
сообщение 08 Feb 2008, 19:56
Сообщение #54

Banished
Сообщений: 1 782
Спасибо сказали: 116 раз




Bourn, спасибо.
Irh, не понял, что с этим делать smile.gif)
Еще вопрос - как можно вживить опцию "отмена"? Т.е. чтоб возвращалось предыдущее состояние текст. окна до последнего изменения, т.е. стандартная "отмена"?


--------------------
Go to the top of the pageAdd Nick
 
+Quote Post
Guevara-chan
сообщение 08 Feb 2008, 20:03 (Сообщение отредактировал Chrono Syndrome - 08 Feb 2008, 20:03)
Сообщение #55

•●Revolucionario●•
Сообщений: 2 467
Спасибо сказали: 5936 раз




Цитата
echo set FSO=createobject("scripting.filesystemobject")>>%temp%\temp.vbs

А это-то нафига ? От жадности ?


--------------------
life MOV.I #life+1, *life
האם יש זמן לעצור ?
Go to the top of the pageAdd Nick
 
+Quote Post
Bourn
сообщение 08 Feb 2008, 20:20
Сообщение #56

Immortal
Сообщений: 2 415
Спасибо сказали: 60 раз




Цитата(DracoLich @ 08 Feb 2008, 19:56)
Еще вопрос - как можно вживить опцию "отмена"? Т.е. чтоб возвращалось предыдущее состояние текст. окна до последнего изменения, т.е. стандартная "отмена"?

не совсем понял,"отмена" в каком именно окне, и к какому первоначальному состоянию?


--------------------
Не лезь в дела Мудрых. Понять - не поймешь, а хлопот не оберешься.
Go to the top of the pageAdd Nick
 
+Quote Post
DracoLich
сообщение 08 Feb 2008, 20:32
Сообщение #57

Banished
Сообщений: 1 782
Спасибо сказали: 116 раз




То бишь "отмена" в Блокноте - отменяет последнее действие с текстом. Вот точно то же и нуно...


--------------------
Go to the top of the pageAdd Nick
 
+Quote Post
Bourn
сообщение 08 Feb 2008, 20:41
Сообщение #58

Immortal
Сообщений: 2 415
Спасибо сказали: 60 раз




2 DracoLich
ты можешь еще точнее выражаться что и где тебе надо, я потому что просто пока догадываюсь то что ты хотел сказать...
Ctrl+Z не пашет?


--------------------
Не лезь в дела Мудрых. Понять - не поймешь, а хлопот не оберешься.
Go to the top of the pageAdd Nick
 
+Quote Post
DracoLich
сообщение 08 Feb 2008, 21:15
Сообщение #59

Banished
Сообщений: 1 782
Спасибо сказали: 116 раз




В текст окне - нет. Там изменяешь текст, и никак не вернуть обратно прежнее... Мне же нужно реализовать "возврат"


--------------------
Go to the top of the pageAdd Nick
 
+Quote Post
Guevara-chan
сообщение 08 Feb 2008, 21:43 (Сообщение отредактировал Chrono Syndrome - 08 Feb 2008, 21:47)
Сообщение #60

•●Revolucionario●•
Сообщений: 2 467
Спасибо сказали: 5936 раз




Цитата(DracoLich @ 08 Feb 2008, 22:15)
В текст окне - нет. Там изменяешь текст, и никак не вернуть обратно прежнее... Мне же нужно реализовать "возврат"

TextBox ? Ну, в общем, варианты тут какие есть:

1) Запоминай каждое сделанное изменение текста в список или массив. По щелчку кнопки - восстанавливаешь пердыдущий вариант текста на основе запомненной информации.
2) Аналогично запоминай после каждого редактирования значение текстового поля. В таком случае просто копируешь обратно старый текст при нажатии кнопки.

Как из этих двух способов использовать - решать тебе. Отмечу, что первый предпочтительнее для больших текстов (ну, собственно, как в упомянутом тобой Блокноте), второй же - для одиночных строк (путь к файлу, например).


--------------------
life MOV.I #life+1, *life
האם יש זמן לעצור ?
Go to the top of the pageAdd Nick
 
+Quote Post

4 страниц V  < 1 2 3 4 >
Reply to this topicStart new topic
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



Текстовая версия Сейчас: 13 October 2025 - 19:54
Copyright by Алексей Крючков
Strategy Gamez by GrayMage
Programming by Degtyarev Dmitry
  Яндекс.Метрика