Поиск символа в файле с "бесконечной" строчкой

@probaps · Регистрация: 04.10.2019

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

Всем привет!

Помогите реализовать задачу:
PascalABC.NET

Текстовый файл содержит разные символы в строчку.
НО строчка может содержать более 100 тыс. символов.

Переписать его в другой файл, осуществляя при записи
переход на следующую строку после каждого символа ";" (точка с запятой).

Пример:

файл 111.тхт
содержание файла:

лузм;86пв4;орол6;9цыиа85л;к903оа;щц;

Создать файл 222.тхт
содержание должно быть таким:

лузм;
86пв4;
орол6;
9цыиа85л;
к903оа;
щц;

Спасибо.

@Соколиный глаз · 07.10.2019, 17:48

Сообщение от Пс

MessageBox.Show

Лучше отображать полезную информацию в Windows Forms приложениях не в модальных окнах, а в обычных, чтобы пользователю не приходилось много раз открывать и закрывать какое-то окно для просмотра нужной ему информации. Однако, все-жё, в простых учебных примерах такое допускается, но приучаться к практике использования модальных окон везде где требуется и нет - не следует.

@Пс · 07.10.2019, 17:52

probaps, Самопальная функция

Pascal
1
2
3
4
5
///Возвращает путь к файлу,содержащийся в текстовой переменной self
function TextToStr(self: text): string; extensionmethod;
begin
  result := self.FullName;
end;

Возможно пригодится))

Добавлено через 3 минуты
Соколиный глаз, вообще-то,предупреждения или результаты выполненных работ должны быть в MessageBox-ах

@Соколиный глаз · 07.10.2019, 17:54

Сообщение от Пс

Соколиный глаз, вообще-то,предупреждения или результаты выполненных работ должны быть в MessageBox-ах

Зависит от предупреждений и результатов работ. В Visual Studio для их (предупреждений компилятора) вывода используется немодальное окно. Но, я надеюсь, Вы понимаете, что имелось ввиду под термином полезная информация.

@Пс · 07.10.2019, 18:02

Соколиный глаз, Хорошо,тогда для чего используется MessageBox?

@Соколиный глаз · 07.10.2019, 18:17

Пс, думаю, что его лучше использовать там, где не требуется вывод такой информации, как, например, ошибки компилятора, предупреждения. Точнее, всё сводится к тому, чтобы избавить пользователя от лишнего нажатия на кнопку закрытия модального окна или другую его кнопку. Я полагаю, что MessageBox будет хорошо использовать для каких-то мелких и в то же время редких предупреждений/сообщений со стороны программы. Например, сообщение о том, что обновление программы установлено и приложение требует перезапуска - вариантов нет, кроме перезапуска (хотя, смотря что за обновление и какая программа, но, пускай вариантов больше нет), да и такое окно появляется относительно редко.

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

@Пс · 07.10.2019, 18:24

Сообщение от Соколиный глаз

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

а можно код в лс?

@Соколиный глаз · 07.10.2019, 18:25

Пс, можно.

@probaps · 08.10.2019, 09:04 **[ТС]**

А как исключить из замены, если перед символом ";" стоит символ "U".
Т.е. ";" замена на ";"#10, а если "U;" пропускаем.
Спасибо.

@Joy · 08.10.2019, 10:54

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
var
  f,fout:Text;
  t:string;
  d:string;
  nd:string;
  c:char;
  n:integer;
begin
  n:=0;
  AssignFile(f,'test.txt');
  reset(f);
  AssignFile(fout,'out.txt');
  rewrite(fout);
  d:=';';//РАЗДЕЛИТЕЛЬ
  nd:='U;';//НЕ РАЗДЕЛИТЕЛЬ
  while not eof(f) do begin
    while not eoln(f) do begin
      read(f,c);
      write(fout,c);
      if length(t)=length(nd) then delete(t,1,1);
      t:=t+c;
      if (c=d) and (t<>nd) then begin writeln(fout);n:=n+1;end;
    end;
    readln(f);
    writeln(fout);//если конец строки исходного файла,то надо ли в полученном файле переходить на другую строку,если нет, то закоментировать
  end;
  CloseFile(f);
  CloseFile(fout);
  writeln(n);
end.

@probaps · 08.10.2019, 11:31 **[ТС]**

