|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
проблемы с разделителями
Здрасте)я новенький еще в программировании, лучше сказать чайник!была поставлена задача такая!дан фаил *.тхт который надо преобразовать в некую программу которая будет выводить данные!
помогите как это сделать: " (((ПЗ;1=Русанов | Алексей | Алесеевич;2=09121987))) " -вот такой текст внутри проги Moderatorial: Тема не соответсвует содержанию сообщения! |
#2
|
|||
|
|||
Читаешь файл, дальше записываешь код в виде оператора вывода соответсвующих строк текста. Уточни куда надо выводить и на каком языке должна быть эта программа. Если Дкльфи, то надо ли компилировать полученный код.
Есть еще один вариант. Сначала делаешь болванку, которая загружает данные из ресурса и выводит их туда, куда тебе надо. Потом делаешь программу, которая берет текстовый файл и добавляет его в ресурсы болванки, выгружая ее с новым именем. |
#3
|
|||
|
|||
Код:
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: Пользуемся тегами. Иначе последуют санкции. |