Код:
Local $clients = IniReadSection('discovery.ini', 'discovery')
Local $JSON
$JSON &= '{'&@CRLF
$JSON &= ' "data": ['&@CRLF
For $i = 1 To $clients[0][0] Step 1
$JSON &= ' {'&@CRLF
$JSON &= ' "{#'&'UTMIP'&'}": "'&$clients[$i][0]&'",'&@CRLF
$JSON &= ' "{#'&'UTMALIAS'&'}": "'&$clients[$i][1]&'"'&@CRLF
$JSON &= ' }'
If $i <> $clients[0][0] Then
$JSON &= ','&@CRLF
Else
$JSON &= @CRLF
EndIf
Next
$JSON &= ' ]'&@CRLF
$JSON &= '}'
ConsoleWrite(_Encoding_ANSIToOEM($JSON))
Собственно вот такая функция. Считываю из INI значения и пытаюсь вывести их в CMD, но увы получается кракозябры. Пытался с помощью Encoding UDF _Encoding_ANSIToOEM, да и вообще ВСЕХ encoding функций что в ней есть, результат - кракозябры. Win10 Pro
Критически важно выводить данные в CMD именно на русском
UPD:
Приложение - консольное. Текст появляется как реакция на вызов программы с определенными параметрами.