Работа со строкой в Delphi 7

@infoehra · Регистрация: 02.10.2014

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

Здравствуйте уважаемые форумчане!
У меня возник вопрос, собственно есть строка - /peripheral/tim: 1: 0 2: 0 3: 0 4: 3795 5: 3782 6: 7127
В строке за место нулей может быть 3-4 значное число. Так вот как бы мне сделать так что бы:

1) Была проверка что это нужная мне строка, так как строка может быть и другая
2) Как заполнить двумерный массив, где значение первого столбца будет однозначным, цифра перед : например 3:, а значение второго столбца будет число после :, например : 3425

Пример: 1: 325 2: 7121 3: 0 4: 3795 5: 3782 6: 7127

1 325
2 7121
3 0
4 3795
5 3782
6 7127

@chizz · 02.10.2014, 15:36

1) Ответить на вопрос, что в этой строке уникального.
Например /peripheral/tim это уникальная часть строки, которая отличает ее 100% от других, то можно поставить проверку типа if pos("/peripheral/tim")<>-1 then...

2) Тут алгоритм может быть следующий

2.1 сплиттим строку через пробел http://stackoverflow.com/quest... -delimiter

2.2 пробегаем по полученному массиву, если индекс начинается с 1, то в нечетных элементах будет номер с пробелом (1:,2:,3: ...), в четных элементах массива будут числа ( 325, 7121,0...)

2.2.1. При выборе нечетных элементов делаем StringReplace http://www.delphibasics.ru/StringReplace.php , убираем двоеточие, записываем в двумерный массив. При выборе четных элементов записываем без преобразований.

Как то так

@infoehra · 02.10.2014, 16:49 **[ТС]**

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

Например /peripheral/tim это уникальная часть строки,

Да, уникальная

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

2) Тут алгоритм может быть следующий

Что то не получается... Можете разжевать поподробнее.
Вот задача - из COM порта я получаю строку с параметрами, строка хранится в глобальной переменной resData, так вот строки могут быть любыми, но мне нужна которая начинается на /peripheral/tim, и из нее нужно выдрать значения. Причем параметры эти постоянно меняются и меняются очень быстро.

Добавлено через 23 минуты

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

if pos("/peripheral/tim")<>-1 then...

Строка находится в переменной resData как мне правильно написать условие?

@chizz · 02.10.2014, 16:56

infoehra, Пример
var
S: string;
I: Integer;
begin
S:= 'В лесу родилась елочка';
I:= Pos( 'лес', S); // I:= 3
end;

Т.е. в вашем случае if Pos("/peripheral/tim",resData) > 0 then...

@infoehra · 02.10.2014, 17:50 **[ТС]**

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

Т.е. в вашем случае if Pos("/peripheral/tim",resData) > 0 then...

Вот мой текст

Delphi

var
  fMain: TfMain;
  NameCOM: string;
  resData: string;
 
implementation
 
uses Config;
 
{$R *.dfm}
 
procedure TfMain.ComPortReceiveData(Sender: TObject; DataPtr: Pointer;
  DataSize: Cardinal);
var
 i,x,pos: integer;
 str: string;
 wordArray: array[word] of string;
begin
 i :=0;
 For i:=0 to (DataSize-1) do begin
  resData:=resData+(PChar(DataPtr)[i]);  //+'*'+IntToStr(i)+'*'
 end;
Memo1.lines.add(resData);
end;
 
procedure TfMain.Button1Click(Sender: TObject);
begin
ComPort.SendString('tim in print'+char($0D)+char($0A));
if Pos('/peripheral/tim',resData) > 0 then
 ShowMessage('OK');
end;

Как я понимаю при нужной мне строке должно появлятся сообщение, но оно не появляется.

Добавлено через 23 минуты

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

if Pos('/peripheral/tim',resData) > 0 then

С этим разобрался)

Добавлено через 7 минут

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

2) Тут алгоритм может быть следующий
2.1 сплиттим строку через пробел http://stackoverflow.com/quest... -delimiter
2.2 пробегаем по полученному массиву, если индекс начинается с 1, то в нечетных элементах будет номер с пробелом (1:,2:,3: ...), в четных элементах массива будут числа ( 325, 7121,0...)
2.2.1. При выборе нечетных элементов делаем StringReplace http://www.delphibasics.ru/StringReplace.php , убираем двоеточие, записываем в двумерный массив. При выборе четных элементов записываем без преобразований

Пожалуйста, можно поподробнее, желательно с примером)

@chizz · 02.10.2014, 18:05

infoehra, т.е. вы дошли до того, что в resData теперь хранится строка /peripheral/tim: 1: 0 2: 0 3: 0 4: 3795 5: 3782 6: 7127 так?

Теперь надо заменить код ShowMessage('OK'); на алгоритм, который я привел.

Ок..

Delphi

var
   A: TStringList;
 
// это вставить вместо ShowMessage('OK');
 
  A := TStringList.Create;
  Split(' ', resData , A) ;
 
 // в итоге у вас будет массив A
 // Дальше надо будет пройти по массиву и далее по алгоритму
 
procedure Split
   (const Delimiter: Char;
    Input: string;
    const Strings: TStrings) ;
begin
   Assert(Assigned(Strings)) ;
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;

@infoehra · 02.10.2014, 18:11 **[ТС]**

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

т.е. вы дошли до того, что в resData теперь хранится строка /peripheral/tim: 1: 0 2: 0 3: 0 4: 3795 5: 3782 6: 7127 так?

Нет, в resData храниться то что прилетает с контроллера в COM порт.
Но если я нажимаю на кнопку и в это время там оказывается строка с началом /peripheral/tim, то вылетает сообщение.... Но почему то если после того как вылетело сообщение в COM порт приходит другая строка, то сообщение все равно вылетает, такое ощущение что где то это запоминается и значение Pos не обновляется, хотя resData меняет свои значения (вижу это в Memo1)

Delphi

procedure TfMain.Button2Click(Sender: TObject);
begin
if Pos('/peripheral/tim',resData) > 0 then
   ShowMessage('OK');
end;

@chizz · 02.10.2014, 18:25

infoehra, ну так у вас showmessage по Button2Click, а resdata обновляется по ComPortReceiveData, который неизвестно где и когда вызывается.

@infoehra · 02.10.2014, 18:29 **[ТС]**

Вот процедура чтения из COM порта

Delphi

procedure TfMain.ComPortReceiveData(Sender: TObject; DataPtr: Pointer;
  DataSize: Cardinal);
var
 i,x,pos: integer;
 str: string;
 wordArray: array[word] of string;
begin
 i :=0;
 For i:=0 to (DataSize-1) do begin
  resData:=resData+(PChar(DataPtr)[i]);  //+'*'+IntToStr(i)+'*'
 end;
Memo1.lines.add(resData);
Memo2.Lines.Clear;
Memo3.Lines.Add(resData);
[B]if AnsiPos('/peripheral/tim',resData) > 0 then
 Memo2.Lines.Add('yes')
 else
 Memo2.Lines.Add('no');
end;[/B]

Выделенный текст это то что я перенес с кнопки, изменений 0. В Memo3 все нормально, в Memo2 работает 1 раз, до первого yes, потом все время yes.

@chizz · 02.10.2014, 18:31

Посмотрите что в resData.

Memo2.Lines.Add(resData)

Возможно оно (resData) не очищается

@infoehra · 02.10.2014, 18:33 **[ТС]**

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

Посмотрите что в resData.
Memo2.Lines.Add(resData)
Возможно оно (resData) не очищается

Не очень понял о чем Вы...

Delphi

procedure TfMain.ComPortReceiveData(Sender: TObject; DataPtr: Pointer;
  DataSize: Cardinal);
var
 i,x,pos: integer;
 str: string;
 wordArray: array[word] of string;
begin
 i :=0;
 For i:=0 to (DataSize-1) do begin
  resData:=resData+(PChar(DataPtr)[i]);  //+'*'+IntToStr(i)+'*'
 end;
Memo1.lines.add(resData);
Memo2.Lines.Clear;
Memo3.Lines.Add(resData);
if AnsiPos('/peripheral/tim',resData) > 0 then
 Memo2.Lines.Add('yes')
 else
 Memo2.Lines.Add('no');
end;

Это вся процедура, то что в resData выводит в Memo3, там все нормально, а вот этот кусок работает один раз до первого YES, потом всегда YES

Delphi

if AnsiPos('/peripheral/tim',resData) > 0 then
 Memo2.Lines.Add('yes')
 else
 Memo2.Lines.Add('no');
end;

@chizz · 02.10.2014, 18:36

infoehra, у вас написано resData:=resData+(PChar(DataPtr)[i]);

По идее если resData глобальный объект, то он постоянно должен добавляться. Нет очищения. resData = '';

i :=0;
resData = '';
For i:=0 to (DataSize-1) do begin
resData:=resData+(PChar(DataPtr)[i]); //+'*'+IntToStr(i)+'*'
end;

Вот так должно работать

@infoehra · 02.10.2014, 18:48 **[ТС]**

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

i :=0;
resData = '';
For i:=0 to (DataSize-1) do begin
resData:=resData+(PChar(DataPtr)[i]); //+'*'+IntToStr(i)+'*'
end;
Вот так должно работать

РАБОТАЕТ!!! Еще один вопрос решили))) Спасибо огромное!!!

Добавлено через 6 минут

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

Теперь надо заменить код ShowMessage('OK'); на алгоритм, который я привел.
var
* *A: TStringList;
// это вставить вместо ShowMessage('OK');
A := TStringList.Create;
* Split(' ', resData , A) ;
// в итоге у вас будет массив A
*// Дальше надо будет пройти по массиву и далее по алгоритму
procedure Split
* *(const Delimiter: Char;
* * Input: string;
* * const Strings: TStrings) ;
begin
* *Assert(Assigned(Strings)) ;
* *Strings.Clear;
* *Strings.Delimiter := Delimiter;
* *Strings.DelimitedText := Input;
end;

Написал, а что делать дальше??? Как можно посмотреть массив? Мне нужно значение после '3:' привязать к ScrollBar.Position

@chizz · 02.10.2014, 18:52

infoehra, почитайте про TStringList. Потом создайте из одномерного массива двумерный. Потом найдите в двумерном массиве 3, вытащите значение и привяжите к ScrollBar.Position.

1. Создать из одномерного StringList двумерный array.

Как сделаете, напишите

@infoehra · 02.10.2014, 21:51 **[ТС]**

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

1. Создать из одномерного StringList двумерный array.

Как из одномерного двумерный создать я представляю, а вот как заполнить его так как мне надо вот с этим проблема. Может поможете)

@chizz · 02.10.2014, 22:47

infoehra, вы сначала создайте

а потом помогу

Не по теме:

пысы. я тоже себе много чего представляю :)

@infoehra · 02.10.2014, 22:54 **[ТС]**

ок, будем разбираться)

@chizz · 02.10.2014, 22:58

infoehra, Memo1.Lines.Add(IntToStr(x)+' '+IntToStr(y));

У вас x и y это индексы из
for x:= 1 to 2 do
for y:= 1 to 6 do

@infoehra · 02.10.2014, 22:59 **[ТС]**

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

У вас x и y это индексы из
for x:= 1 to 2 do
for y:= 1 to 6 do

Да, да, да спасибо уже заметил)))

@chizz · 02.10.2014, 23:03

infoehra, вам надо пройти по StringList и забить двумерный массив.

Т.е. for надо делать по StringList.

Как-то так:
Начинать надо с 1, так как в 0-вом элементе у вас будет содержаться /peripheral/tim:

Delphi

for i := 1 to A.Count-1 do
begin
// вот тут надо реализовать логику заполнения двумерного массива
end;

@infoehra 0 / 0 / 0 Регистрация: 02.10.2014 Сообщений: 27
	02.10.2014, 18:48 [ТС]	13
	Сообщение от chizz i :=0; resData = ''; For i:=0 to (DataSize-1) do begin resData:=resData+(PChar(DataPtr)[i]); //+''+IntToStr(i)+'' end; Вот так должно работать РАБОТАЕТ!!! Еще один вопрос решили))) Спасибо огромное!!! Добавлено через 6 минут Сообщение от chizz Теперь надо заменить код ShowMessage('OK'); на алгоритм, который я привел. var * A: TStringList; // это вставить вместо ShowMessage('OK'); A := TStringList.Create; Split(' ', resData , A) ; // в итоге у вас будет массив A // Дальше надо будет пройти по массиву и далее по алгоритму procedure Split (const Delimiter: Char; * Input: string; * * const Strings: TStrings) ; begin * Assert(Assigned(Strings)) ; Strings.Clear; Strings.Delimiter := Delimiter; *Strings.DelimitedText := Input; end; Написал, а что делать дальше??? Как можно посмотреть массив? Мне нужно значение после '3:' привязать к ScrollBar.Position 0

@infoehra 0 / 0 / 0 Регистрация: 02.10.2014 Сообщений: 27
	02.10.2014, 22:59 [ТС]	19
	Сообщение от chizz У вас x и y это индексы из for x:= 1 to 2 do for y:= 1 to 6 do Да, да, да спасибо уже заметил))) 0

@infoehra 0 / 0 / 0 Регистрация: 02.10.2014 Сообщений: 27
		1
	Работа со строкой в Delphi 7 02.10.2014, 15:06. Показов 2423. Ответов 37 Метки нет (Все метки) Здравствуйте уважаемые форумчане! У меня возник вопрос, собственно есть строка - /peripheral/tim: 1: 0 2: 0 3: 0 4: 3795 5: 3782 6: 7127 В строке за место нулей может быть 3-4 значное число. Так вот как бы мне сделать так что бы: 1) Была проверка что это нужная мне строка, так как строка может быть и другая 2) Как заполнить двумерный массив, где значение первого столбца будет однозначным, цифра перед : например 3:, а значение второго столбца будет число после :, например : 3425 Пример: 1: 325 2: 7121 3: 0 4: 3795 5: 3782 6: 7127 1 325 2 7121 3 0 4 3795 5 3782 6 7127 0

