Програма по замене чисел в Ворде

[Alexander_]

Я так понимаю что проблема в том что в Мемо записывает весь текст подряд, а не выборочно. А что если вместо полей Мемо создать две переменные с которыми и организовать подпрограмму "Fine and Replace"?

[Iron Monk]

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

Я так понимаю что проблема в том что в Мемо записывает весь текст подряд, а не выборочно. А что если вместо полей Мемо создать две переменные с которыми и организовать подпрограмму "Fine and Replace"?

Всё не так. В Мемо, действительно, записывается весь текст подряд, но обрезается кусок строки с символом "]" и программа не выходит из цикла, пока не забьет память. Не влезают такие огромные строки.

[Alexander_]

Сообщение от Iron Monk

Всё не так. В Мемо, действительно, записывается весь текст подряд, но обрезается кусок строки с символом "]" и программа не выходит из цикла, пока не забьет память. Не влезают такие огромные строки.

Возможно ли редактировать программу под такие документы?

[Iron Monk]

Нужно подумать)))

[Alexander_]

Сообщение от Iron Monk

Нужно подумать)))

Возможно бред, но где-то слишал что в Мемо есть ограничение по символам, что если его заменить на ЛистБокс или уьрать вовсе?

[Iron Monk]

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

Возможно бред, но где-то слишал что в Мемо есть ограничение по символам, что если его заменить на ЛистБокс или уьрать вовсе?

Ок.

   //****************************//
   tmpString := TStringList.Create;
   ListBox1.Clear;
   ListBox2.Clear;
   ListBox1.Items.Append(WordApp.ActiveDocument.Range.Text);
   for i:=0 to  ListBox1.Count - 1 do
   begin
       tmp:= ListBox1.Items[i];
       while Pos('[', tmp) > 0 do
           begin
           delete(tmp, 1, Pos('[', tmp)-1);
           tmpString.Add(Copy(tmp, Pos('[', tmp),Pos(']', tmp)));
           delete(tmp, 1, Pos(']', tmp));
           end;
       end;
       ListBox1.Items.Assign(tmpString);
       for i:= 0 to ListBox1.Count - 1 do
       _pOpros(i);
   //****************************//

procedure TForm1._pOpros(var num: integer);
var
 s: AnsiString;
 s1, v: string;
 i, i1, M, N: integer;
 flg, fgl: boolean;
begin
 s:= ListBox1.Items[num];
 M:= StrToInt(Edit1.Text);
 s1:= '';
 flg:= false;
 i1:= 0;
 for i := 1 to Length(s) do
  begin
   s1:= s1 + s[i];
   if (s[i] = '[') or (s[i] = ';') then flg:= true;
   if flg then
    begin
     fgl := s[i+1] = ' ';
     if s[i] in ['0'..'9'] then inc(i1);
     if (not (s[i+1] in ['0'..'9'])) and (not fgl) then
      begin
       v:= Trim(Copy(s1, (Length(s1)-i1)+1, Length(s1)));
       flg:= false;
       if v <> '' then
         begin
          N:= StrToInt(v);
          if N > M then v:= IntToStr(N+1);
          if N = M then v:= 'Ы';
          if N < M then v:= IntToStr(N-1);
          Delete(s1, (Length(s1)-i1)+1, Length(s1));
          s1:= s1 + v;
          i1:= 0;
         end;
      end;
    end;
  end;
 ListBox2.Items.Add(s1);
 FindAndReplace(ListBox1.Items[num],ListBox2.Items[num]);
end;

function FindAndReplace(const FindText, ReplaceText: String):boolean;
const
wdReplaceAll = 2;
var
i, n: integer;
FT, RT: string;
begin
  i:=  Length(FindText) div 255;
  for n:= 0 to i do
  begin
  FT:= Copy(FindText ,n*255+1, 255);
  RT:= Copy(ReplaceText ,n*255+1, 255);
  WordApp.Selection.Find.Text := FT;
  WordApp.Selection.Find.Replacement.Text :=RT;
  FindAndReplace:= WordApp.Selection.Find.Execute(Replace:=wdReplaceAll);
  end;
end;

[Alexander_]

Iron Monk, да, теперь работает правильно и даже быстрее.
СПАСИБО!

[Iron Monk]

Пожалуйста)))