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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 09.02.2009, 19:35
serpico serpico вне форума
Прохожий
 
Регистрация: 04.02.2009
Сообщения: 20
Репутация: 10
По умолчанию Чтение в многострочном файле

У меня проблема помогите пожалуйста. Мне нужно из текстового файла прочитать все символы в данной строке. Допустим:
Есть файл в нем написано:

X=Привет
Y=Пока

мне нужно выдрать слово что идет после X= или Y= в общем чтобы осталось только слово "Пока" или "Привет".

Я считаю тут есть два варианта:

1. Найти что идет после символа X= и посчитать с 3 символа в этом файле, но какое количество символом неизвестно, мне нужно в данной строке. По идее тут идет "Кол-во символов в строке" - 3 это и будет оставшееся слово "Привет".

2. Это использовать INI - файл, я им правда не умею пользоваться

Помогите пожалуйста я в отчаянии!
Ответить с цитированием
  #2  
Старый 09.02.2009, 23:28
Аватар для 0nni
0nni 0nni вне форума
Начинающий
 
Регистрация: 13.12.2008
Адрес: Туапсе
Сообщения: 161
Репутация: 20
По умолчанию

Код:
var
list : TstringList;
sX, sY, sText : string;
begin
 list := TstringList.Create();
 list.LoadFromFile('имя твоего файла');
 sX := list.Values['x'];
 sY := list.Values['y'];
 sText := list.Values['text'];
 list.free;
__________________
...сказал, и загрустил от бесспорной своей правоты
Ответить с цитированием
  #3  
Старый 10.02.2009, 07:50
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Используй INI файлы.
Код:
var ini:TIniFile;
    x,y:string;
begin
  ini:=TIniFile.Create('FileName');
  x:=ini.ReadString('Раздел','x','Значение по дефолту');
  y:=ini.ReadString('Раздел','y','Значение по дефолту');
  ini.WriteString('Раздел','y','Значение');
  ini.Free;
end;
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter