这个字符串数据谁帮我看看怎么处理！

[Lite_-]

我要得到各个数的数值
M:RSSI= -54, SNR= 25, SEQ= 146, PER= 0/ 5

M:RSSI= -53, SNR= 26, SEQ= 147, PER= 0/ 6
M:RSSI= -53, SNR= 24, SEQ= 148, PER= 0/ 7
M:RSSI= -53, SNR= 25, SEQ= 149, PER= 0/ 8
M:RSSI= -53, SNR= 27, SEQ= 150, PER= 0/ 9
M:RSSI= -54, SNR= 27, SEQ= 151, PER= 0/ 10
M:RSSI= -53, SNR= 24, SEQ= 152, PER= 0/ 11
M:RSSI= -54, SNR= 26, SEQ= 153, PER= 0/ 12
M:RSSI= -54, SNR= 26, SEQ= 154, PER= 0/ 13
M:RSSI= -54, SNR= 24, SEQ= 155, PER= 0/ 14
M:RSSI= -54, SNR= 25, SEQ= 156, PER= 0/ 15
M:RSSI= -54, SNR= 27, SEQ= 157, PER= 0/ 16
M:RSSI= -52, SNR= 26, SEQ= 158, PER= 0/ 17

[zbdzjx]

http://www.cnblogs.com/railgunman/articles/1789901.html 类似上面说的，按逗号去拆分，再把等号后面的值取出来。

[xxfly]

var lList:TstringList; begin lList:=TstringList.Create; lList.Text:=StringReplace('RSSI= -54, SNR= 25, SEQ= 146, PER= 0/ 5',',', #13#10, [rfReplaceAll]); //lList.Strings[0]='RSSI' //lList.ValueFromIndex[0]=' -54' lList.Free;

[日立奔腾浪潮微软松下联想]

const
  msvcrt = 'msvcrt.dll';

//int sscanf( const char *buffer, const char *format [, argument ] ... );
//int swscanf( const wchar_t *buffer, const wchar_t *format [, argument ] ... );
function sscanf(buffer: PAnsiChar; const format: PAnsiChar): integer; cdecl; varargs; external msvcrt;
function swscanf(buffer: PChar; const format: PChar): integer; cdecl; varargs; external msvcrt;  // Delphi 2009+

procedure test;
var
  a, b, c, d, e: integer;
begin
  swscanf('M:RSSI= -54, SNR= 25, SEQ= 146, PER= 0/ 5', 'M:RSSI= %d, SNR= %d, SEQ= %d, PER= %d/ %d', @a, @b, @c, @d, @e);
// use a b c d e
end;

你也可以使用jedi code library中的sscanf函数（位于jclsscanf.pas ），是pascal原生实现。

[zbdzjx]

把这样的字符串拆分？还是拼出这样的字符串？

[Lite_-]

拆分 取得数值，然后存到数组

[Lite_-]

引用 1 楼 zbdzjx 的回复:

把这样的字符串拆分？还是拼出这样的字符串？

拆分 取得数值，然后存到数组