Joy, спасибо.

а можно в этом коде добавить проверку:

begin
var converted := ReadAllText('f1.txt').Replace(';',';'#10 );
var line_count := converted.Count(ch->ch=#10)+1;
WriteAllText('f2.txt', converted);
end.

@Joy · 08.10.2019, 11:42

Сообщение от probaps

а можно в этом коде добавить проверку:

зачем? количество "разбитых" строк в переменной n. ее значение в конце выводится

Новые блоги и статьи Все статьи Все блоги /
сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .	Вот представьте что вам дали бессмертие. kumehtar 24.07.2026 Вот представьте что вам дали бессмертие, ничего более не меняя. Вообще ничего, только бессмертие в нынешнем виде. Рады были бы? Что бы вы тут делали всё это время? Никакой пенсии. Никакого нового. . .	сукцессия 41 anaschu 24.07.2026 Численная верификация бифуркации в агентной модели лесной сукцессии: от одного параметра к ансамблю Автор: пользователь @Shumilov_AS \| Раздел: Прикладная математика / Численные методы Кратко. . .
сукцессия 40. Ансамблевая кластерная параметризаци, часть 1. anaschu 24.07.2026 Пр# Сопровождение научной статьи ИИ-ассистентом: подготовка публикации и калибровка агентно-ориентированной модели сукцессии микоризных систем Полевые заметки о двухнедельной совместной работе. . .	Теория всего 12. ВГК на планете в стратегической игре "терра" anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .

@probaps 0 / 0 / 0 Регистрация: 04.10.2019 Сообщений: 11

	Поиск символа в файле с "бесконечной" строчкой 04.10.2019, 11:02. Показов 1679. Ответов 30 Метки нет (Все метки) Всем привет! Помогите реализовать задачу: PascalABC.NET Текстовый файл содержит разные символы в строчку. НО строчка может содержать более 100 тыс. символов. Переписать его в другой файл, осуществляя при записи переход на следующую строку после каждого символа ";" (точка с запятой). Пример: файл 111.тхт содержание файла: лузм;86пв4;орол6;9цыиа85л;к903оа;щц; Создать файл 222.тхт содержание должно быть таким: лузм; 86пв4; орол6; 9цыиа85л; к903оа; щц; Спасибо. 0

@Пс 257 / 149 / 70 Регистрация: 29.07.2018 Сообщений: 1,254
	07.10.2019, 18:02
	Соколиный глаз, Хорошо,тогда для чего используется MessageBox? 0

@Соколиный глаз Alvin Seville 344 / 274 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 22
	07.10.2019, 18:17
	Пс, думаю, что его лучше использовать там, где не требуется вывод такой информации, как, например, ошибки компилятора, предупреждения. Точнее, всё сводится к тому, чтобы избавить пользователя от лишнего нажатия на кнопку закрытия модального окна или другую его кнопку. Я полагаю, что MessageBox будет хорошо использовать для каких-то мелких и в то же время редких предупреждений/сообщений со стороны программы. Например, сообщение о том, что обновление программы установлено и приложение требует перезапуска - вариантов нет, кроме перезапуска (хотя, смотря что за обновление и какая программа, но, пускай вариантов больше нет), да и такое окно появляется относительно редко. В своих программах я обычно делал собственные модальные окна с возможностью перейти, например, на сайт собственной программы для оставления отзыва или сообщения об ошибки, а также с возможностью скопировать некоторые подробности показываемого сообщения. 0

@Соколиный глаз Alvin Seville 344 / 274 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 22
	07.10.2019, 18:25
	Пс, можно. 0

@probaps 0 / 0 / 0 Регистрация: 04.10.2019 Сообщений: 11
	08.10.2019, 09:04 [ТС]
	А как исключить из замены, если перед символом ";" стоит символ "U". Т.е. ";" замена на ";"#10, а если "U;" пропускаем. Спасибо. 0

@probaps 0 / 0 / 0 Регистрация: 04.10.2019 Сообщений: 11
	08.10.2019, 11:31 [ТС]
	Joy, спасибо. а можно в этом коде добавить проверку: begin var converted := ReadAllText('f1.txt').Replace(';',';'#10 ); var line_count := converted.Count(ch->ch=#10)+1; WriteAllText('f2.txt', converted); end. 0