[mazaev87]

Здрасте)я новенький еще в программировании, лучше сказать чайник!была поставлена задача такая!дан фаил *.тхт который надо преобразовать в некую программу которая будет выводить данные!
помогите как это сделать: " (((ПЗ;1=Русанов | Алексей | Алесеевич;2=09121987))) " -вот такой текст внутри проги

Moderatorial: Тема не соответсвует содержанию сообщения!

[lmikle]

Читаешь файл, дальше записываешь код в виде оператора вывода соответсвующих строк текста. Уточни куда надо выводить и на каком языке должна быть эта программа. Если Дкльфи, то надо ли компилировать полученный код.

Есть еще один вариант.
Сначала делаешь болванку, которая загружает данные из ресурса и выводит их туда, куда тебе надо. Потом делаешь программу, которая берет текстовый файл и добавляет его в ресурсы болванки, выгружая ее с новым именем.

[delphik]

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
 i,j,n : integer;
 s,st: String ;
begin
 if OpenDialog1.Execute=true then begin    // Открыть текстовый файл
    ListBox1.Items.Clear;
    ListBox1.Items.LoadFromFile(OpenDialog1.FileName);  // Загрузка файла
    StringGrid1.RowCount:=ListBox1.Items.Count;  // Задание кол. строк в таблице
    for i:=0 to ListBox1.Items.Count-1 do begin  
       s:=ListBox1.Items[i];
       st:='';j:=1;
       Repeat st:=st+s[j]; j:=j+1; Until (s[j]=';');
       StringGrid1.Cells[0,i+1]:=st;
       j:=j+1;st:='';
       Repeat st:=st+s[j]; j:=j+1; Until (s[j]='|');
       StringGrid1.Cells[1,i+1]:=st;
       j:=j+1;st:='';
       Repeat st:=st+s[j]; j:=j+1; Until (s[j]='|');
       StringGrid1.Cells[2,i+1]:=st;
       j:=j+1;st:='';
       Repeat st:=st+s[j]; j:=j+1; Until (s[j]=')');
       StringGrid1.Cells[3,i+1]:=st;
       j:=j+1;st:='';
    end;
 end;

Примерно это выглядит так..

Moderatorial: Пользуемся тегами. Иначе последуют санкции.