Delphi сравнивает 2 строковых списка с помощью поиска подстроки и объединяет соответствующие элементы в другом списке строк

Я пытаюсь сравнить 2 строковых списка с помощью поиска подстроки и сопоставить найденные элементы в другой список строк.

«Stringlist_SCSILogicalUnit» содержит такие данные, как:

SCSIBus=0;SCSILogicalUnit=0;SCSIPort=1;SCSITargetId=0;Status=OK
SCSIBus=0;SCSILogicalUnit=1;SCSIPort=2;SCSITargetId=0;Status=OK
SCSIBus=0;SCSILogicalUnit=2;SCSIPort=2;SCSITargetId=0;Status=OK
SCSIBus=0;SCSILogicalUnit=3;SCSIPort=2;SCSITargetId=0;Status=OK
SCSIBus=0;SCSILogicalUnit=4;SCSIPort=2;SCSITargetId=0;Status=OK
SCSIBus=0;SCSILogicalUnit=43;SCSIPort=2;SCSITargetId=0;Status=OK
SCSIBus=0;SCSILogicalUnit=44;SCSIPort=2;SCSITargetId=0;Status=OK
SCSIBus=0;SCSILogicalUnit=45;SCSIPort=2;SCSITargetId=0;Status=OK
SCSIBus=0;SCSILogicalUnit=46;SCSIPort=2;SCSITargetId=0;Status=OK

«Stringlist_LUN» содержит такие данные, как:

  LocationInformation    REG_SZ    Port(2,2,3,3) Bus 0, Target ID 0, LUN 67
;
    LocationInformation    REG_SZ    Port(2,2,3,3) Bus 0, Target ID 0, LUN 43
;
    LocationInformation    REG_SZ    Port(2,2,3,3) Bus 0, Target ID 0, LUN 44
;
    LocationInformation    REG_SZ    Port(2,2,3,3) Bus 0, Target ID 0, LUN 45
;
    LocationInformation    REG_SZ    Port(2,2,3,3) Bus 0, Target ID 0, LUN 50
;
    LocationInformation    REG_SZ    Port(2,2,3,3) Bus 0, Target ID 0, LUN 51
;

Мне нужно сопоставить соответствие между значением «LUN» и значением «SCSILogicalUnit» (LUN и SCSILogicalUnit имеют одно и то же значение Lun = SCSILogicalUnit), чтобы результат можно было прослушать в «Stringlist_result». Результат shoud выглядит

"SCSIBus=0;SCSILogicalUnit=46;SCSIPort=2;SCSITargetId=0;Status=OK =>>> LocationInformation    REG_SZ    Port(2,2,3,3) Bus 0, Target ID 0, LUN 46
;"

Я использую следующую функцию, но результат не согласован:

function stringlist_mmg_FastJoin(List1, List2: TStringList): TStringList;
var
  L1Idx, L2Idx,
  L1Max, L2Max: Integer;
  v: Integer;
begin
  // Create Result list, set it's min size
  Result := TStringList.Create;
  Result.Capacity := Max(List1.Count, List2.Count);
  // limits
  L1Idx := 0;
  L2Idx := 0;
  L1Max := List1.Count;
  L2Max := List2.Count;
  // forse sort
  List1.Sorted := True;
  List2.Sorted := True;

  // iterate
  while (L1Idx<L1Max) and (L2Idx<L2Max) do
  begin

if pos(extracttextbetween(List1[L1idx],'SCSILogicalUnit=',';'),List2[L2idx])>1  then


    begin
      Result.Add(List1[L1Idx]+' = '+List2[L2idx]);
      Inc(L1Idx);
      Inc(L2Idx);
    end

    else if v < 0 then                              // Add from List 1
    begin
      //Result.Add(List1[L1Idx]);
      Inc(L1Idx);
    end
    else // v > 0                                   // Add from List 2
    begin
      //Result.Add(List2[L2Idx]);
      Inc(L2Idx);
    end;
  end;
  // Add all remainders from second list
  while L2Idx < L2Max do
  begin
    //Result.Add(List2[L2Idx]);
    Inc(L2Idx);

  end;
  end;



stringlist_resultat:=Tstringlist.create;
stringlist_rezultat.addstrings(stringlist_mmg_FastJoin(Stringlist_SCSILogicalUnit,stringlist_LUN));

Результатом будет:

PNPDeviceID=MPIOSCSIBus=0;SCSILogicalUnit=67;SCSIPort=2;SCSITargetId=0;Status=OK =>>>     LocationInformation    REG_SZ    Port(2,2,3,3) Bus 0, Target ID 0, LUN 67
;

Когда я запускаю функцию, я получаю результат sigle.

Может кто-нибудь рассказать, что я делаю неправильно? Можно ли обрезать эту задачу без строкового списка?

Спасибо!

delphi,delphi-2010,tstringlist,

-2

Ответов: 1

1 принят
+50

Переименованный, чтобы просто присоединиться, не может требовать его быстро ..

function stringlist_mmg_Join(const LogicalUnitList, LUNList: TStringList): TStringList;
const NotFound = -1;

  function ExtractTextBetween(const Txt, StartTag, EndTag : string; out iValue : integer): Boolean;
  var
    value : string;
    iStartTag, iEndTag : integer;
  begin
    Result := False;

    iStartTag := Pos(StartTag, Txt);
    if (iStartTag = NotFound) then Exit;

    iEndTag := PosEx(EndTag, Txt, iStartTag);
    if (iEndTag = NotFound) then Exit;

    Inc(iStartTag, Length(StartTag));
    Value := MidStr(Txt, iStartTag, iEndTag-iStartTag);
    Result := TryStrToInt(Value, iValue);
  end;

var
  i, v, ix: Integer;
begin
  Result := TStringList.Create;

  // iterate, Parse and write Value as Object
  for i := 0 to LogicalUnitList.Count - 1 do begin
     If ExtractTextBetween(LogicalUnitList[i], 'SCSILogicalUnit=', ';', v) then begin
       LogicalUnitList.Objects[i] := Pointer(V+1);
     end;
  end;

  // iterate, Parse and write Value as Object
  for i := 0 to LUNList.Count - 1 do begin
     If ExtractTextBetween(LUNList[i] + ';', 'LUN ', ';', v) then begin
       LUNList.Objects[i] := Pointer(V+1);
     end;
  end;

  // Match
  for i := 0 to LogicalUnitList.Count - 1 do begin
    ix := LUNList.IndexOfObject(LogicalUnitList.Objects[i]);
    if (ix = NotFound) then Continue;
    Result.Add(LogicalUnitList[i] + '  =>>>' + LUNList[ix] + ';');
  end;
end;

Ouput:

SCSIBus=0;SCSILogicalUnit=43;SCSIPort=2;SCSITargetId=0;Status=OK  =>>>    LocationInformation    REG_SZ    Port(2,2,3,3) Bus 0, Target ID 0, LUN 43;
SCSIBus=0;SCSILogicalUnit=44;SCSIPort=2;SCSITargetId=0;Status=OK  =>>>    LocationInformation    REG_SZ    Port(2,2,3,3) Bus 0, Target ID 0, LUN 44;
SCSIBus=0;SCSILogicalUnit=45;SCSIPort=2;SCSITargetId=0;Status=OK  =>>>    LocationInformation    REG_SZ    Port(2,2,3,3) Bus 0, Target ID 0, LUN 45;
Дельфи, Дельфи-2010, TStringList,
Похожие вопросы
Яндекс.Метрика