Преобразование текста в числовой код

[Krax]

Помогите пожалуйста написать програмку желательно в Delphi что бы например когда я вводил слово "Русский" она мне выводила "\208\243\241\241\234\232\233"

каждая буква имеет свой собственный номер с '\' перед ним

Если можно по-подробней, я-начинающий, но очень нуждающийся....

Зарание благодарю...

[Jeni]

Непонятно, как согласуются буквы слова "Русский" с приведенными числами.

[Krax]

только мне это не по учебе((
сервер настроить пытаюсь...
а он русский только так воспринимает, в кодах....

[Gorychev]

Можно так:

function str_in_ord(const s:string): string;
var i: integer;
begin
  result:='';
  for i:=1 to length(s) do
    result:= result + '\' + copy(inttostr(ord(s[i])),2,2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  caption:= str_in_ord('Русский');
end;

В цикле проходим по всем символам строки переданной в функцию, сначала преобразуем символ в порядковый код который он занимает в ASCll таблице ord(s[i]), потом убираем функцией copy первый символ, остальное надеюсь понятно

[Krax]

проблема в том что у меня коды не табличные, а так сказать свои...
то есть к каждой букве привязан свой случайный неменяющийся код

[Sasha_Smirnov]

(Наконец-то понял, как увидеть кнопку в Вордах после 2003: щёлкнуть Надстройки в главном меню документа.) Понимаю, что не суперудобно, но зато перекодирует русский текст именно так, как вам нужно.

Сообщение от Krax

код мне программа выдает...
но мне удобней чтоб код я мог изменять для каждой буквы...

Коды букв можно менять: по альт-F11 в приложенных документах Word.

Sub RussianTextForServer()
With Selection.Find
    Do
        .Text = "([А-яЁё])"             'очередная русская буква в документе'
        .MatchWildcards = True          'отмечен флажок Подстановочные знаки'
        .Execute Replace:=wdReplaceNone 'поиск, пока без замены (на случай Not .Found)'
            If .Found Then
            .Replacement.Text = WhatToWhat  'вычисляем (наш) код найденной буквы'
            Else: Exit Sub
            End If
        .Wrap = wdFindContinue              'перейти (после замены) к очередному символу'
        .Execute Replace:=wdReplaceOne  'выполнение замены'
    Loop Until Not .Found
    
    .Text = ""                               'очистка поля Найти:'
    .Replacement.Text = ""          'очистка поля Заменить на:'
    .MatchWildcards = False         'сброс флажка Подстановочные знаки'
    .Execute                                  'выполнение очистки'
End With
End Sub

Function WhatToWhat()
WhatToWhat = Hex(Asc(Selection.Text))
End Function

В приложенных файлах (как и вообще в приложениях MS Office с программной средой) код открывается по альт-F11. Запускается кнопкой FORRUS (она появляется, в последних «моделях» Word, после выбора, вверху окна, ярлыка Надстройки).

В случае если кнопки не видать, можно (в любом Word) нажать альт-F8 — и дабл-кликнуть название моей парограммы (RussianTextForServer).

Не вынесла душа: сделал то же самое, но с шестнатеричной кодировкой. Знаете, оно как-то понятнее. И проще.

[Serge_Bliznykov]

Сообщение от Krax

то есть к каждой букве привязан свой случайный неменяющийся код

Krax,
А на чём Вы пишете код?! (какой язык программирования?)

[XuTpbIu]

так сделайте тогда так:

type 
  TSymbolCode = record
    Symbol: Char;
    Code: Byte;
  end;
const
  SymbolCodes: array[1..33] of TSymbolCode = (
                                                                 (Symbol: 'А'; Code: 1),
                                                                 (Symbol: 'B'; Code: 2),
                                                                 (Symbol: 'C'; Code: 3),
                                                                 {и т.д.}
                                                                 );
{а дальше пишете так}
function StrToCodes(S: String): String;
var
  I, J: Integer;
begin
  result := '';
  for I := 1 to Length(S) do
  begin
    for J := 1 to 33 do
      if SymbolCodes[J].Symbol = S[I] then
        Result := Result + '\' + IntToStr(SymbolCodes[J].Code);
  end;
end;

[Krax]

код мне программа выдает...
но мне удобней чтоб код я мог изменять для каждой буквы...

[XuTpbIu]

Ну я и говорю что ты в массиве SymbolCodes можешь каждой букве поставить в соответствие её код