DMonkey

JavaScriptライクなスクリプト実行環境
本来はDelphiアプリ組み込み用だが、スクリプトホストも公開されている

ProjectDMonkey
http://sourceforge.jp/projects/dmonkey

関連
VxEditor & DMonkey布教ページ
ttp://lukewarm.s41.xrea.com/

結構使えると思うのだがスレがないのでたてた

そんなことよりVxEditorのスレ立て直してくれよ

布教ページのスクリプト使ってる人いる?

「ぬるさんですか？」ってのを覚えている人いる？

今の2chでその話はやばいよ

TJHTTPObject.DoResponse()でプロトコルエラーの場合でもヘッダを取得するよう修正
Strings.caseSensitive .duplicates
なんかきたよ
0.3.6 - Change Log
regexpr.pasをver0.952に
StringBuffer.indexOf() .lastIndexOf() .slice() .substr()
StringBuffer.substring()を修正
VCLListView.ItemIndex
Dialog.filters
ecma_type.Get/SetDefaultPropertyでChar型を扱えるよう修正
@VERSION7適用時にfor..inでアクセス違反が起こることがあったのを修正
File,Directoryの一部メソッドが引数をとれるように
(省略時は今まで通りfilename,dirnameプロパティの文字列が対象)
Keyboard.isDown()に仮想キーコードを渡せるように変更
TJRegExpObject.ToString()
正規表現リテラルがecma_type.AsString(),TypeOf()で返す値を変更
String.charCodeAt() .fromCharCode()を2バイト文字も扱えるように
Struct.clear() .define()
Number.toString()で8進数にも変換できるように

IDがVCLだた

みんな始末されたのか

テキストエディタJmEditorスレ
http://pc8.2ch.net/test/read.cgi/software/1086788039/

こっちネタ振ればよかったんじゃないの？
Vxスレは落ちたまま続きは需要無いし。

ある程度話題が続いてからDMonkeyで独立させればスムーズだったのにね。

0.3.6.1
Object.getKeys() .getMethods() .getProperties() の修正

大学のプログラムを作る課題でDMonkeyを使ってるのは俺だけだろう。

こんなスレがあったとは・・・。

開発者増えないかなあ・・・とボヤいてみる。

バージョンうｐｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ｯ !!

なんだか最近活発だなぁ。
でも相変わらず良くわかんないタイミングで落ちる。
俺の書いたスクリプトが悪いと思いたい。

>>15
落ちるトコだけでいいんで晒してもらえないでしょうか？

DMonkeyでGUI作るときの詳しい解説がほしいな。
VCLのリファレンスが丸投げなのはしょうがないとして、
書き方とかの説明が少なくてサンプルソース読み解くしかない感じ。

１．メインフォームを作る
main = new VCLForm(true);

２．子コントロールを載せる
child1 = new VCLxxx(main);
．．．
childn = new VCLxxx(main);

３．イベントハンドラを書く
function eventfunc(sender){ }

４．イベントハンドラをイベントに関連付け
child.onxxx = eventfunc;

５．メインフォーム表示
main.show()

６．イベントループ開始
eventLoop();

これ以上書き様がない気が・・・。
VCLの説明は端折って詳しく解説ってのはイメージが沸かないんですけど。

布教ページにDelphiで作ったフォームを読み込むスクリプトを作るスクリプトがあったはず

>>18
初心者というか自称中級者には難しいお話なんですよ(＾ω＾；)

またｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!

0.3.9.1age

なんで突然活発になったの？

暖かくなって活性が上がったんだろう。

Luaはム板なのになぜDMonkeyはこっちなんだろう

保

s = "。\n（";

↑このsから改行を消す良い方法があれば教えてください。

どうも２バイト文字があるとだめみたいで、
s = s.replace(/\n/g, "");
println(s);
がだめでした。また

sb = new StringBufffer(s);
for (i in sb) {
　if (sb[i] == "\n") {
　}
}
s = sb.toString();
という方法も思いついたのですが、\n == 0x0d0a なので？これもだめでした。

以下で解決しました。
s = "。\n（";
sl = new Strings(s);
s = '';
for (i in sl) {
s = s + sl[i];
}
println(s);

Wolfyさんはもう出てこないんでしょうかね・・・。

こういう方法もあるよ

s = "。\n（";
sl = new Strings(s);
s = sl.toString('');
println(s);

おぉぉ？textプロパティと同じかと思ったら違うんですね
しかもヘルプには書いてないのでStringsにtoStringがあるとは知りませんでした
どうもです。

>>30
toStringメソッドはObjectオブジェクトの持つメソッドなんですべてのオブジェクトに存在します。
StringsのtoStringメソッドはArrayオブジェクトのjoinメソッドに近いです。

さらに縮めるとこれでもいいかもわからんね
s = "。\n(";
s = new Strings(s).toString();
println(s);

