Что нового

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

  • Автор темы Zigmund
  • Дата начала
Z

Zigmund

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

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

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

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 156
Репутация
2 329
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
 
Верх