Работа со строками

@Myrus · Регистрация: 27.03.2015

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

Добрый день.
Имеется строка вида:

12.03.13 16:55 Персонаж 'Rectert' заплатил 154 мнт. за телепортацию, израсходованы ресурсы: Silicon[0.306],Radioactive materials[0.107]

Помогите кодом вывести в:
Edit1 (дату) = 12.03.13
Edit2 (ник) = Rectert
Edit3 (cумма) = 154
Edit4 (силикон) = 0.306
Edit5 (радиоактивный материал) = 0.107

С датой разобрался:

Delphi

Var
s: string;
Begin
s := '12.03.13 16:55 Персонаж 'Rectert' заплатил 154 мнт. за телепортацию, израсходованы ресурсы: Silicon[0.306],Radioactive materials[0.107]'
Edit1.Text := Copy(s, 0, 14) // дата
end;

@qwertehok · 07.06.2016, 08:57

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

С датой разобрался:

молодец, че, 99% работы выполнил

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

Помогите кодом вывести в

по одной строке не получится сделать
нужна статистика - хотя бы строк 100-200, что бы прогнать тесты

@krapotkin · 07.06.2016, 08:59

s1:=copy(s,i,n) - скопировать из строки s начиная с символа i (считая с единицы) N символов

p:=pos(ss, s); - найти позицию строки ss в строке s (если не нашло, p=0)

ch:=s[i]; взять i-й символ (отсчет от 1) строки S

этих знаний с ушами хватит для выполнения вашего задания

@Qwetyui · 07.06.2016, 09:50

Rectert между ''
154 перед мнт.
0.306 между первыми []
0.107 между вторыми []

@Myrus · 07.06.2016, 09:51 **[ТС]**

Не ужели ?

@krapotkin · 07.06.2016, 10:10

месье желает чтобы не он )

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	07.06.2016, 08:57	2
	Сообщение от Myrus С датой разобрался: молодец, че, 99% работы выполнил Сообщение от Myrus Помогите кодом вывести в по одной строке не получится сделать нужна статистика - хотя бы строк 100-200, что бы прогнать тесты 0

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	07.06.2016, 08:59	3
	s1:=copy(s,i,n) - скопировать из строки s начиная с символа i (считая с единицы) N символов p:=pos(ss, s); - найти позицию строки ss в строке s (если не нашло, p=0) ch:=s[i]; взять i-й символ (отсчет от 1) строки S этих знаний с ушами хватит для выполнения вашего задания 0

@Qwetyui 30 / 31 / 20 Регистрация: 30.12.2015 Сообщений: 340
	07.06.2016, 09:50	4
	Rectert между '' 154 перед мнт. 0.306 между первыми [] 0.107 между вторыми [] 0

@Myrus 0 / 0 / 0 Регистрация: 27.03.2015 Сообщений: 156
	07.06.2016, 09:51 [ТС]	5
	Не ужели ? 0

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	07.06.2016, 10:10	6
	месье желает чтобы не он ) 0