Преобразования букв и символов в цифры

@Bookkc1 · Регистрация: 01.11.2012

Студворк — интернет-сервис помощи студентам

Нужно преобразовать текст вида 0R-С0-26-AA-51-K1 в циферный код. что бы была строчка вида 12345678901234567. Каким образом это можно сделать, чем проще тем лучше. спасибо

@Bookkc1 · 10.01.2017, 22:15 **[ТС]**

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

А Вы? Смотрели ссылку в п. #11?

Смотрел, не понял как это работает. не могу понять...

@D1973 · 11.01.2017, 08:47

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

Вы читаете вообще что я пишу или нет ?
Это не реальный МАС.

Я читаю, а вот Вы понимаете или нет, что с нереальными числами ничего реального сделать нельзя?
Это надо было?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
const d = 3;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function HexToDecStr(hv : string; Digit : integer) : string;
var s : string;
begin
 s := IntToStr(StrToInt('$' + hv));
 while Length(s) < Digit do
  s := '0' + s;
 result := s;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var L : TStringList;
    i : integer;
begin
 Edit2.Clear;
 L := TStringList.Create;
 L.Delimiter := '-';
 L.DelimitedText := Edit1.Text;
 for i := 0 to L.Count - 1 do
   Edit2.Text := Edit2.Text + HexToDecStr(L.Strings[i], d);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var s, s1 : string;
begin
 Edit3.Clear;
 s := Edit2.Text;
 while Length(s) > 0 do
  begin
   s1 := s1 + IntToHex(StrToInt(Copy(s, 1, d)), 2) + '-';
   Delete(s, 1, d);
  end;
 Delete(s1, Length(s1), 1);
 Edit3.Text := s1;
end;

@droider · 11.01.2017, 10:10

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

Смотрел, не понял как это работает

Преобразование 16-й системы в десятичную для больших целых чисел. Даже функции были приведены готовые. Что тут непонятного? Без знания английского взялись за программирование??

Новые блоги и статьи Все статьи Все блоги /
Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .

@Bookkc1 3 / 3 / 0 Регистрация: 01.11.2012 Сообщений: 803

	Преобразования букв и символов в цифры 15.12.2016, 15:10. Показов 2975. Ответов 22 Метки нет (Все метки) Нужно преобразовать текст вида 0R-С0-26-AA-51-K1 в циферный код. что бы была строчка вида 12345678901234567. Каким образом это можно сделать, чем проще тем лучше. спасибо 0