Организовать чтение из типизированого файла в запись

@abelix · Регистрация: 30.11.2009

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

record если в файле name.txt написано

Assembler
1
2
3
simens 3452 5716 
nokia 7014 3055
samsung 2410 4512

@Страдалецъ · 04.01.2010, 21:04

Если все поля разделены пробелом и названия состоят из одного слова, не сложно. Хуже если будет запись вида:
Sony Ericsson C902 9600
Тогда уже имеется 4 поля вместо ожидаемых 3, и тогда возможны ошибки.

@abelix · 04.01.2010, 21:13 **[ТС]**

Сообщение от Страдалецъ

Если все поля разделены пробелом и названия состоят из одного слова, не сложно.

а как это ,для меня не понятно и сложно

Сообщение от Страдалецъ

Хуже если будет запись вида:
Sony Ericsson C902 9600
Тогда уже имеется 4 поля вместо ожидаемых 3, и тогда возможны ошибки.

нет там пробелов точно не будет всё что написано в файле будем считать не форматируемым

@Страдалецъ · 04.01.2010, 21:39

Хорошо, будем считать, что одно значение в строке это один столбик в таблице. Тогда можно так делать:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Type
    TPriceRec = record
     Mark,Model,Price: String;
    end;
Var
   PriceFile: Text;
   PriceStr: String;
   PriceList: TPriceRec;
begin
 Assign(PriceFile, 'c:\Price.txt');
 Reset(PriceFile);
 While not Eof(PriceFile)
 do begin
    ReadLn(PriceFile, PriceStr);
    PriceList.Mark := Copy(PriceStr,1,Pos(' ',PriceStr)-1);
    PriceStr := Copy(PriceStr,Pos(' ',PriceStr)+1,Length(PriceStr));
    PriceList.Model := Copy(PriceStr,1,Pos(' ',PriceStr)-1);
    PriceList.Price := Copy(PriceStr,Pos(' ',PriceStr)+1,Length(PriceStr));
    WriteLn(PriceList.Mark,'-',PriceList.Model,' ',PriceList.Price,'руб.');
    end;
 Close(PriceFile);
 ReadLn;
end.

@abelix · 04.01.2010, 22:16 **[ТС]**

огромнейшое спасибо

я бы так не смог допереть,хотя и новых функций нет

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@Страдалецъ Тимуровец 445 / 285 / 50 Регистрация: 10.09.2009 Сообщений: 963
	04.01.2010, 21:04
	Если все поля разделены пробелом и названия состоят из одного слова, не сложно. Хуже если будет запись вида: Sony Ericsson C902 9600 Тогда уже имеется 4 поля вместо ожидаемых 3, и тогда возможны ошибки. 0

@abelix 10 / 10 / 5 Регистрация: 30.11.2009 Сообщений: 119
	04.01.2010, 22:16 [ТС]
	огромнейшое спасибо я бы так не смог допереть,хотя и новых функций нет 0