Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
arst
0 / 0 / 0
Регистрация: 12.03.2015
Сообщений: 67
1

Из текстового файла считывать строку, обрабатывать и результат записывать в тот же файл

24.10.2015, 15:25. Просмотров 370. Ответов 2
Метки нет (Все метки)

Программа должна работать следующим образом, из текстового файла считывать строку, обрабатывать и результат записывать в тот же файл.
Строку обрабатывает следующим образом - выводит только те слова, перед которым стоят меньшие, а после большие

ошибок не выводит, запускается но ничего не происходит((
Pascal
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
31
32
33
34
35
36
37
38
39
40
41
42
var
str,w1,w2,w3:string;
i,j,nw:integer;
f : Text;
Begin
Assign(f,'D:\new\InputFile.txt'); 
Reset(f); 
Readln(f, str); 
Close(f); 
 
 
 
 
str:=str+'.';
i:=1;
nw:=0;
w1:='';
w2:='';
if (str[i] >= 'A') and  (str[i] <= 'Z') then
while(str[i]<>'.') do
  begin 
  while((str[i]<>'.') and (str[i]=','))do inc(i);
  if str[i]<>'.' then
    begin
    j:=i;
    
    while((str[i]<>'.') and (str[i]<>','))do inc(i);
    if j-1> 5 then halt;
    inc(nw);
    if nw>30 then halt;
    w1:=w2;
    w2:=w3;
    w3:=copy(str,j,i-j);
    if (w1<>'') and (w2<>'') and (w1<w2) and (w2<w3) then writeln(w2);
    end;
  end;
 
  Assign(f,'D:\new\InputFile.txt'); 
  Rewrite(f); 
  
  Close(f)
End.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.10.2015, 15:25
Ответы с готовыми решениями:

Как считывать строки из текстового файла и записывать их в файл?
До этого на java не программил, но щас потребовалось сделать это именно на этом языке. Желательно...

Считывать из текстового файла и записывать в новый файл только строки, содержащие двузначные числа
Написать программу, которая считывает из текстового файла и записывает в новый файл только строки,...

Как считывать и записывать в тот же файл?
Вот допустим мне надо сделать следующее: просто пробежаться по файлу и поменять все запятые на...

Нужно переделать, чтобы программа могла считывать данные с файла и записывать в него результат.
Вот программа, созданная мною в C++ Builder. Она в не квадратной матрице элементы(кроме граничных)...

Считывать из файла по 512 байт и записывать их в новый файл
Надо считывать из файла по 512 байт и записывать их в новый файл. Так как я написал, при...

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
27047 / 18087 / 7151
Регистрация: 22.10.2011
Сообщений: 31,853
Записей в блоге: 6
24.10.2015, 16:59 2
Я бы вот так сделал:
Pascal
1
2
3
4
5
6
7
8
9
10
uses System.IO;
begin
  var func : string -> string := 
    function(s) -> begin 
      var arr := s.Split(' ,.'.ToCharArray(), System.StringSplitOptions.RemoveEmptyEntries);
      result := string.Join(' ', arr.Where((it : string; i : integer) -> 
        ((i = 0) or (arr[Pred(i)] < it)) and ((i = arr.Length - 1) or (it < arr[Succ(i)]))));
    end;
  &File.WriteAllLines('inputfile.txt', &File.ReadAllLines('inputfile.txt').Select(func));
end.
(.NET 4+)
0
arst
0 / 0 / 0
Регистрация: 12.03.2015
Сообщений: 67
24.10.2015, 20:59  [ТС] 3
а в моей программе можете указать где изменить?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.10.2015, 20:59

Удалить из текстового файла третью строку. Результат записать в другой файл
Имеется текстовый файл. Удалить из него третью строку. Результат записать в другой файл.

Удалить из текстового файла его последнюю строку. Результат записать в другой файл
удалить из текстового файла его последнюю строку. Результат записать в другой файл. У меня есть...

Удалить из текстового файла его последнюю строку. Результат записать в другой файл.
Удалить из текстового файла его последнюю строку. Результат записать в другой файл.


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

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

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