サポート掲示板 (解決したのかしないのかご返事は忘れずに！)

EditorInsertが思い通りに動作しない 投稿者：ゆあさ

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

2014/10/27(Mon) 21:08:21 [No.4626]

name
e-mail
url
subject
comment

おなまえ	※必須
文字色	■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■
Ｅメール
subject	入力禁止
Title	入力禁止
Theme	入力禁止
タイトル	sage
URL	入力禁止
ＵＲＬ
メッセージ	手動改行強制改行図表モードメッセージには上記と同じURLを書き込まないで下さい > [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.
添付ファイル (1MBまで)
Exif情報
削除キー	(英数字で8文字以内)
プレビュー