Разработка интерпретатора текстовой (теговой) разметки документа

@Shamarkanec · Регистрация: 10.01.2014

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

Задание
1. Ознакомиться с общими принципами языков текстовой разметки документов
2. Разработать тэг разметки типа шрифта
3. Разработать тэг разметки цвета текста
4. Разработать тэг разметки размера шрифта
5. Разработать тэг разметки рисунка
6. Разработать тэг разметки координат элементов на форме
7. Разработать тег фона документа
8. Разработать тег заголовка документа
9. Разработать тег новой строки
10. Сформировать текстовый документ на основе разработанной системы разметки, содержащий фрагменты текста и рисунок
11. Разработать приложение со следующими функциями:
11.1. Доступ и открытие документа теговой разметки
11.2. Отображение пути доступа к открытому документу
11.3. Интерпретация документа теговой разметки и формирование на его основе образов текста и рисунка на форме в указанных форматах и координатах

@newyork7776 · 13.10.2015, 23:25

HTML

@Shamarkanec · 14.10.2015, 05:01 **[ТС]**

Нет, нужно на С++ или на С#. Знаю что нужно использовать регулярные выражения. Теги типа @title, @font, @color и т.д.

magirus · 14.10.2015, 12:25

то есть нужно написать вам за вас?

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

@Shamarkanec · 14.10.2015, 17:31 **[ТС]**

magirus, нет, нужно направить на путь истинный. Делать нужно в формах. Вот не знаю как лучше, и что использовать именно. Как отображать результат.

@Shamarkanec · 14.10.2015, 17:54 **[ТС]**

Нашел в интернете такую же лабу но ана на делфи.

Delphi

procedure TForm1.Button2Click(Sender: TObject);
label label1;
var i,j,p,k,q,bla:integer;
    st,s:string;
    flag,proverka,proverka2:boolean;
    g1,g2,z:byte;
