Нестандартное считывание текста

@bkmzk · Регистрация: 06.11.2016

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

Всем доброго времени суток! В txt файле после определенного слова-указателя надо считать следующее слово (одно, до знака пробела) и сохранить его.
Пример: [ххх] ууу zzz
Т.е надо считать yyy.
Указатель [xxx] постоянный.

@krapotkin · 16.11.2016, 21:00

файл считать в TStringStream
поиск подстроки в stringStream.DataString как обычно - функция pos / posEx
копирование части строки - copy(s, откуда, сколько)

@cfbogd · 16.11.2016, 21:17

Pascal

i:=pos(' ',stroka);
s:='';
repeat
inc(i);
s:=s+stroka[i];
until stroka[i]=' ';

@bkmzk · 16.11.2016, 21:18 **[ТС]**

проблема в том что yyy может быть различной длинны. Т.е. надо как-то привязать к пробелу, который свидетельствует об окончании слова.

@cfbogd · 16.11.2016, 21:28

bkmzk, в строке "[ххх] 147654565898907 zzz"
код найдет именно "147654565898907" в строке, независимо от длины "ууу"

Добавлено через 2 минуты
код с комментариями:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
stroka,s:string; //stroka -первоначальная строка, s - результат
begin
stroka:=edit1.Text; //вносим в stroka текст с edit1
i:=pos(' ',stroka); //находим позицию первого пробела
s:=''; //результат очищаем
repeat //запускаем цикл
inc(i);
s:=s+stroka[i]; //добавлять к строке по символу
until stroka[i]=' '; //пока символ не будет равен пробелу
form1.caption:=s; //вывожу результат в "шапку формы"
end;

@bkmzk · 16.11.2016, 21:29 **[ТС]**

Но в моем сообщении может быть: [sss] yyyyyy zzz
И это слово мне уже не нужно.

@cfbogd · 16.11.2016, 21:36

bkmzk, еще какие то вопросы?

тоже самое, но с COPY()

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,start:integer;
stroka:string;
begin
stroka:=edit1.Text;
start:=pos(' ',stroka);
i:=start;
repeat
inc(i);
until stroka[i]=' ';
form1.caption:=copy(stroka,start,i-start);
end;

@cfbogd · 16.11.2016, 21:38

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

И это слово мне уже не нужно.

как не нужно? вам нужно найти первое слово от [какой-то_там_текст] и до пробела. я вам этот код написал. пользуйтесь на здоровье.

@bkmzk · 16.11.2016, 22:06 **[ТС]**

Прошу прощения, может я не совсем понятно пояснил, но на примере вот такого сообщения:
[xxx] yyyyy 123
[zzz] YYYYY 456
Мне нужно записать только слово после [xxx], т.е. yyyyy
YYYYY мне не нужно.
Уж простите за тупость.

@cfbogd · 16.11.2016, 22:19

bkmzk, код сильно не поменялся:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,start:integer;
stroka:string;
begin
form1.Caption:='';
stroka:=edit1.Text;
if pos('[xxx]',stroka)=0 then exit;
start:=length('[xxx] ');
i:=start;
repeat
inc(i);
until stroka[i]=' ';
form1.caption:=copy(stroka,start,i-start);
end;

@bkmzk · 16.11.2016, 22:21 **[ТС]**

Спасибо огромное, под конец я и сам вроде понял!

@cfbogd · 16.11.2016, 22:37

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

start:=length('[xxx] ');

start:=pos(' ',stroka);, так лучше

@bkmzk · 16.11.2016, 22:57 **[ТС]**

cfbogd, подскажи, хочу результат вывести в Memo просто заменив form1.caption:= на Memo1.Lines.Add:=
Но выдаёт ошибку о том что нет актуальных параметров ([Error] Unit1.pas(42): Not enough actual parameters)
Вопрос снят! туплю!

@cfbogd · 16.11.2016, 22:59

bkmzk,

Delphi

1	Memo1.Lines.Add(copy(stroka,start,i-start));

@bkmzk 1 / 1 / 0 Регистрация: 06.11.2016 Сообщений: 22
	16.11.2016, 22:57 [ТС]	13
	cfbogd, подскажи, хочу результат вывести в Memo просто заменив form1.caption:= на Memo1.Lines.Add:= Но выдаёт ошибку о том что нет актуальных параметров ([Error] Unit1.pas(42): Not enough actual parameters) Вопрос снят! туплю! 0

@bkmzk 1 / 1 / 0 Регистрация: 06.11.2016 Сообщений: 22
		1
	Нестандартное считывание текста 16.11.2016, 19:04. Показов 1295. Ответов 13 Метки нет (Все метки) Всем доброго времени суток! В txt файле после определенного слова-указателя надо считать следующее слово (одно, до знака пробела) и сохранить его. Пример: [ххх] ууу zzz Т.е надо считать yyy. Указатель [xxx] постоянный. 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,158 Записей в блоге: 20
	16.11.2016, 21:00	2
	файл считать в TStringStream поиск подстроки в stringStream.DataString как обычно - функция pos / posEx копирование части строки - copy(s, откуда, сколько) 0

@bkmzk 1 / 1 / 0 Регистрация: 06.11.2016 Сообщений: 22
	16.11.2016, 21:18 [ТС]	4
	проблема в том что yyy может быть различной длинны. Т.е. надо как-то привязать к пробелу, который свидетельствует об окончании слова. 0

@bkmzk 1 / 1 / 0 Регистрация: 06.11.2016 Сообщений: 22
	16.11.2016, 21:29 [ТС]	6
	Но в моем сообщении может быть: [sss] yyyyyy zzz И это слово мне уже не нужно. 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	16.11.2016, 21:38	8
	Сообщение от bkmzk И это слово мне уже не нужно. как не нужно? вам нужно найти первое слово от [какой-то_там_текст] и до пробела. я вам этот код написал. пользуйтесь на здоровье. 0

@bkmzk 1 / 1 / 0 Регистрация: 06.11.2016 Сообщений: 22
	16.11.2016, 22:06 [ТС]	9
	Прошу прощения, может я не совсем понятно пояснил, но на примере вот такого сообщения: [xxx] yyyyy 123 [zzz] YYYYY 456 Мне нужно записать только слово после [xxx], т.е. yyyyy YYYYY мне не нужно. Уж простите за тупость. 0

@bkmzk 1 / 1 / 0 Регистрация: 06.11.2016 Сообщений: 22
	16.11.2016, 22:21 [ТС]	11
	Спасибо огромное, под конец я и сам вроде понял! 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	16.11.2016, 22:37	12
	Сообщение от cfbogd start:=length('[xxx] '); `start:=pos(' ',stroka);`, так лучше 1

	16.11.2016, 22:59

Нестандартное считывание текста

Решение