>>27
ん？家の環境だと正常に動くよ。DMonkey最新版

自分の使ってるバージョンははっきり明記するほうがいいぞ。
「最新版」とか曖昧な表現はするべきではない。

俺んとこでも動く
XP / dmsh 0.3.9.1

>>34
すまんかった。

VxEditor更新してくれんかのお

保

守

護

無理だつなげられん。
ｽﾏｿ････い・・・く・・・・・・

イベントハンドラ内でthisを参照したいんだけど、何かいい方法ないすか。
http://d.hatena.ne.jp/higepon/20050901/1125555797
の方法はDMonkeyじゃ使えないっぽい。

>>42
>>1のリンクは見たか？何がしたいか分からないが、thisは参照できるぞ。

class MyForm extends VCLForm {
var memo;
function MyForm() {
this.borderIcons = '[biSystemMenu, biMaximize]';
memo = new VCLMemo( this );
memo.align = 'alClient';
memo.onMouseMove = memo_onMouseMove;
}
function memo_onMouseMove(sender, shift, x, y) {
memo.text = 'x = ' + x + ', y = ' + y + "\n";
memo.text += this;
}
}

frm = new MyForm(true);
frm.show();
eventLoop();

クロージャのthisは特殊だが。

frm = new VCLForm(true);
frm.borderIcons = '[biSystemMenu, biMaximize]';
memo = new VCLMemo(frm);
memo.align = 'alClient';

memo.onMouseMove = function(sender, shift, x, y){
memo.text = 'x = ' + x + ', y = ' + y + "\n";
try {
o = this;
for( i=0; i<10; i++ ){
memo.text += o;
o = o.parent;
}
} catch( e ) {}
};

frm.onClose = function() { terminate(); };

frm.show();
eventLoop();

サイト巡回スクリプトの質問はこちらでいいでしょうか？

大手5紙＋主要キー局のサイトを巡回してニュースを取り込み、
Winnyのキーワードを含んだニュースをすべてローカルに保存しようと思っているのですが、
やりかたが分からないもので。

一応Delphiで簡単なDBアプリぐらいまでは作れます。

もし他に質問できる適切なところがありましたら誘導してください。
布教所は今年の発言も無かったもので・・・

>>45
どこまでわかんないのかわかんないからどうこたえたらいいかわかんない

>>46
レスありがとうございます。

しょっぱなから分からないっす。
どこか一つのサイトを巡回させるまでを解説しているサイトか何かありましたら教えてください。

>>47
doc読んだの？
サンプルだっていっぱいついてるし

>>48
DOCフォルダの中はすべて読みました。
でも例えばsite_ini_sample.txtの最初に
>[Check]
KeyWord=

>NGWord=

>EmWord=
>
Interval=
>
IntervalUpdated=
>
#個別設定。キーが存在しない場合は全体の設定が継承される

とありますが、例えばEmWordが何であるかとかの解説がどこにも無いんですよ。

何かどこかのサイトを巡回するまでのすべての設定方法があれば試行錯誤できるのですが。

>>49
mkhl_ini_sample.txtの内容と重複してるから書かれてないだけだよ。
それからsiteフォルダのなかに大量のサンプルがあるから見てごらん。

>.50
レスありがとうございます。
例えばimpressのPC関係を巡回したいときはimpress_pc.iniを使えばいいことまでは
分かるのですが、これをどこでどのように指定し、巡回させるにはどうすればいいのでしょうか？

>>51
editlist.dmsを実行すればGUIで簡単に操作できる
あとはmkhl.dmsxへコマンドラインで指定すればよろし

いちいちレスするの面倒くさいんで、質問をまとめてから来てくれると嬉しいんだけどな

１問１答スレになってる・・・

>>52
ありがとうございます。
色々とやってみてまた分からないことがあったら質問させていただきます。

*.iniファイルができたら布教サイトのロダにでもうｐしてね。

サイト巡回スクリプトのスレ
ttp://lukewarm.s41.xrea.com/test/read.cgi/bbs/1077568963/
一応スレがある。

