Microteam
Осваивающий
- Сообщения
- 74
- Репутация
- 34
Здраствуйте, вот решил написать на AutoIt'е заголовочный файл (header-file) Эта функция меняет все переменные на значение... Очень полезно если вы хотите использовать свои переменные...:
Код:
#include-once
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: Microteam inc.
Script Function:
Замена данных переменными и обратная функция.
#ce ----------------------------------------------------------------------------
Local $eString, $eFunc
Func _SetEnv($eString)
$eRepl1=StringReplace($eString, "!WINDOWS!", @WindowsDir)
$eRepl2=StringReplace($eRepl1, "!SYSTEM32!", @SystemDir)
$eRepl3=StringReplace($eRepl2, "!MICROTEAM!", @WindowsDir & "\Microteam")
$eRepl4=StringReplace($eRepl3, "!PFILES!", @ProgramFilesDir)
$eRepl5=StringReplace($eRepl4, "!APPDATA!", @AppDataDir)
$eRepl6=StringReplace($eRepl5, "!APPCDATA!", @AppDataCommonDir)
$eRepl7=StringReplace($eRepl6, "!USER!", @UserProfileDir)
$eRepl8=StringReplace($eRepl7, "!HARD!", @HomeDrive)
$eRepl9=StringReplace($eRepl8, "!SP-!", @OSServicePack)
$eRepl10=StringReplace($eRepl9, "!USERNAME!", @UserName)
Return $eRepl10
EndFunc
;-----------------------Тестирование------------------------
; Проверка функции...
$text = _SetEnv("Буква вашего жесткого диска: !HARD!" & @CRLF & "Имя пользователя: !USERNAME!" & @CRLF & "Просто путь: !HARD!\Папка" & @CRLF & "Все переменные сгенерированны с _SetEnv()")
MsgBox(64, "Microteam inc.", $text)
;-----------------------Конец теста-------------------------