0 / 0 / 1
Регистрация: 22.04.2014
Сообщений: 24
1

Непонятный вывод текста из текстового файла

23.05.2014, 19:39. Показов 1651. Ответов 10
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Я сделал кнопку для поиска в файле строки и ее вывода на текстбокс:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure Form4.button1_Click(sender: Object; e: EventArgs);
 {$CODEPAGE CP1251} 
var F:TextFile;
 Str:string; 
 i:integer;
begin
  Assign(F,'C:\Users\Неизвестен\Desktop\Записная\nomer.txt');
  reset(F);
while not eof(F) do
   begin
      readln(F, Str);
      if pos(textbox1.text, Str)>0
      then
      textbox2.text:= str;
   end;
   
end;
Выводится что то типа "222-222-222 максим" . Помогите пожалуйста
PS Текст в файл записывается через
Pascal
1
&File.AppendAllText
0
Лучшие ответы (1)
23.05.2014, 19:39
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
23.05.2014, 19:39
Ответы с готовыми решениями:

Вывод текста из текстового файла
Я в плюсах новичок но мне нужно вывести из текстового файла всё что там есть в обычную строку для ввода текста Мой псевдо код выглядит...

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

Вывод текста из текстового файла и запись в двоичный
С помощью текстового редактора создать файл, в котором содержатся данные, указанные в таблицах №17.1-3(в соответствии вариантами). Данные...

10
 Аватар для serёга
47 / 42 / 12
Регистрация: 27.08.2012
Сообщений: 290
24.05.2014, 23:12 2
Сомневаюсь в типе TextFile. Попробуйте Text.

Добавлено через 1 минуту
Хотя я не пойму, вы используете стандартный модуль или какую-то библиотеку.

Добавлено через 11 минут
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
{$apptype windows}
{$reference 'System.Windows.Forms.DLL'}
{$reference 'System.Drawing.DLL'}
Var main_form : System.Windows.Forms.Form;
    t : System.Windows.Forms.TextBox;
    b : System.Windows.Forms.Button;
    f : text;
    str : String;
    s := '1234';
 Procedure xxx (sender : object; e : System.EventArgs);
   Begin
     Reset (f);
     while not eof (f) do
       Begin
         Readln (f, str);
         If str = s Then t.Text := str;
       End;    
     close (f);
   End;
 Begin
    main_form := new System.Windows.Forms.Form ();
    b := new System.Windows.Forms.Button ();
    b.Location := new System.Drawing.Point (5, 5);
    b.Click += xxx;
    t := new System.Windows.Forms.TextBox ();
    t.Location := new System.Drawing.Point (5, 80);
    Assign (f, '123.txt');
    
    
    main_form.Controls.AddRange (new System.Windows.Forms.Control [2] (b, t));
    System.Windows.Forms.Application.Run (main_form);
 End.
0
0 / 0 / 1
Регистрация: 22.04.2014
Сообщений: 24
25.05.2014, 12:35  [ТС] 3
Цитата Сообщение от serёга Посмотреть сообщение
Сомневаюсь в типе TextFile. Попробуйте Text.

Добавлено через 1 минуту
Хотя я не пойму, вы используете стандартный модуль или какую-то библиотеку.
Я делаю через дизайнер форм: сама форма есть, кнопка тоже создана. Когда буду у компании попробую ваш вариант

Добавлено через 1 час 30 минут
Отвечу на еще один вопрос. Переменной в дизайнере форм присвоить TEXT нельзя, поэтому я использовал TextFile.
Можете приблизительно переписать это под тот вариант который я выложил в первом сообщении?
Буду благодарен
0
 Аватар для serёга
