Перевод значения из поля Input

[Zigmund]

Собственно сабж.

Имеются поля Input, весь текст из них должен преобразоваться в Windows-1251 десятичный код и подан в поле Edit уже в этой кодировке.

Например: Аа в \192\224

 

[kaster]

2. И чтобы не создавать новую тему:

а вот это зря. лучше создай. не поленись

 

[CreatoR]

Zigmund [?]

Имеются поля Input, весь текст из них должен преобразоваться в Windows-1251 десятичный код и подан в поле Edit уже в этой кодировке.

Например: Аа в \192\224

Вот так например:

#include <GuiConstants.au3>

$GUI = GUICreate("Asc Converter", 300, 200)

$Input = GUICtrlCreateInput("", 20, 20, 260, 20)
$Edit = GUICtrlCreateEdit("", 20, 60, 260, 80)

$Convert_Button = GUICtrlCreateButton("Convert", 20, 170, 60, 20)

GUISetState(@SW_SHOW, $GUI)

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Convert_Button
			$sInput_Read = GUICtrlRead($Input)
			$sEdit_Data = ""
			
			For $i = 1 To StringLen($sInput_Read)
				$sEdit_Data &= "\" & Asc(StringMid($sInput_Read, $i, 1))
			Next
			
			GUICtrlSetData($Edit, $sEdit_Data)
	EndSwitch
WEnd