Обработка текстового файла, Помогите пожалуйста |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Обработка текстового файла, Помогите пожалуйста |
Grey-99 |
Сообщение
#1
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
Помогите пожалуйста с этой программой
Задача:Создать текстовый файл, в котором содержаться сведения о рабочих( Фамилия, Инициалы, Зарплата) К примеру: Петров ИИ 1200 Сидоров ПР 2000 Попов КП 3000 Надо считать эти записи, и отсортировать по зарплате. Использовать процедуры. Вот такие пероги. Если кто может помочь, помогите пожалуйста. Сообщение отредактировано: Grey-99 - |
Ozzя |
Сообщение
#2
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Цитата Помогите пожалуйста разобраться в программе В какой программе? Текста Вашей программы не наблюдаю. |
Grey-99 |
Сообщение
#3
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
Просто я не знаю как написать процедуру обработки текстового файла, по-этому и обратился за помощью к знающим людям
Вот процедура доступа outputfile: Цитата type base = RECORD name, ini:string; money: integer; END; mass = array [1..n] of string; var people : array [1..100] of base; nm : base; f: text; m:mass i,j:integer; procedure outputfile(var q:integer); var i:integer; begin assign (f,'D:\Delphi7\Rabotnik.txt'); reset(f); i:=1; repeat readln(f,m[i]); inc(i); until eof(f); close (f); q:=i; end; begin outputfile(p); readln; end. Сообщение отредактировано: Grey-99 - |
klem4 |
Сообщение
#4
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Файл обязательно текстовый и каждая строка в нем имеит вид:
Фиаимия <пробел> Иницалы <пробел> Зарплата ? -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Grey-99 |
Сообщение
#5
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
|
klem4 |
Сообщение
#6
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
uses crt; -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Grey-99 |
Сообщение
#7
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
Спасибо тебе огромное
|
Grey-99 |
Сообщение
#8
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
Вот этаже прога(но эна просто считывает записи из текстового файла и выводит на экран), но она не хочет выводить на экран записи, в чем ошибка?
program S4itivaemIzFaila; |
Bokul |
Сообщение
#9
|
Гуру Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация: 11 |
f: text; Почему файл делаешь текстовым? Читаешь ты его ведь в переменную типа base, а значит и файл должен быть типизированным.. f: file of base Цитата но эна просто считывает записи из текстового файла и выводит на экран А так не пойдёт, с текстовые и работать надо по-другому - читать не в переменную типа base, а в строку, потом ее анализировать (разделять на компоненты) и только после этого присваивать их соответственным полям base . Сообщение отредактировано: Bokul - -------------------- Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее. |
Grey-99 |
Сообщение
#10
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
[/quote] А так не пойдёт, с текстовые и работать надо по-другому - читать не в переменную типа base, а в строку, потом ее анализировать (разделять на компоненты) и только после этого присваивать их соответственным полям base . [/quote] Подскажи пожалуйста, что именно мне нужно исправить |
Bokul |
Сообщение
#11
|
Гуру Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация: 11 |
Grey-99, тебе же klem4 уже написал рабочий вариант программы с текстовыми файлами. Что еще надо?
-------------------- Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее. |
Текстовая версия | 26.04.2024 5:26 |