Volniy
|
 Posted: Thu Jun 15, 2006 23:03 Post subject: |
 |
|
Классный скрипт! Поздравляю. Must have, в натуре! 
Ни на что не претендуя, хочу просто упростить его, скажем так, чисто визуально. Алгоритм не изменен.
| Code: | '=========================[ Start of file ]=========================
Option Explicit
Dim TCS, i, Name, Cmd, Data
Set TCS = CreateObject("TCScript.Helper")
Data = Split(TCS.GetTextFromClip(), vbCrLf)
' Если первая строка соответствует синтаксису кнопки
If Data(0) = "TOTALCMD#BAR#DATA" Then
' Ищем следующий номер для пункта меню
For i = 1 To 1111 ' :-)
If Len(TCS.INIRead(TCS.MainINI, "user", "menu" & i, ""))=0 _
Then Exit For
Next
' Cтрока команды
Cmd = Data(1)
' Наименование
Name = Data(4)
If Len(Cmd) > 0 Then
If Len(Name) > 0 Then
TCS.INIWrite TCS.MainINI, "user", "menu" & i, Name
Else
TCS.INIWrite TCS.MainINI, "user", "menu" & i, Cmd
End If
TCS.INIWrite TCS.MainINI, "user", "cmd" & i, Cmd
TCS.INIWrite TCS.MainINI, "user", "param" & i, Data(2)
TCS.INIWrite TCS.MainINI, "user", "path" & i, Data(5)
TCS.INIWrite TCS.MainINI, "user", "iconic" & i, Data(6)
' Перечитаем меню
TCS.SendCommand "cm_ChangeStartMenu"
TCS.SendKeystroke "{Enter}"
End If
End If
Set TCS = Nothing
Wscript.Quit
'=========================[ End of file ]=========================
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
