Batya
|
 Posted: Wed Oct 06, 2010 10:35 Post subject: |
 |
|
Andrey_A
Пока твой скрипт не планирую использовать, но хочу дать несколько конструктивных советов по написанию скриптов.
- Часто используемые конструкции лучше выносить в функции, например: "FSO.GetAbsolutePathName(WSH.ExpandEnvironmentStrings())"
- Форматирование текста кода у тебя есть (это гуд!), но какое-то местами неровное. Например, кусок | Code: | Ext = UCase("*." & Ext & ";") ' Готовим строку для поиска в ассоциациях
Ass = WScript.Arguments(1)
Ass = FSO.GetAbsolutePathName(WSH.ExpandEnvironmentStrings(Ass))
ListAss = Split(FSO.OpenTextFile(Ass).ReadAll, vbNewLine)
i = 0
m = 0
For Each F In ListAss
If F <> "" Then
If InStr(1,ListAss(i),"|") > 1 Then |
я бы записал | Code: | ' Готовим строку для поиска в ассоциациях
Ext = UCase("*." & Ext & ";")
Ass = WScript.Arguments(1)
Ass = FSO.GetAbsolutePathName(WSH.ExpandEnvironmentStrings(Ass))
ListAss = Split(FSO.OpenTextFile(Ass).ReadAll, vbNewLine)
i = 0
m = 0
For Each F In ListAss
If F <> "" Then
If InStr(1,ListAss(i),"|") > 1 Then |
- Также сразу для себя определись с размером отступа для вложенных конструкций. Чаще всего используют либо 2, либо 4 пробела.
- Строки лучше не делать очень длинными - код при этом плохо читается. В vbs строки можно разбивать на части, указав в конце строки символ "_". Например: | Code: | MsgBox "Неправильно указано количество параметров!" & vbNewLine &_
"Должно быть ПЯТЬ параметров!" & vbNewLine &_
"A у Вас прописано " & WScript.Arguments.Count & " !!! ", _
vbOKOnly + vbCritical |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