begin
j:=0;
q:=0;
flag:=false;
proverka:=false;
proverka2:=false;
form3.richedit1.Clear;
form3.RichEdit1.SelAttributes.Color:=clWindowText;
form3.RichEdit1.SelAttributes.Size:=8;
form3.RichEdit1.SelAttributes.Name:='MS Sans Serif';
for i:=0 to form2.memo1.Lines.Count-1 do
  begin
    flag:=false;
    st:=form2.memo1.Lines[i];
    label1:
    if pos('@b@',st)<>0 then
       begin
         form3.RichEdit1.SelAttributes.Color:=clWindowText;
        form3.RichEdit1.SelAttributes.Size:=8;
         delete(st,pos('@b@',st),4);
         form3.richedit1.Lines.Add(st);
         form3.richedit1.Lines.Insert(i,' ');
         j:=j+length(st);
         flag:=true;
         goto label1;
       end;
    if pos('@tittle@',st)<>0 then
      begin
      form3.RichEdit1.SelAttributes.Color:=clWindowText;
        form3.RichEdit1.SelAttributes.Size:=8;
      delete(st,pos('@tittle@',st),8);
      delete(st,pos('@/tittle@',st),9);
      form3.Caption:=st;
      j:=j+length(st);
      flag:=true;
      goto label1;
      end;
    if pos('@background=red@',st)<>0 then
      begin
        form3.RichEdit1.SelAttributes.Size:=8;
      form3.richedit1.Color:=clred;
      delete(st,pos('@background=red@',st),16);
      if st<>'' then
      form3.richedit1.Lines.Add(st);
      j:=j+length(st);
      flag:=true;
      goto label1;
      end;
    if pos('@background=aqua@',st)<>0 then
      begin
        form3.RichEdit1.SelAttributes.Size:=8;
      form3.richedit1.Color:=claqua;
      delete(st,pos('@background=aqua@',st),17);
      if st<>'' then
      form3.richedit1.Lines.Add(st);
      j:=j+length(st);
      flag:=true;
      goto label1;
      end;
    if pos('@background=yellow@',st)<>0 then
      begin
            form3.RichEdit1.SelAttributes.Size:=8;
      form3.richedit1.Color:=clyellow;
      delete(st,pos('@background=yellow@',st),19);
      if st<>'' then
      form3.richedit1.Lines.Add(st);
      j:=j+length(st);
      flag:=true;
      goto label1;
      end;
    if pos('@background=green@',st)<>0 then
      begin
           form3.RichEdit1.SelAttributes.Size:=8;
      form3.richedit1.Color:=clgreen;
      delete(st,pos('@background=green@',st),18);
      if st<>'' then
      form3.richedit1.Lines.Add(st);
      j:=j+length(st);
      flag:=true;
      goto label1;
      end;
    if pos('@background=blue@',st)<>0 then
      begin
      form3.RichEdit1.SelAttributes.Size:=8;
      form3.richedit1.Color:=clblue;
      delete(st,pos('@background=blue@',st),17);
      if st<>'' then
      form3.richedit1.Lines.Add(st);
      j:=j+length(st);
      flag:=true;
      goto label1;
      end;
    if pos('@background=darkblue@',st)<>0 then
      begin
        form3.RichEdit1.SelAttributes.Size:=8;
      form3.richedit1.Color:=clhotlight;
      delete(st,pos('@background=darkblue@',st),21);
      if st<>'' then
      form3.richedit1.Lines.Add(st);
      j:=j+length(st);
      flag:=true;
      goto label1;
      end;
    if pos('@background=purple@',st)<>0 then
      begin
      //form3.RichEdit1.SelAttributes.Color:=clWindowText;
        form3.RichEdit1.SelAttributes.Size:=8;
      form3.richedit1.Color:=clpurple;
      delete(st,pos('@background=purple@',st),19);
      if st<>'' then
      form3.richedit1.Lines.Add(st);
      j:=j+length(st);
      flag:=true;
      goto label1;
      end;
    if pos('@font size=',st)<>0 then
      begin
        form3.RichEdit1.SelAttributes.Size:=8;
        p:=strtoint(st[pos('@font size=',st)+11]+st[pos('@font size=',st)+12]);
        j:=j+pos(copy(st,pos(inttostr(p),st)+3,pos('@/size@',st)- pos(inttostr(p),st)+3),st);
        form3.richedit1.SelStart:=j+2*i-1;
        form3.richedit1.SelLength:=length(copy(st,pos(inttostr(p),st)+3,pos('@/size@',st)- pos(inttostr(p),st)+3));
        form3.richedit1.SelAttributes.Size:=p;
        form3.RichEdit1.SelAttributes.Color:=clBlack;//form3.RichEdit1.Color;
        delete(st,pos('@font size=',st),14);             
        delete(st,pos('@/size@',st),7);
        form3.RichEdit1.Lines.Add(st);
        j:=j+length(st);
        flag:=true;
        goto label1;
      end;
    if pos('@textcolor=red@',st)<>0 then
      begin
        form3.RichEdit1.SelStart:=j+2*i-1;
        form3.RichEdit1.SelLength:=length(copy(st,pos('@textcolor=red@',st)+15,pos('@/textcolor@',st)-(pos('@textcolor=red@',st)+15)  ));
        form3.RichEdit1.SelAttributes.Color:=clRed;
        delete(st,pos('@textcolor=red@',st),15);
        delete(st,pos('@/textcolor@',st),12);
        form3.RichEdit1.SelAttributes.Size:=8;
        form3.richedit1.Lines.add(st);
        j:=j+length(st);
        flag:=true;
        goto label1;
      end;
    if pos('@textcolor=aqua@',st)<>0 then
      begin
        form3.RichEdit1.SelStart:=j+2*i-1;
        form3.RichEdit1.SelLength:=length(copy(st,pos('@textcolor=aqua@',st)+16,pos('@/textcolor@',st)-(pos('@textcolor=aqua@',st)+16)  ));
        form3.RichEdit1.SelAttributes.Color:=clAqua;
        delete(st,pos('@textcolor=aqua@',st),16);
        delete(st,pos('@/textcolor@',st),12);
        form3.RichEdit1.SelAttributes.Size:=8;
        form3.richedit1.Lines.add(st);
        j:=j+length(st);
        flag:=true;
        goto label1;
      end;
    if pos('@textcolor=yellow@',st)<>0 then
      begin
        form3.RichEdit1.SelStart:=j+2*i-1;
        form3.RichEdit1.SelLength:=length(copy(st,pos('@textcolor=yellow@',st)+18,pos('@/textcolor@',st)-(pos('@textcolor=yellow@',st)+18)  ));
        form3.RichEdit1.SelAttributes.Color:=clYellow;
        delete(st,pos('@textcolor=yellow@',st),18);
        delete(st,pos('@/textcolor@',st),12);
        form3.RichEdit1.SelAttributes.Size:=8;
        form3.richedit1.Lines.add(st);
        j:=j+length(st);
        flag:=true;
        goto label1;
      end;
    if pos('@textcolor=green@',st)<>0 then
      begin
         form3.RichEdit1.SelStart:=j+2*i-1;
        form3.RichEdit1.SelLength:=length(copy(st,pos('@textcolor=green@',st)+17,pos('@/textcolor@',st)-(pos('@textcolor=green@',st)+17)  ));
        form3.RichEdit1.SelAttributes.Color:=clGreen;
        delete(st,pos('@textcolor=green@',st),17);
        delete(st,pos('@/textcolor@',st),12);
        form3.RichEdit1.SelAttributes.Size:=8;
        form3.richedit1.Lines.add(st);
        j:=j+length(st);
        flag:=true;
        goto label1;
      end;
    if pos('@textcolor=blue@',st)<>0 then
      begin
           form3.RichEdit1.SelStart:=j+2*i-1;
        form3.RichEdit1.SelLength:=length(copy(st,pos('@textcolor=blue@',st)+16,pos('@/textcolor@',st)-(pos('@textcolor=blue@',st)+16)  ));
        form3.RichEdit1.SelAttributes.Color:=clBlue;
        delete(st,pos('@textcolor=blue@',st),16);
        delete(st,pos('@/textcolor@',st),12);
        form3.RichEdit1.SelAttributes.Size:=8;
        form3.richedit1.Lines.add(st);
        j:=j+length(st);
        flag:=true;
        goto label1;
      end;
    if pos('@textcolor=darkblue@',st)<>0 then
      begin
        form3.RichEdit1.SelStart:=j+2*i-1;
        form3.RichEdit1.SelLength:=length(copy(st,pos('@textcolor=darkblue@',st)+20,pos('@/textcolor@',st)-(pos('@textcolor=darkblue@',st)+20)  ));
        form3.RichEdit1.SelAttributes.Color:=clHotLight;
        delete(st,pos('@textcolor=darkblue@',st),20);
        delete(st,pos('@/textcolor@',st),12);
        form3.RichEdit1.SelAttributes.Size:=8;
        form3.richedit1.Lines.add(st);
        j:=j+length(st);
        flag:=true;
        goto label1;
      end;
    if pos('@textcolor=purple@',st)<>0 then
      begin
        form3.RichEdit1.SelStart:=j+2*i-1;
        form3.RichEdit1.SelLength:=length(copy(st,pos('@textcolor=purple@',st)+18,pos('@/textcolor@',st)-(pos('@textcolor=purple@',st)+18)  ));
        form3.RichEdit1.SelAttributes.Color:=clPurple;
        delete(st,pos('@textcolor=purple@',st),18);
        delete(st,pos('@/textcolor@',st),12);
        form3.RichEdit1.SelAttributes.Size:=8;
        form3.richedit1.Lines.add(st);
        j:=j+length(st);
        flag:=true;
        goto label1;
      end;
    if pos('@font type=ms sans serif@',st)<>0 then
      begin
        form3.RichEdit1.SelStart:=j+2*i-1;
        form3.RichEdit1.SelLength:=length(copy(st,pos('@font type=ms sans serif@',st)+25,pos('@/type@',st)-(pos('@font type=ms sans serif@',st)+25)));
        delete(st,pos('@font type=ms sans serif@',st),25);
        delete(st,pos('@/type@',st),7);
        form3.RichEdit1.SelAttributes.Size:=8;
        form3.RichEdit1.SelAttributes.Color:=clWindowText;
        form3.RichEdit1.SelAttributes.Name:='MS Sans Serif';
        form3.RichEdit1.Lines.Add(st);
        j:=j+length(st);
        flag:=true;
        goto label1;
      end;
    if pos('@font type=times new roman@',st)<>0 then
      begin
        form3.RichEdit1.SelStart:=j+2*i-1;
        form3.RichEdit1.SelLength:=length(copy(st,pos('@font type=times new roman@',st)+27,pos('@/type@',st)-(pos('@font type=times new roman@',st)+27)));
        delete(st,pos('@font type=times new roman@',st),27);
        delete(st,pos('@/type@',st),7);
        form3.RichEdit1.SelAttributes.Size:=8;
        form3.RichEdit1.SelAttributes.Color:=clWindowText;
        form3.RichEdit1.SelAttributes.Name:='Times New Roman';
        form3.RichEdit1.Lines.Add(st);
        j:=j+length(st);
        flag:=true;
        goto label1;
      end;
    if pos('@font type=calibri@',st)<>0 then
      begin
        form3.RichEdit1.SelStart:=j+2*i-1;
        form3.RichEdit1.SelLength:=length(copy(st,pos('@font type=calibri@',st)+19,pos('@/type@',st)-(pos('@font type=calibri@',st)+19)));
        delete(st,pos('@font type=calibri@',st),19);
        delete(st,pos('@/type@',st),7);
        form3.RichEdit1.SelAttributes.Size:=8;
        form3.RichEdit1.SelAttributes.Color:=clWindowText;
        form3.RichEdit1.SelAttributes.Name:='Calibri';
        form3.RichEdit1.Lines.Add(st);
        j:=j+length(st);
        flag:=true;
        goto label1;
      end;
    if pos('@img src=''',st)<>0  then
      begin
        for k:=1 to length(st) do
          begin
            if st[k]='@' then inc(q);
            if q=2 then q:=k;
          end;
        s:=copy(st,pos('@img src=''',st)+10,q-1-(pos('@img src=''',st)+10));
        form3.Image1.Picture.LoadFromFile(s);
 
        proverka2:=true;
        bla:=j-15;
        continue;
      end;
    if pos('@coordinate:image[',st)<>0 then
      begin
        proverka:=true;
        g1:=strtoint(copy(st,pos('@coordinate:image[',st)+18,2));
        g2:=strtoint(copy(st,pos('@coordinate:image[',st)+21,2));
        delete(st,pos('@coordinate:image[',st),25);
        if st<>'' then
        form3.richedit1.Lines.Add(st);
        j:=j+length(st);
        {form3.RichEdit1.SelStart:=10;
        InsertBitmapToRE(form3.RichEdit1.Handle, form3.Image1.Picture.Bitmap.Handle);}
        //form3.RichEdit1.CaretPos.X:=0;
        continue;
      end;
      if flag=false then begin
      form3.RichEdit1.SelAttributes.Color:=clWindowText;
        form3.RichEdit1.SelAttributes.Size:=8;
        form3.RichEdit1.SelAttributes.Name:='MS Sans Serif';
    form3.richedit1.Lines.Add(form2.Memo1.Lines[i]);
    j:=j+length(st);          end;
 
  end;
