ラベル ScriptMakerMS.fmx の投稿を表示しています。 すべての投稿を表示
ラベル ScriptMakerMS.fmx の投稿を表示しています。 すべての投稿を表示

2012年8月17日金曜日

FileMaker + Internet Explorer Google翻訳、郵便番号から住所、amzonで検索



FileMaker で Internet Explorer を操作し、
Google Translateで翻訳結果を取得。
http://qbxxdp.blogspot.jp/2012/08/google-translate-filemaker.html
郵便番号から住所を取得。
http://qbxxdp.blogspot.jp/2012/08/filemakerinternet-explorer.html
amazonで検索し、商品情報を取得。
http://qbxxdp.blogspot.jp/2012/08/amazon-filemaker.html

要プラグイン
ScriptMakerMS
https://sites.google.com/site/scriptmakerms/scriptmakerms

要カスタム関数
WFM.fp7(ファイル内)
https://sites.google.com/site/scriptmakerms/scriptmakerms/web-scraping

動作環境
OS:Xp , 7
FileMaker 11

2012年8月10日金曜日

Google Translateで翻訳 + FileMaker

カスタム関数「Navigate_CreateObject 」を変更
Navigate_Create ( url ; visible )
名前を短縮して"visible"を追加。

例:
Navigate_Create ( http://translate.google.co.jp/#ja/en/ ; 0 )
visible=
表 示 : true
非表示 : false
表 示 : 1
非表示 : 0


要プラグイン
ScriptMakerMS
https://sites.google.com/site/scriptmakerms/scriptmakerms 

要カスタム関数
WFM.fp7(ファイル内)
https://sites.google.com/site/scriptmakerms/scriptmakerms/web-scraping 

動作環境
OS:Xp , 7
FileMaker 11

スクリプト名:GoogleTranslate(source)
{

変数を設定 [$source; 値:Get(スクリプト引数)]
レイアウト切り替え [「GoogleTranslate」 (GoogleTranslate)]
#Internet Explorerを探す
変数を設定 [$er; 値:Set_ie]
#Internet Explorerがない、または、Google Translateが開いていない場合、Google Translateへ移動
If [IsEmpty ( $er ) or PatternCount ( $er ; "http://translate.google.co.jp/#ja/en/" ) = 0]
変数を設定 [$er; 値:Navigate_Create ( "http://translate.google.co.jp/#ja/en/" ; 1)]
End If
変数を設定 [$er; 値:Wait4ie]
#結果の文字列をカラにする
変数を設定 [$er; 値:SetinnerTextById("result_box" ; "" )]
#翻訳したい文字を入力
変数を設定 [$er; 値:SetinnerTextById("source"; $source )]
#[翻訳ボタン]をクリック //通常は要らない
変数を設定 [$er; 値:ClickById("gt-submit") //[翻訳ボタン]をクリック //通常は要らない]
スクリプト一時停止/続行 [間隔(秒): 1]
#結果を取得
変数を設定 [$Result; 値:GetById ( "result_box"    ; "innerText" )]
変数を設定 [$n; 値:1]
Loop
Exit Loop If [ not IsEmpty ( $Result ) or $n>10]
変数を設定 [$Result; 値:GetById ( "result_box"    ; "innerText" )]
スクリプト一時停止/続行 [間隔(秒): 1]
変数を設定 [$n; 値:$n+1]
End Loop
フィールド設定 [GoogleTranslate::result_box; $Result]
現在のスクリプト終了 [結果: $Result]
}

変数を設定 [$er; 値:Navigate_Create ( "http://translate.google.co.jp/#ja/en/" ; 1)]
この部分のを
変数を設定 [$er; 値:Navigate_Create ( "http://translate.google.co.jp/#ja/en/" ; 0)] 
にするとInternet Explorerが表示されないのでFileMakerで翻訳をしているように見せかける事が出来ます。

Internet Explorerを隠している場合は、バックグラウンドで開きっぱなしになるので
iiil_Exe("ie.Quit();")
で終了する必要があります。

2012年8月8日水曜日

FileMakerからInternet Explorerを操作して郵便番号から住所を取得

FileMakerからInternet Explorerを操作して郵便番号から住所を取得!

カスタム関数「GetByClassName」を作ったので class="data" とかなっているタグのテキストの取得がカンタンになりました。


郵便番号検索 - 日本郵便 : http://www.post.japanpost.jp/zipcode/index.html
から郵便番号で検索して住所を取得します。

スクリプト名:GET郵便番号から住所(郵便番号)

変数を設定 [$zip; 値:Get(スクリプト引数)]
変数を設定 [$er; 値:Navigate_CreateObject ( "http://www.post.japanpost.jp/cgi-zip/zipcode.php?zip="  & $zip)]
変数を設定 [$er; 値:Wait4ie]
変数を設定 [$郵便番号; 値:GetByClassName ( "data" ; 0 ; "innerText" )]
変数を設定 [$都道府県; 値:GetByClassName ( "data" ; 1 ; "innerText" )]
変数を設定 [$市区町村; 値:GetByClassName ( "data" ; 2 ; "innerText" )]
変数を設定 [$町域; 値:GetByClassName ( "data" ; 3 ; "innerText" )]


「Navigate_CreateObject 」「GetByClassName」は、カスタム関数

要プラグイン
ScriptMakerMS
https://sites.google.com/site/scriptmakerms/scriptmakerms

要カスタム関数
WFM.fp7(ファイル内)
https://sites.google.com/site/scriptmakerms/scriptmakerms/web-scraping

動作環境
OS:Xp , 7
FileMaker 11

2010年7月10日土曜日

[ScriptMakerMS]バージョンアップしました

[ScriptMakerMS]バージョンアップしました。

http://sites.google.com/site/scriptmakerms/download-1
(ScriptMakerMS_b1_1.zip)

DOSコマンド実行関数を追加

iiil_DOScmd( command )
command="cscript c:\test.vbs //nologo"

DOS窓なしで外部WSH実行OKです。

未だBETA版です。よかったらBETAテストにご協力ください。

2010年4月23日金曜日

[ScriptMakerMS.fmx]専用WEBページ作成

ScriptMakerMS 

FileMaker Plugin for Windows

ファイルメーカーのフィールドに記述した、VBScript または、JScript を実行し、戻り値を取得。

ScriptMakerMS.fmx 専用WEBページ
http://sites.google.com/site/scriptmakerms/

2010年4月9日金曜日

ScriptMakerMS.fmx VBScript または、JScript を実行し戻り値を取得。

ファイルメーカー プラグイン
ScriptMakerMS version alpha

VBScript または、JScript を実行し戻り値を取得。

ダウンロード
(Excel 2003と連携サンプル同梱)

関数:
iiil_Create( "vbscript" )/* vbscript or jscript、空欄=破棄 */
vbscript または、 jscript を指定

iiil_Exe( Script )/* 戻り値なしのスクリプト */
戻り値なしのスクリプトを実行 または、設定。

iiil_eval( Script )/* 値を取得 */
値を取得するスクリプト(式)を入力し、戻り値を得る。



使用例

フィールド設定 [ TEST::er ; iiil_Create( "vbscript" )] - - - - - vbscriptを指定し、スクリプト実行の準備

ファイルメーカーのフィールド 値(フィールド名:Exe_Script)
//ここから
Function Test(strng)
  Test = strng & " です。"
End Function
//ここまで
フィールド設定 [ TEST::er ; iiil_Exe( フィールド名:Exe_Script )]  - - - - - Function を設定

ファイルメーカーのフィールド 値(フィールド名:Eval_Script)
//ここから
Test("ABC")
//ここまで
フィールド設定 [ TEST::戻り値; iiil_Exe( フィールド名:Eval_Script )]  - - - - - Test("ABC")を実行。

戻り値= ABC です。

フィールド設定 [ TEST::er ; iiil_Create( "" )]  - - - - - ""(空欄)を指定し、スクリプトをメモリ上から破棄。

※注意! WSH (Windows Script Host)で実行ではないので、「WScript(WScript.Sleepなど)」は利用できません。