47 / 42 / 12
Регистрация: 27.08.2012
Сообщений: 290
25.05.2014, 17:29 4
Пожалуйста напишите, что должно быть вместо "222-222-222 максим"?
0
0 / 0 / 1
Регистрация: 22.04.2014
Сообщений: 24
25.05.2014, 18:03  [ТС] 5
Цитата Сообщение от serёга Посмотреть сообщение
Пожалуйста напишите, что должно быть вместо "222-222-222 максим"?
Точно не помню но в общем виде выглядит так : Номер ФИО. Пример: 22-22-22 Иванов Василий Васильевич
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
25.05.2014, 18:47 6
Просто это Юникод и нужно преобразовывать, но в АВС вроде нет такого метода, точно не знаю.
0
0 / 0 / 1
Регистрация: 22.04.2014
Сообщений: 24
25.05.2014, 19:08  [ТС] 7
Цитата Сообщение от Puporev Посмотреть сообщение
Просто это Юникод и нужно преобразовывать, но в АВС вроде нет такого метода, точно не знаю.
А есть хотя бы предположения в какую сторону копать?
Бо на сдаче практики меня будут "насиловать"
0
 Аватар для serёга
47 / 42 / 12
Регистрация: 27.08.2012
Сообщений: 290
25.05.2014, 19:33 8
Код работает. У меня читает именно то, что написано в файле (если открыть через блокнот). Попробуйте покапать код, где вы записываете в файл. Возможно там и надо поменять кодировку. А лучше записывать с помощью Rewrite или Append.

Добавлено через 2 минуты
Также можно попробовать вот так: Str.ToString () (в вашем коде)
1
0 / 0 / 1
Регистрация: 22.04.2014
Сообщений: 24
26.05.2014, 21:38  [ТС] 9
Я разобрался, спасибо за помощь.
Дабы не засорять форум задам тут же еще один вопрос: хотел что бы информация из файла показывалась в текстбоксе. Я решил поменять у себя &File.ReadAllText на обычные AssignFile и Reset. Выдает ошибку:Нельзя считывать данные этого типа(на строке read(F, textBox1.text)).

Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure Form3.button1_Click(sender: Object; e: EventArgs);
var F:textfile;
begin
AssignFile(F,'D:\1.txt');
 Reset(F);
 while not eof(F) do
 begin
 read(F, textBox1.text);
 CloseFile(F);
 end;
end;
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
27.05.2014, 08:11 10
Лучший ответ Сообщение было отмечено Sin2p как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Form1.button1_Click(sender: Object; e: EventArgs);
var F:textfile;
    s:string;
begin
AssignFile(F,'1.txt');
Reset(F);
while not eof(F) do
 begin
  readln(F, s);
  TextBox1.Text:=TextBox1.Text+s+#13#10
 end; 
 CloseFile(F);
end;
1
0 / 0 / 0
Регистрация: 26.11.2014
Сообщений: 25
09.03.2015, 15:29 11
Цитата Сообщение от Sin2p Посмотреть сообщение
Я разобрался, спасибо за помощь.
А с другими поделиться опытом? Где ошибка была?
0
09.03.2015, 15:29
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
09.03.2015, 15:29
Помогаю со студенческими работами здесь

Построчный вывод текстового файла и вывод комментария к каждой строке.
Программа делает выгрузку текстового файла с сервера и отображает содержимое текстового файла на страничке. Мне нужно сделать так, что бы...

Вывод текста в MessageBox из текстового документа!
Народ,помогите,пожалуйста,нужно написать программу,которая будет считывать текст из текстового документа и выводить в MessageBox,очень...

Вывод текста из текстового поля в заголовок
Здравствуйте. Подскажите, пожалуйста, как по нажатию кнопки вывести текст из текстового поля в заголовок формы? Разобрался только с меткой...

Вывод текста одномерного текстового массива в Label
Здравствуйте. Начал изучать массивы на c#, и возникла проблема. Хочу передать текст массива в label. Как лучше это сделать? ...

Выборка текста из текстового файла
Доброго времени суток! Нужно вытащить из текстовика (прикрепил) "ui_bid" Делаю это следующим кодом (смотри ниже), что может быть, что...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
Laravel или Symfony: что лучше для старта?
Wired 18.02.2025
В веб-разработке выбор правильного фреймворка может стать определяющим фактором успеха проекта. Особенно это актуально для PHP - одного из самых распространенных языков программирования, где Laravel. . .
Что нового в Laravel 12
Wired 18.02.2025
С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .
Роутер в Laravel: как работать с маршрутами
Wired 18.02.2025
Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .
Интеграция шаблона Bootstrap в Laravel PHP
Wired 18.02.2025
Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru