Процедура создания типизированного файла, состоящего из первых слов каждой строки данного текстового файла

@Бодрый666 · Регистрация: 26.10.2018

процедура создания типизированного файла, состоящего из первых слов каждой строки данного текстового файла имеет вид

@Puporev · 05.05.2019, 18:03

Сообщение от Бодрый666

имеет вид

Какой?

@Бодрый666 · 05.05.2019, 18:05 **[ТС]**

Puporev, Меня тоже интересует этот вопрос))) Это и надо описать.

@Puporev · 05.05.2019, 18:24

Pascal

uses sysutils;
type strok=string[50];
     tfile=file of strok;
procedure soz_file(var f:text;var g:tfile;namef,nameg:strok);
var s:string;
    s1:strok;
begin
assign(f,namef);
reset(f);
assign(g,nameg);
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  s:=trimleft(s);//удалим пробелы в начале строки
  s1:=copy(s,1,pos(' ',s)-1); //возьмем первое слово до пробела
  write(g,s1); //запишем в типизированный файл
 end;
close(f);
close(g);
end;

@Бодрый666 · 05.05.2019, 18:27 **[ТС]**

Спасибо,а то я гетворды собирался использовать)

@Бодрый666 3 / 12 / 0 Регистрация: 26.10.2018 Сообщений: 165
		1
	Процедура создания типизированного файла, состоящего из первых слов каждой строки данного текстового файла 05.05.2019, 16:22. Просмотров 949. Ответов 4 Метки нет (Все метки) процедура создания типизированного файла, состоящего из первых слов каждой строки данного текстового файла имеет вид 0

@Puporev Модератор 62221 / 46516 / 32069 Регистрация: 18.05.2008 Сообщений: 112,446
	05.05.2019, 18:03	2
	Сообщение от Бодрый666 имеет вид Какой? 0

@Бодрый666 3 / 12 / 0 Регистрация: 26.10.2018 Сообщений: 165
	05.05.2019, 18:05 [ТС]	3
	Puporev, Меня тоже интересует этот вопрос))) Это и надо описать. 0

@Бодрый666 3 / 12 / 0 Регистрация: 26.10.2018 Сообщений: 165
	05.05.2019, 18:27 [ТС]	5
	Спасибо,а то я гетворды собирался использовать) 0

Опции темы

Процедура создания типизированного файла, состоящего из первых слов каждой строки данного текстового файла

Решение