正規表現で「(?」は使えないですよね？

あとD5では
unit ecma_extobjectの
Strings.CaseSensitive

unit ecma_vclの
GetCustomListBox.ClearSelection
GetCustomListBox.SelectAll;
GetCustomListView.ItemIndex;
が使えないんで$IFしてもらえるとうれしっす

>>59
報告どもです。ウチはD6のみなんで助かります。

私だけでリリースするのはやっぱムリがありましたね・・・orz

問題ないっす。乙っす。

s = 'ソフト';
s.replace('ソ', '123');
がうまくいきません。
s.replace('フ', '123');
はうまくいきます。

ソは駄目文字だから。いったんUTF8にすればできるような。

DMonkey を習得するのに便利なサイトとかありませんかね？
ちなみにプログラミング暦はほぼ0です。
あとこんなスクリプトを書いてくれ〜とかは、ここではなしですか？

書いてみれば

JavaScriptの解説サイトが参考になる
Delphi覚えてソースを読めばさらに理解が深まりまする

レスどうもです。
>>65
えっと、2005-10-25.txt形式で今日の日付のファイルを作って欲しいんですよね。
すでにファイルがあればテキストエディタで開く機能とかも欲しいです。

>>66
JavaScript は Web 上で使う機能を解説したサイトが多いですね。
もっと探してみます。

DIR = 'C;\'; //保存ディレクトリ
date = new Date;
date.format="yyyy-mm-dd"; //ファイル名
filename = date.toString() + ".txt";

if(new File(DIR+filename).exists()){
new Win32.shellExecute("open", DIR + filename);
}else{
new Strings.saveToFile(DIR+filename);
}
//ないなら作るだけ、あるなら開くだけ

>>68
返事遅れてすみません。スクリプトありがとうございます。
.formatっていう便利なメソッド？(っていうんでしたっけ)があるんですね。
ヘルプとにらめっこしながら、解析してみます。

>>69
:と;間違えた。直しておいてね
×　DIR = 'C:\';
○　DIR = 'C:\';

RegExpr.pasの1533行目の
if scan1^ = scan2^
を
if (scan1^ = scan2^) and ((scan1 = s1) or not((scan1-1)^ in [#$81..#$9F, #$E0..#$EF]))
とするだけで対応できますた。

{$DEFINE UniCode}

自分でコンパイルしてる人ってどのくらいいるんだろ？

>>72
それをやるとめっさ遅くなるみたいです。

確かにRegExprのコメントにはそう書かれているけど
dmonkey全体の遅さにくらべれば無視できる
dmonkeyの中身は、例外の種類で分岐させたりかなり酷ス
仮想マシンにすると言ってから１年以上ほったらかし・・・

仮想マシンて情報処理試験のマシン語のあれですか？
それは面白そうですね。

>>75
そこまでしなくても２パスにして
１パス目でまとめて変数領域確保して
あとは参照するだけみたいにすればだいぶはやくならんかな。
それとも今でもそうなのかな。

おかげで完成しました。あんがとう。
http://www.geocities.jp/anzuttenaniyo/

RegExp.execの戻り値はRegExpでないと
個々の要素毎に$1とか使えないような気がするのですが
使い方間違ってるでしょうか。

Execの戻り値はBooleanでいいんだよ。
マッチした部分はプロパティでわかるんだから。

>>80
具体的にgオプションで複数の一致があるときにどうやってサブマッチ部分を知るのでしょうか？

>>81
replaceに関数を渡すやつでやるしかないんじゃない？

>>82
でしょ？戻り値がRegExpなら
res = re.exec
for (r in res) {
　println(r.$1);
}
ってできるしそれが普通だと思うのですけど。

つーかJScriptと挙動が違うわけで。バグっぽいな。

時間がたって申し訳ないですがいろいろとやってみたのですが、結局出来ないです。

例えばデフォルトの設定でCNNを巡回するときちんと読み込んでローカルにニュースのタイトルを保存してくれます。
ですが、特定のキーワードを含むニュースをタイトルだけでなく読み込んで保存することが出来ないです。
キーワードにフランス暴動などと入れても無視されてしまいます。

これはどうすればできるようになるのでしょうか？

すいません。>>85は>>45です。
よろしくお願いします。

＞一応Delphiで簡単なDBアプリぐらいまでは作れます。
って奴が一ヶ月かけてわからんかったのか？
それはちょっと。。本文の取得方法はdocフォルダの中の説明書に書いてあるよ。

本文を取りに行きたいときはsite_ini_sample.txtのGetArticleの通りにする。

GetArticleはforest.iniで使われてるんで、くわしくはそっち参照

[GetArticle]
p0=^.*(<h1>.*)<!-- ＣＮＮトップテキスト ６７文字以内（２行） ★ここから-->.*$
r0=$1

cnnの場合は、cnn.iniにこれを書き加える。
記事を囲ってるタグを見つけて記事をサブマッチにして
^.*と.*$で挟むのがテンプレートってことね。

>>90
h1のところをh1|liに変えたらきちんと動作しました。
ありがとうございました。

あと、これはKeywordにもandやnot検索使えますか？
例えば日産のキーワードを含むものは欲しいけどゴーンが含まれていたらいらないとか、
厚生のキーワードを含むものは欲しいけど、厚生労働省しかヒットしなかったら保存しないなどです。

う〜ん、Googleのクロール機能を使うかこれにするか悩む。。。
クロールを使うとニュースサイトをすべて保存することになるから容量は膨大になるけど、
ニュースはほぼすべて保存することができる。
これを使うと自分が指定したサイトしか巡回できないしサイトがリニューアルするたびに
自分で変更を加えないといけないけど少ない容量で目的のニュースを保存できる。

う〜ん、悩む。。。

>>91
> あと、これはKeywordにもandやnot検索使えますか？
やってみたらすぐわかるけど、できない。
ちょっとソースいじれば可能になる。

スレ落ちしちゃう？
初心者大歓迎！ってスレなら、質問しまくるんだけどなぁ。
結構むつかしそうな話してるから、無理か。

とりあえずしてみたら？

改心したから優しくするよ

>>92
どの辺をいじればいいのか教えてもらえないでしょうか？
これと、あと、タイトルだけじゃなくて本文も読んで本文に指定した文字列が含まれてたら保存するように
設定したいのですが、どうしてもできなくて・・・

DMonkey 0.3.5 の正規表現って (?=regexp) とか (?<=regexp) とかの
前や後ろに続く正規表現の指定には未対応？
秀丸で abCDefCDgh に .*CD(?=ef) をかけると abCD がマッチするけど
DMonkeyだと見つからないって言われる。

>>97
DMonkeyが使ってるのはこれだから
http://regexpstudio.com/
標準ではこれが持ってる機能しか使えない。

>>98
あー、たしかにコレでは使えないみたいね…了解。

半年でやっと100か

よっこいしょ。重いぞ。

http://cvs.sourceforge.jp/cgi-bin/viewcvs.cgi/dmonkey/dmonkey/?sortby=date#dirlist
９日前に少し変更があるみたい｡

>>102
http://www2.ezbbs.net/28/shobohn/

本体に添付されているテストコードのvcl.dmsを実行しても、
onCreateイベントが発生している形跡を見て取れないのは、
うちだけなのでしょうか？

あげとくか

捕手〜〜〜〜〜

メモソフト『Stickypaper』
ttp://pentacom.jp/pentacom/stickypaper.html
Stickypaperには、「D-monkey」 エンジンを使用したスクリプト機能が搭載されています。
この機能により、バイオリズムや占いをはじめ、RSSや天気予報やニュースやメールなど、ネットワークを介したダイナミックデータを表示させることができたりします。

あんど　あげ

DMonkeyってiriaの作者が作ったの？
通信プログラムに必要な機能が揃ってるってことかな？

ちがう

ほ

E・∇・ﾖﾉｼ　＜111ｹﾞｯﾄ♫

age

何やら変更があるみたい
http://cvs.sourceforge.jp/cgi-bin/viewcvs.cgi/dmonkey/dmonkey/?sortby=date#dirlist

おかしい
function TJKeyboard.DoIsDown(Param: TJValueList): TJValue;
//keyが押されているかどうか？
var
v: TJValue;
c: Char;
i: Integer;
isnot: Boolean;
begin
EmptyValue(Result);
for i := 0 to Param.Count - 1 do
begin
v := Param[i];
c := AsChar(@v);
isnot = AsInteger(@v);//ここ
if c = #0 then
Continue;
if (GetAsyncKeyState(Integer(c)) < 0) xor isnot then
Continue;
Result := BuildBool(False);
Exit;
end;
Result := BuildBool(True);
end;

開発者が増えたみたいだが、この人大丈夫なのかね

shobohnなんて名前ありがちだから、よくわかんないけど。

そっちじゃないだろ

干す

ほ

も

は

Delphi6PersonalSP2+Dmonkey0.3.9.1
の環境にて「スクリプト内の関数の戻り値をDelphiに返す」サンプルを実行する際に以下のエラーが出ます。

デバッガ例外が発生
プロジェクト Project1.exe が EJReturn クラスの例外を生成しました。
'return'
プロセスは停止しています。再開するにはステップ実行または実行を選択してください。

ecma_engine.pasをfix版の1.139、1.140、1.141と変更しましたが改善しません。
どのようにしたらCallFanctionが使えるようになるのでしょうか？
コードは以下のものです。よろしくお願いします。

procedure TForm1.Button1Click(Sender: TObject);
var
retval: TJValue;
begin
if DMS1.Compile('function f(a){ return(a) ;}') then
begin
DMS1.Run;
DMS1.CallFunction('f',['Hello DMonkey World'],retval);
ShowMessage(retval.vString);
end;
end;

>>122
そういう仕様だからだよ

デバッガオプション＞言語固有の例外にEJStatementを追加しる

>>123
二日間悩んだのにあっさり解決です。
ありがとうございました。

捕手

ＶＣＬフォームとかネットアクセスとか
必要な場合に組み込む形の方が軽くてよいと思います。

>>126
今でもできるけど

「エンドユーザーが動的に」ってことか？

ほ

し

う

め

す

test

test

ふむ

test