[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.