@chizz 993 / 521 / 102 Регистрация: 19.03.2013 Сообщений: 3,114 Записей в блоге: 19
	02.10.2014, 15:36	2
	1) Ответить на вопрос, что в этой строке уникального. Например /peripheral/tim это уникальная часть строки, которая отличает ее 100% от других, то можно поставить проверку типа if pos("/peripheral/tim")<>-1 then... 2) Тут алгоритм может быть следующий 2.1 сплиттим строку через пробел http://stackoverflow.com/quest... -delimiter 2.2 пробегаем по полученному массиву, если индекс начинается с 1, то в нечетных элементах будет номер с пробелом (1:,2:,3: ...), в четных элементах массива будут числа ( 325, 7121,0...) 2.2.1. При выборе нечетных элементов делаем StringReplace http://www.delphibasics.ru/StringReplace.php , убираем двоеточие, записываем в двумерный массив. При выборе четных элементов записываем без преобразований. Как то так 1

@infoehra 0 / 0 / 0 Регистрация: 02.10.2014 Сообщений: 27
	02.10.2014, 16:49 [ТС]	3
	Сообщение от chizz Например /peripheral/tim это уникальная часть строки, Да, уникальная Сообщение от chizz 2) Тут алгоритм может быть следующий Что то не получается... Можете разжевать поподробнее. Вот задача - из COM порта я получаю строку с параметрами, строка хранится в глобальной переменной resData, так вот строки могут быть любыми, но мне нужна которая начинается на /peripheral/tim, и из нее нужно выдрать значения. Причем параметры эти постоянно меняются и меняются очень быстро. Добавлено через 23 минуты Сообщение от chizz if pos("/peripheral/tim")<>-1 then... Строка находится в переменной resData как мне правильно написать условие? 0

@chizz 993 / 521 / 102 Регистрация: 19.03.2013 Сообщений: 3,114 Записей в блоге: 19
	02.10.2014, 16:56	4
	infoehra, Пример var S: string; I: Integer; begin S:= 'В лесу родилась елочка'; I:= Pos( 'лес', S); // I:= 3 end; Т.е. в вашем случае if Pos("/peripheral/tim",resData) > 0 then... 0

@chizz 993 / 521 / 102 Регистрация: 19.03.2013 Сообщений: 3,114 Записей в блоге: 19
	02.10.2014, 18:25	8
	infoehra, ну так у вас showmessage по Button2Click, а resdata обновляется по ComPortReceiveData, который неизвестно где и когда вызывается. 0

@chizz 993 / 521 / 102 Регистрация: 19.03.2013 Сообщений: 3,114 Записей в блоге: 19
	02.10.2014, 18:31	10
	Посмотрите что в resData. Memo2.Lines.Add(resData) Возможно оно (resData) не очищается 0

@chizz 993 / 521 / 102 Регистрация: 19.03.2013 Сообщений: 3,114 Записей в блоге: 19
	02.10.2014, 18:36	12
	infoehra, у вас написано resData:=resData+(PChar(DataPtr)[i]); По идее если resData глобальный объект, то он постоянно должен добавляться. Нет очищения. resData = ''; i :=0; resData = ''; For i:=0 to (DataSize-1) do begin resData:=resData+(PChar(DataPtr)[i]); //+''+IntToStr(i)+'' end; Вот так должно работать 0

@chizz 993 / 521 / 102 Регистрация: 19.03.2013 Сообщений: 3,114 Записей в блоге: 19
	02.10.2014, 18:52	14
	infoehra, почитайте про TStringList. Потом создайте из одномерного массива двумерный. Потом найдите в двумерном массиве 3, вытащите значение и привяжите к ScrollBar.Position. 1. Создать из одномерного StringList двумерный array. Как сделаете, напишите 0

@infoehra 0 / 0 / 0 Регистрация: 02.10.2014 Сообщений: 27
	02.10.2014, 21:51 [ТС]	15
	Сообщение от chizz 1. Создать из одномерного StringList двумерный array. Как из одномерного двумерный создать я представляю, а вот как заполнить его так как мне надо вот с этим проблема. Может поможете) 0

@chizz 993 / 521 / 102 Регистрация: 19.03.2013 Сообщений: 3,114 Записей в блоге: 19
	02.10.2014, 22:47	16
	infoehra, вы сначала создайте а потом помогу Не по теме: пысы. я тоже себе много чего представляю :) 0

@infoehra 0 / 0 / 0 Регистрация: 02.10.2014 Сообщений: 27
	02.10.2014, 22:54 [ТС]	17
	ок, будем разбираться) 0

@chizz 993 / 521 / 102 Регистрация: 19.03.2013 Сообщений: 3,114 Записей в блоге: 19
	02.10.2014, 22:58	18
	infoehra, Memo1.Lines.Add(IntToStr(x)+' '+IntToStr(y)); У вас x и y это индексы из for x:= 1 to 2 do for y:= 1 to 6 do 0