Offtop

[ОльгаМ]

А в Навижн не проще?
j := ‘0’;

……
j := INCSTR(j);
TempA := XlWorkSheet.Range(‘A’+j).VALUE + ‘,X’;
TempB := XlWorkSheet.Range(‘B’+j).VALUE + ‘,X’;
TempC := XlWorkSheet.Range(‘C’+j).VALUE + ‘,X’;
TempD := ‘,’;
k := 0;
tText := ‘’;
WHILE tText <> ‘X’ DO BEGIN
k += 1;
tText := SELECTSTR(k, TempA);
IF STRPOS(TempD,’,’+ tText+’,’) = 0 THEN
TempD := TempD + tText+’,’;
END;
k := 0;
tText := ‘’;
WHILE tText <> ‘X’ DO BEGIN
k += 1;
tText := SELECTSTR(k, TempB);
IF STRPOS(TempD,’,’+ tText+’,’) = 0 THEN
TempD := TempD + tText+’,’;
END;
k := 0;
tText := ‘’;
WHILE tText <> ‘X’ DO BEGIN
k += 1;
tText := SELECTSTR(k, TempC);
IF STRPOS(TempD,’,’+ tText+’,’) = 0 THEN
TempD := TempD + tText+’,’;
END;
TempD := DELCHR(TempD,’<>’,’,’);
XlWorkSheet.Range(‘D’+j).VALUE := TempD;