присвоение значений переменным из строки

[sergey[zel]]

Мужики помогите реализовать..

есть например текстовая строка: 'a22.33 b2.2 c33 d55.333'
как мне прочитать числа стоящие за буквами и присвоить их соответствующим переменным ?.

[Лубышев]

нужно парсер написать. не удобная что то строка у вас
вот если бы 'a=22.33; b=2.2; c=33; d=55.333;' то мне кажется было бы проще.

[Ntlegend]

для начала преобразовываешь строку в список

var l:TStrings;
s:String;
begin
s:='a22.33 b2.2 c33 d55.333';
l:=TStringList.Create;
s:=StringReplase(s, ' ', #13#10, [rfReplaseAll]);
//заменяем пробелы на пеернос строки
l.Text:=s;

дальше из полученого списка присваиваем значение переменным

a:=StrToFloat(Copy(l.Strings[0], 2, Length(l.Strings[0])))
(*
StrToFloat - преобразовываем строку в число с плавающей запятой
Copy - копируем строку начиная со второго символа.. потому что первый - буква...
l.Strings[0] - первая строчка в списке..
*)
b:=StrToFloat(Copy(l.Strings[1], 2, Length(l.Strings[1])))
c:=StrToFloat(Copy(l.Strings[2], 2, Length(l.Strings[2])))
d:=StrToFloat(Copy(l.Strings[3], 2, Length(l.Strings[3])))
//и так далее
end;

[sergey[zel]]

спасибо за совет
да код криво генерится построцессором станка.., приходится корректировать его вручную, вот я и хотел упростить себе жизнь.
по сути мне надо убрать из строки все "Y с его значениями", перемножить значения X на 2, перед "(" скобками поставить ";", закоментировать их чтобы станок воспринимал это как коментарий.

%MPF99
N1 G40 G54 G71 G90 G17 G94
(TOOL: T1 External Insert-Holder)
(OPERATION: Rough Turning.1)
N2 G1 X6.55 Y0 Z28.5 S70. F60000.
N3 G95 X6.55 Y0 Z26.5 F.3

строк там может быть до 10000

[Ntlegend]

sergey[zel] пользуйтесь кнопкой "правка"


сохрани тест в текстовый файл.. и дальше чтото на подобии такой процедуры:

var l:TStrings;
s:string;
i, n, k:integer;
f:Double;
begin
l:=TStringList.Create;
l.LoadFromFile('1.txt');
for i:=0 to l.Count-1 do
 begin
  if l.Strings[i][1]='('
   then l.Strings[i]:=';'+l.Strings[i]
   else begin
    s:=l.Strings[i];
    n:=Pos('Y', s);//позицыя буквы Y
    k:=PosEx(' ', s, n)+1;// окончание значения после этой буквы
    Delete(s, n, k-n);//удаляем лишнее..
//так же само удаляем цыфру после X
    n:=Pos('X', s)+1;
    k:=PosEx(' ', s, n);
    f:=StringToFloat(Copy(s, n, k));//копируем цыфру в переменную
    f:=f*2;
    Delete(s, n, k-n);
    Insert(FloattoStrinf(f), s, n);//вставляем новое значение
    l.Strings[i]:=s;
   end;
 end;
end;

если есть ошибки в коде.. то извеняюся.. писал прямо сдесь.. не проверял на правильность.. но вроде должно работать

строк там может быть до 10000

это скажется только на кскоросте обработки файла и на оперативе.. которую программа будет потреблять.. для уменьшения второго можна использовать другой метод открытия файла.. ну и чьение/запись строк соответственно.. я показал тока один из примеров как это можна реализовать


маленькие изменения в коде..

[sergey[zel]]

Ntlegend, спасибо большое !
примного благодарен

все работает за исключением перемножения float на 2
пишет ошибку ..
может у кого есть готовый парсер типа:
float x=функция(строка, символ за которым стоит значение, символ до которого отчитывается длинна значения)

[Stilet]

да код криво генерится построцессором станка

Ниче тут кривого нет. Обычная программа станка.

пишет ошибку ..

Видать на японском раз ты текст не привел.

может у кого есть готовый парсер типа:

строку типа: N1 G40 G54 G71 G90 G17 G94
Можно раскидать в массив так:

var s:TStringList; n:Double;
begin
s:=TStringList.Create;
s.Delimiter:=' ';
s.DelimitedText:='N1 G40 G54 G71 G90 G17 G94';
// теперь строка с командами раскидана по "массиву"
// Далее указываешь какой элемент нужно взять и удали из него букву команды, превратив числовой параметр в число
n:=StrToFloatdef(copy(s[2],2,length(s[2])),0);

end;

Надеюсь смысл понятен