[No.4221] Re: M01挿入 投稿者：管理人 投稿日:2013/12/06(Fri) 10:18:21

にあるスクリプト[AddM01.PAS]を参考に

M01を行の末尾に追加するのではなく
次の行に追加するスクリプトを作りたいのですが、最後の2行がうまくいきません。

for i:=1 to leng do
の i と leng の値を +1できなかったので
while i < leng do に変更して
i と leng の値を +1しています。
この方法はよくないのでしょうか。

どうすればよいのかわからないので教えてもらえないでしょうか。

Program NcReplaceTest;
var
i, leng : integer;
s : string;

begin // エディタにNCデータを準備しておいて下さい。

leng := EditorLength(); // エディタの行数を取得する
i:=0;
while i < leng do
begin
inc(i);
s := EditorRead(i);
if Length(s) < 1 then continue;

if Pos('G73', s) < 1 then continue;

EditorInsert(i+1, 'M01');
inc(i);
inc(leng);
end;

End.