Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.09.2011, 13:11
babay89 babay89 вне форума
Прохожий
 
Регистрация: 20.09.2011
Сообщения: 39
Репутация: -2571
По умолчанию Чтение данных в текстовом файле

Всем доброго времени суток. Имеется проблема, которую не могу решить уже несколько дней. Есть текстовой файл с данными такого вида:
Код:
stroka1 stroka2 stroka3 stroka4
Нужно Спарсить все четыре эти строки. Кто поможет с решением?

Последний раз редактировалось babay89, 20.09.2011 в 13:17.
Ответить с цитированием
  #2  
Старый 20.09.2011, 13:22
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

несколько непонятно по вашему примеру, что является разделителем строк?
Если пробел, то это не 4 строки, а одна длинная.
Непонятно так-же что собственно парсить? Получить на выходе 4 слова или нечто другое?
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #3  
Старый 20.09.2011, 13:28
babay89 babay89 вне форума
Прохожий
 
Регистрация: 20.09.2011
Сообщения: 39
Репутация: -2571
По умолчанию

Да, разделитель пробел, нужно как-то спарсить через пробел эти данные.
Ответить с цитированием
  #4  
Старый 20.09.2011, 13:41
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Не уверен что это то что вы хотите, но видимо так:
Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes, Dialogs;
Var
  SL: TStringList;
begin
 SL := TStringList.Create;
 SL.LoadFromFile('c:\1\test.txt');
 SL.Text := StringReplace(SL.Text,#32,#13,[rfReplaceAll]);
 ShowMessage(IntToStr(SL.Count));
 SL.Free;
end.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #5  
Старый 20.09.2011, 13:48
babay89 babay89 вне форума
Прохожий
 
Регистрация: 20.09.2011
Сообщения: 39
Репутация: -2571
По умолчанию

Почти оно, но мне нужно не количество строк, а сами строки
Ответить с цитированием
  #6  
Старый 20.09.2011, 14:00
babay89 babay89 вне форума
Прохожий
 
Регистрация: 20.09.2011
Сообщения: 39
Репутация: -2571
По умолчанию

возможно ли вообще такое запилить на delphi??? На с++ видел такое.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:30.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025