その他 Maxスクリプトはネットから文字を取得できるか？ 1

Maxスクリプトってネットから
テキストを取得できるのでしょうかね

とおもったので、
調べてみたら、マニュアルからこんなのが出てきた

マニュアルは

<<Internet Explorer の ActiveX コントロール>>

で、調べれば出てくると思う

まるコピだけど
コメント文だけついかしてみた

なんと、一応読み込もうと思えば
読み込むのである

この場合は、webサイトの<title>タグ（htmlソース）のテキスト内容を
取得し、テキストオブジェクトに適応するという内容

なるほどね

[as3]

rollout rWebpage “Web page”
(

 local txtObj
 –Maxのwindowサイズを取得
 local vpsz = getViewSize()
 –アクティブXコントロールを設定
 activeXControl ax “http://www.sakaiden.com/” height:(vpsz.y-50) width:(vpsz.x-200) align:#center

 
 –テキストを生成
 fn checkTextObject =
 (
 
  –テキストオブジェクトが無いならば
  if $text01 == undefined then
  (
   –テキストを生成
   txtObj = text text:”” name:”text01″
   –押し出しモディファイア追加
   addModifier txtObj (extrude amount:10)
   –テキストのワイヤーカラーを決定
   txtObj.wirecolor = red
  )else ( txtObj = $text01 )–if end
 )–end

 –開いた時にテキスト生成を実行
 on rWebpage open do ( checkTextObject() )
 
 –アクティブXコントロールのタイトルが変わったら
 on ax TitleChange txt do
 (
  –テキストを生成
  checkTextObject()
  –タイトルに http: が含まれていなければ
  if not (matchPattern txt pattern:”http:”) then
  ( 
   –テキストオブジェクトのテキストに変化があるか?
   if txtObj.text != text then
   (
   –一端プリント
   print txt;
   –テキストを代入
   txtObj.text = txt;
   –全オブジェクトを対象にズーム
   max tool zoomextents all;
   )–if end
  )–if end

 )–end

)–end rollout

–ロールアウト作成周り
fWebPage = newRolloutFloater “Web page” rWebpage.vpsz.x rWebpage.vpsz.y

addRollout rWebPage fWebPage
 

registerViewWindow fWebPage
showProperties rWebpage.ax

 [/as3]

まだ、試していないけど
これならば、特定のタグの内容も取ってこれるのだろうか？？

ほかにも、こちらの方法がネットから文字列を持ってこれそう
Maxスクリプトマニュアルでこちらの記事をごらんアレ

<< DotNet を使用した簡単な Web ブラウザの作成>>

<< HyperLink>>

<<拡張ビューポートとしてのインターネット ブラウザ コントロールにおける Excel スプレッドシート>>

<<MAXScript ロールアウト内の ActiveX コントロール>>

 エクセルなんかも読み込めるみたいだし、
ほかにも、ウェブからドロップアンドドラッグするような事も出来るみたい

特にテキストを読み込むならば
DotNetを使用した・・・の方がプロパティが多かった

これがあれば、スクリプト内を更新せずとも
webから文字列を取得して、半自動でテキスト内容が更新可能だぞ

たとえば・・・・
ツールの説明とか、

ツールのバージョンチェックとか
ツールを開いたときに、バージョンチェックをかけ
バージョンが低かった場合は、更新を促すメッセージを流すとか

まぁ、色々と使えるわけだな

今度もう少し実験してみよう

サンプルをマルパクだけどどうぞ

このサンプルスクリプトは
日本語を読み込むと文字化けします

ダウンロード:Maxのサンプルにコメントつけた