Files and strings

← →
Artem (2007-12-27 17:06) [0]

Здравствуйте! Имеется задание :
2. Дан текстовый файл «File1.txt», содержащий сведения о сотрудниках учреждения, записанные по следующему образцу:
Фамилия Имя Отчество
Фамилия Имя Отчество
...
Записать эти сведения в текстовом файле «File2.txt», используя образец:
Фамилия И.О.
Фамилия И.О.
...

Мое решение :

var
f2,f1:textfile;
i,j,x,k,b:integer;
s:string;
s1,s2: array[0..50] of string[50];

begin

assignfile(f1,"c:\File1.txt");
reset(f1);
j:=0;
while not EOF(f1) do
begin
read(f1,s);
s1[j]:=s;

j:=j+1;
readln(f1);
end;

for i:=0 to j do
write(s1[i]);

k:=1;
for i:=0 to j do
begin
for x:=0 to length(s[j]) do
begin
if s1[j][x]=" " then
k:=k+1
else
begin
if (k mod 3) =1 then
s2[j][x]:=s1[j][x];

if k mod 3 =2 then begin
s2[j][x+1]:=s1[j][x];
s2[j][x+2]:=".";
end;

if k mod 3 =0 then begin
s2[j][x+1]:=s1[j][x];
s2[j][x+2]:=".";
end;
end;
end;
end;
for b:=0 to j do
for x:=1 to length(s1[j]) do
write(s2[j][x]);
readln;

Код до создания второго файла!
Перескакивет кусок кода с for x:=0 to length(s[j]) do и до for b:=0 to j do , в чем проблема , и можно ли вообще так осуществить эту задачу?

← →
Германн © (2007-12-27 17:12) [1]

> end;
> end;
> end;
> end;
>

Один из этих эндов лишний. Умел бы нормально форматировать код сам бы увидел.

← →
{RASkov} © (2007-12-27 17:23) [2]

> [0] Artem (27.12.07 17:06)

Алгоритм:
Открыть файл1
Создать файл2
пока есть строки в файл1 делать:
читаем следующую строку из файл1
обрабатываем строку
записываем полученную строку в файл2
закрыть файл1
закрыть файл2
енд.

Для обработки строки можно сделать функцию:

function GetShortName(const FIO: String): String; begin Result:=ExtractWord(1, FIO, [ #32])+#32+ExtractWord(2, FIO, [ #32])[1]+"."#32+ExtractWord(3, FIO, [ #32])[1]+"."; end;
ExtractWord - uses RxStrUtils; которая в свою очередь находится в RxLib

← →
Германн © (2007-12-27 17:27) [3]

> ExtractWord - uses RxStrUtils; которая в свою очередь находится
> в RxLib

В ТП ее нет :)

> [3] Германн © (27.12.07 17:27)
> В ТП ее нет :)

Все просто.... просто GetShortName будет уже не одной строчкой а несколькими :)

Files and strings Найти похожие ветки