[Автоматизация] Как правильно прочесть из Ini путь и записать по нему лог?

[Vlad_007]

Как правильно прочесть из Ini путь и записать по нему лог?
Пытаюсь так, понятно что пока ошибка в ДНК :'(

#NoTrayIcon
#include <file.au3> 
IF Not FileExists (@ScriptDir & "\pril_log.ini") THEN Exit
Local $sDateNow
Local $sTimeNow
Local $sMsg
Local $user
Local $ip
Local $cname
Local $hOpenFile
Local $hWriteFile
$user = @UserName
$ip = @IPAddress1
$cname = @ComputerName
$ini_r = IniRead (@ScriptDir & "\pril_log.ini", "section1", "key", "")
Dim $sLogMsg = "warning"
Dim $sDateTimeNow = ";"&$cname& ";" & $user & ";" & $ip & ";" & $sLogMsg
Dim $sLogPath = $ini_r
; в ini файле Key="\\shara\in$\run_log.txt"

_FileWriteLog ($sLogPath, $sDateTimeNow)

Exit

 

[madmasles]

Vlad_007
_FileWriteLog() путь к файлу "\\shara\in$\run_log.txt" у меня не понимает.

#include <file.au3>
$sDateTimeNow = @UserName
MsgBox(0, "", _FileWriteLog("\\shara\in$\run_log.txt", $sDateTimeNow) & @CRLF & @error)

Надо этот путь преобразовать в полный, типа @ScriptDir & "\my.log.

 

[Vlad_007]

Не понял почему не понимает - если делаю так то все работает.

Dim $sLogPath = "\\shara\in$\run_log.txt"
_FileWriteLog ($sLogPath, $sDateTimeNow)

Но мне надо читать и подставлять путь для сохранения в лог файл из ini, а как сделать правильно не знаю.

 

[madmasles]

Vlad_007
Попробуйте добавить после чтения ini-файла

MsgBox(0, "", $ini_r)

Там у Вас путь случайно не в кавычках записан? Если да, то

$sLogPath = StringReplace($ini_r, '"', "")

 

[Vlad_007]

Кавычки действительно были.
Спасибо огромное получилось. :laugh:

 

[CreatoR]

Vlad_007
Не нужно добавлять теги кода внутрь тега autoit.

 

[Vlad_007]

Виноват, исправил :IL_AutoIt_1: