Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
2 / 2 / 0
Регистрация: 23.11.2015
Сообщений: 53
1

Чтение файла txt

01.01.2019, 13:06. Просмотров 941. Ответов 2
Метки нет (Все метки)

Доброго времени суток!
Подскажите как реализовать следующее:
Имеется текстовый файл, который содержит информацию следующего вида:
Иванов 120 3004
Петров 320 2201 и так далее, то есть строка содержит три столбца текстовой информации, возможно ли реализовать так, чтобы программа создала три текстовых файла с данными по первому, второму и третьему столбцам?

Добавлено через 38 минут
Нашёл на форуме пост Как загрузить StringGrid по содержимому, выбранного в OpenDialog текстового файла? не могу реализовать считывание по столбцам =(
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.01.2019, 13:06
Ответы с готовыми решениями:

Чтение txt файла
В файле servers.txt напечатан список серверов 127.0.0.1:10 127.0.0.2:1035 127.0.0.1:1034...

Чтение переменных из *.txt файла
Подскажите пожалуйста как сделать следующее. txt файл: color=blue&strength=5...

Чтение текста из txt файла
Здравствуйте уважаемые форумчане. Нужен для лабораторный работы такой код. Программа ищет в txt...

Чтение txt файла до определенного знака
Здравствуйте. Надо txt прочитать до определенного знака, чтобы до этого знака часть текста...

2
Модератор
Эксперт Pascal/Delphi
6207 / 4185 / 4586
Регистрация: 05.06.2014
Сообщений: 20,617
01.01.2019, 13:16 2
Лучший ответ Сообщение было отмечено Ремонтник как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var
  f1, f2, f3, f4: textfile;
  s1, s2, s3, s4: string;
 
begin
  assignfile(f1, 'f1.txt');
  assignfile(f2, 'f2.txt');
  assignfile(f3, 'f3.txt');
  assignfile(f4, 'f4.txt');
  reset(f1);
  rewrite(f2);
  rewrite(f3);
  rewrite(f4);  
  while not eof(f1) do
  begin
    readln(f1, s1);
    s2 := copy(s1, 1, pos(' ', s1));
    writeln(f2, s2);
    delete(s1, 1, length(s2));
    s3 := copy(s1, 1, pos(' ', s1));
    writeln(f3, s3);
    delete(s1, 1, length(s3));
    s4 := s1;
    writeln(f4, s4);
  end;
  closefile(f1);
  closefile(f2);
  closefile(f3);
  closefile(f4);
end.
1
2 / 2 / 0
Регистрация: 23.11.2015
Сообщений: 53
01.01.2019, 13:38  [ТС] 3
Спасибо! Всё гениальное - просто! С новым годом!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.01.2019, 13:38

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Чтение строчек файла txt программно
Скажите пожалуйста что здесь не правильно я написал поправьте пожалуйста:...

Чтение и анализ данных из TXT файла
Добрый день. Помогите пожалуйста. Есть файл в котором данные вот такого содержания: Нужно ...

Чтение txt/ini файла из ресурсов
В проекте есть 4 ini ресурса, как мне их прочитать? Я понимаю, что возможно делаю полную чушь, но...

Чтение с txt файла и запись в StringGrid Delphi 7
Так как только учусь не могу понять как записать правильно. Читать оно читает, а данные не знаю как...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.