if proverka then
  begin
    //form3.RichEdit1.SelStart:=0;
    z:=0;
    for i:=0 to g1-2 do
      z:=z+length(form3.RichEdit1.Lines[i]);
      form3.RichEdit1.SelStart:=z+g2;
      InsertBitmapToRE(form3.RichEdit1.Handle, form3.Image1.Picture.Bitmap.Handle);
  end
  else
  begin
    form3.RichEdit1.SelStart:=bla;
    InsertBitmapToRE(form3.RichEdit1.Handle, form3.Image1.Picture.Bitmap.Handle);
  end;
form3.show;
end;

@Shamarkanec 0 / 0 / 0 Регистрация: 10.01.2014 Сообщений: 15
		1
	Разработка интерпретатора текстовой (теговой) разметки документа 13.10.2015, 23:04. Показов 1372. Ответов 5 Метки нет (Все метки) Задание 1. Ознакомиться с общими принципами языков текстовой разметки документов 2. Разработать тэг разметки типа шрифта 3. Разработать тэг разметки цвета текста 4. Разработать тэг разметки размера шрифта 5. Разработать тэг разметки рисунка 6. Разработать тэг разметки координат элементов на форме 7. Разработать тег фона документа 8. Разработать тег заголовка документа 9. Разработать тег новой строки 10. Сформировать текстовый документ на основе разработанной системы разметки, содержащий фрагменты текста и рисунок 11. Разработать приложение со следующими функциями: 11.1. Доступ и открытие документа теговой разметки 11.2. Отображение пути доступа к открытому документу 11.3. Интерпретация документа теговой разметки и формирование на его основе образов текста и рисунка на форме в указанных форматах и координатах 0

@newyork7776 351 / 344 / 279 Регистрация: 21.05.2013 Сообщений: 1,312
	13.10.2015, 23:25	2
	HTML 0

@Shamarkanec 0 / 0 / 0 Регистрация: 10.01.2014 Сообщений: 15
	14.10.2015, 05:01 [ТС]	3
	Нет, нужно на С++ или на С#. Знаю что нужно использовать регулярные выражения. Теги типа @title, @font, @color и т.д. 0

magirus Почетный модератор 28045 / 15778 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	14.10.2015, 12:25	4
	то есть нужно написать вам за вас? Добавлено через 30 секунд ибо я пока в упор не вижу попыток сделать что то самому. 0

@Shamarkanec 0 / 0 / 0 Регистрация: 10.01.2014 Сообщений: 15
	14.10.2015, 17:31 [ТС]	5
	magirus, нет, нужно направить на путь истинный. Делать нужно в формах. Вот не знаю как лучше, и что использовать именно. Как отображать результат. 0

	14.10.2015, 17:54