WSH(・∀・)ｽﾚｯﾄﾞ!

1 名前：デフォルトの名無しさん [03/06/08 21:31] (　´ゝ`)　無ので立ててみた。 誰か詳しい情報ｷﾎﾞﾝﾇ 398 名前：デフォルトの名無しさん mailto:sage [2005/10/23(日) 00:13:40 ] 標準のinputbox自体では出来ないけど、 例えば末尾に"..."と入れたら入力補完するとか規則を決めて、 inputboxのの戻り値がright(,3)="..."だったら、補完リストから部分一致を検索して もう一度inputboxを表示するとかはできるだろうな 399 名前：397 mailto:sage [2005/10/23(日) 00:20:38 ] φ（．．）メモメモ．．． 400 名前：ハーピィ mailto:sage [2005/10/23(日) 23:12:32 ] E・∇・ﾖﾉｼ　＜400ｹﾞｯﾄ♫ 401 名前：デフォルトの名無しさん [2005/11/05(土) 10:18:19 ] モバイルでプログラム【NS BASIC/CE】 pc8.2ch.net/test/read.cgi/mobile/1012242798/ NSBASIC/CEはWSHを知ってるならほぼ使えるよ！ PDAであるWindowsCE上（実質シグマリやjornadaでないときついが。）でもデスクトップでも 開発が可能。 手のひらで自分の作ったアプリが動く喜び！最新Ver6.02は、EXE化されたものに好きな アイコンをつけられるのでほとんどスクリプトと分からない。 NS Basic/CEは、WindowsCEにRuntimeを導入してその上で動く。 最新のWM5にも対応しており､日本語版も出ているし､日本語サポートもいるので安心だ。 402 名前：デフォルトの名無しさん [2005/11/05(土) 10:19:38 ] よかったら購入してユーザーにならないか？　俺もユーザーになったばかりなんだ。 日本サポートに確認をしたんだが、WEBでユーザー登録していただいて、その後、日本語サポートに連絡を くれたら、無料Ver6（最新版）にアップデートできるそうだ。 FACTORY SABOT 501 Maritaimu 9-9 Higashimaikochou, Tarumi-ku, Kobe, Japan Phone(078)787-3602 Fax(078)787-3619 www.sabot.co.jp/ sales@sabot.co.jp MobilePLAZA 6-3-7-1F Sotokanda, Chiyoda-ku, Tokyo, 101-0021 Japan Tel 03-3834-0315 www.mobileplaza.co.jp/ で買える。ttp://www.nsbasic.com/ce/Japanese/ が公式なんだが DEMO版で試すことができるから、WSHのソースを貼り付けてみるといい。実質WSHだから。 シャープのW-ZERO3のCOMコントロールでPHSに信号を送り電話がかけられることがシャープより 確認が取れてるから今度出るWM5にも対応してる。 どだ？さみしいから仲間になってくれないか？NSBASICがほぼWSHというのを知らない人が 多いんで宣伝してすまそ 403 名前：デフォルトの名無しさん [2005/11/05(土) 10:26:28 ] あ、このWEBでユーザー登録して日本語サポートにメールくれたら 最新のをというのは Ver5を買っても、無料でユーザー登録した時点の最新Verアップが可能と言うことなんだ。 お前ら、wsh使ってますか? part5　にも貼ったので両方覗いてる人にはすまんかった 404 名前：デフォルトの名無しさん mailto:sage [2005/11/06(日) 10:42:40 ] 以前、H;/PCで、Embedded VBを少し使ってたけど、少しVBに似てるってだけで なかなか使いづらかった。コントロールの数が少なくて。 WSHよりも更に、機能が少ないんじゃないかって感じた。 NS BASICか‥、どうなんだろう、その実力はいかに‥ 405 名前：デフォルトの名無しさん mailto:sage [2005/11/07(月) 11:12:04 ] DEMO版があるよ。WSHのソースがほぼそのまま画面周りは修正しなくては行けないが 使えるのでソースぺたぺた貼り付けて動き具合を試してみてはいかがかな？ 国内ではほとんどユーザーがいないが、海外ではNSBASIC/CE掲示板は 思い切りにぎわってる。 まずPDAスペックがあがったため、そこそこのスピードで動くようになったのも 大きいと思う。 コントロールの数もかなり増え､WSHとほぼ同じように使える。 はっきり言ってVer3のころなどへぼかった。4、5、6になるにつれ進化していってる。 Palm版のNSBASICもそうなんだが、なんとか使えだしたのはどちらもVer4ぐらいから じゃないかな？ 俺も始めたばかりなんで少しでも仲間が欲しい。なにせWSH入門を読んでるレベルだからだ 406 名前：デフォルトの名無しさん mailto:sage [2005/11/23(水) 02:13:33 ] ﾎｼｭ 407 名前：デフォルトの名無しさん mailto:sage [2005/11/27(日) 19:13:55 ] Set objShell = WScript.CreateObject("WScript.Shell") colEventSource = objShell.RegRead("・・・・・・・・・") としてレジストリをしらべようと思っているのですが、 レジストリのフォルダ構造を調べるにはどうしたらよいのでしょうか？ （HKEY_CURRENT_USER\Software　の下に何が入っているか知りたいなど・・・） 知っているかたがいましたら教えてください。 408 名前：デフォルトの名無しさん mailto:sage [2005/11/27(日) 19:31:11 ] regedt32.exe regedit.exe 409 名前：デフォルトの名無しさん mailto:sage [2005/11/27(日) 19:48:12 ] >>407 WshShellのメソッドで出来ることは、値を読んだり書き換えたり消したりくらいで サブキーの列挙とかは出来ないので、キー構造を取得したければDynaCall使ってAPI呼ぶか、 自分でCOM作るかだな。 まあ作らなくても探せばあるかもしれないけど、この板の住人ならこの程度は作った方が早いだろ。 410 名前：デフォルトの名無しさん mailto:sage [2005/11/27(日) 19:52:04 ] ふつうWMI使う 411 名前：407 mailto:sage [2005/11/27(日) 20:49:32 ] >>409>>410 レスありがとうございます WMIを使って解決出来ました。DynaCallは面白いと思うので、何かのときに利用したいと思います。 （以下作ってみたスクリプト） Set Locator = WScript.CreateObject("WbemScripting.SWbemLocator") Set Service = Locator.ConnectServer("","root\default") Set Reg = Service.Get("StdRegProv") Reg.EnumKey &H80000001,"Software", SubKeys For Each Key In SubKeys WScript.Echo Key Next 412 名前：デフォルトの名無しさん mailto:sage [2005/11/29(火) 22:54:41 ] スクリプトそのものとは関係ないんですが、ちょっと困った現象が 起きているので誰か力を貸してください。 WScript.Echo "test" という１行だけのスクリプト(test.vbs)を作って、 コマンドプロンプト上で cscript //nologo test.vbs と実行します。すると、標準出力に test と当然出力されます。 そして処理は終わってるはずなんですが、 そのまま5-10秒くらいプロンプトに戻ってきてくれません。 何の後始末をしているのか知りませんが、＾Cも無視されます。 どのような原因が考えられるでしょうか。 413 名前：412 mailto:sage [2005/11/29(火) 23:10:31 ] 一応その他の情報を。 OSはWindows Server 2003 試したこと。 ・引数なしでcscriptを実行 使い方が表示されてすぐ戻ってきました。 ・エラーを含むスクリプトを実行 エラー情報が表示されて、5-10秒待たされます。 試そうとしていること ・JScriptのファイルを実行 ・正常に動くマシンとスクリプトエンジン/WSHのバージョンを比較してみる。 414 名前：デフォルトの名無しさん mailto:sage [2005/11/30(水) 02:39:03 ] cscript //nologo だけだったら？ 415 名前：デフォルトの名無しさん mailto:sage [2005/11/30(水) 22:04:13 ] >414 スクリプトファイルを指定しろといわれて終わります。 すぐ戻ってきます。 あきらめムードです。 416 名前：デフォルトの名無しさん mailto:sage [2005/11/30(水) 22:30:24 ] >>415 VMWareの体験版で素の状態を作ってみれば 自分で比較できるんじゃない？ メーカ製のリカバリディスクじゃなく windowsのインストールCDを持ってること前提だけど。 417 名前：デフォルトの名無しさん mailto:sage [2005/11/30(水) 23:07:08 ] >cscript test.vbs ---- 略 ---- Wiindows Script Host Version 5.6 ---- 略 ---- test > 1秒以内 418 名前：デフォルトの名無しさん mailto:sage [2005/11/30(水) 23:07:36 ] ↑一応 Server 2003 419 名前：デフォルトの名無しさん [2005/12/02(金) 00:24:38 ] 質問させてください。 ドラッグ＆ドロップでscriptが起動されたフォルダを取得するにはどのようにすればよいでしょうか？ 通常、scriptが起動されると fs.GetFolder(".") でカレントを拾えます。 しかしながら、スクリプトファイルに何かをドロップしてスクリプトを起動した場合 \Document and Settings\user がカレントになってしまいます。 きちんとスクリプトが置いてあるフォルダを取得したいのですが方法ありませんでしょうか？ 420 名前：デフォルトの名無しさん mailto:sage [2005/12/02(金) 01:11:42 ] >>419 WScript.ScriptFullNameからFile作ってParentFolderとか。 421 名前：デフォルトの名無しさん mailto:sage [2005/12/02(金) 01:53:08 ] >420 ファイル作る必要はないだろ。 WScript.ScriptFullNameはフルパス返すから ファイル名を取り除けば十分なんじゃない。 422 名前：デフォルトの名無しさん mailto:sage [2005/12/02(金) 03:59:28 ] > ファイル作る必要はないだろ。 必要性の問題じゃないだろ。 >>420もひとつの方法、>>421もひとつの方法。 WScript.ScriptFullNameからFSOのFileオブジェクトのParentFolderプロパティの値を得る>>420 WScript.ScriptFullNameからFSOのGetParentFolderNameメソッドの戻り値を得る WScript.ScriptFullNameから文字列操作関数や正規表現でファイル名を取り除く>>421 等々… 以後の処理でFSOを使わないなら文字列操作で切り出してもいいけど、FSO使うなら、 ここでParentFolderプロパティ、GetParentFolderNameメソッド等を使わない手は無いだろ。 逆にこの処理の為だけにFSO使ったってなんら問題ないし。 423 名前：デフォルトの名無しさん mailto:sage [2005/12/02(金) 07:14:20 ] >>422 HTAではVBSｃriptの仕様を受け継いでいるが、このどれかが使えなかったはず。 424 名前：デフォルトの名無しさん mailto:sage [2005/12/02(金) 18:20:23 ] >>423 WScript 425 名前：デフォルトの名無しさん mailto: [2005/12/03(土) 09:05:11 ] バッチファイルやWSHと言うと、こんなソフトがあるんだけど、 誰か使ってみてくれない？ ttp://www.vector.co.jp/soft/winnt/net/se381399.html メールにもJavaScriptが書けるらしい。 正直どうよ。 426 名前：デフォルトの名無しさん mailto:sage [2005/12/03(土) 09:10:25 ] >>425 糞ソフトのマルチ宣伝乙 427 名前：デフォルトの名無しさん mailto:sage [2005/12/03(土) 14:14:36 ] シェアウェアの宣伝かよ m9(^Д^)ﾌﾟｷﾞｬー つーかこんなもん、この板の住人が金払ってまで欲しがるとは思えないな フリーなら使うかも知れないけど、そうじゃなければ欲しけりゃ自分で作るって 428 名前：デフォルトの名無しさん mailto: [2005/12/03(土) 18:13:33 ] >>427 では、作ってください。 できればフリーで。 よろしくお願いします。 429 名前：デフォルトの名無しさん mailto:sage [2005/12/03(土) 18:33:23 ] 欲しけりゃ自分で作るが、 なんておまえのために作らなきゃならないの？ 俺が欲しくて作るなら、作った物は自分にとって益となるが 俺が欲しくもない物を、おまえのために作って俺に何の益がある？ つーか宣伝がバレて逆切れすんなよ m9(^Д^)ﾌﾟｷﾞｬー しかも宣伝だけでなく宣伝後の行動まで向こうと一緒で笑えるw まあ作者じゃないと口先だけで否定することは出来るけどな 430 名前：デフォルトの名無しさん mailto: [2005/12/03(土) 19:43:19 ] >>429 よくわからないけど、あなた何か勘違いしてません？ 431 名前：デフォルトの名無しさん [2005/12/03(土) 19:46:32 ] 425（´・ω・） ｶﾜｲｿｽ 432 名前：デフォルトの名無しさん mailto:sage [2005/12/03(土) 20:07:13 ] なんか哀れだな。 とりあえずメ欄のスペースは止めておけ。 433 名前：デフォルトの名無しさん mailto:sage [2005/12/03(土) 21:14:14 ] 何かもう一つのWSHスレッドでも暴れてますね、こいつ 434 名前：デフォルトの名無しさん mailto: [2005/12/03(土) 22:03:22 ] >>431-432 なぜ、同情されているのでしょうか？ 435 名前：デフォルトの名無しさん mailto:sage [2005/12/03(土) 22:13:16 ] 滑稽なピエロ成り下がってるから 436 名前：デフォルトの名無しさん mailto:sage [2005/12/03(土) 22:31:24 ] ちょーてきとーだけど、pythonで書いてみた(･∀･) #!/usr/local/bin/python import poplib, os M = poplib.POP3("pop3.mail.server") M.user("username") M.pass_("password") numMessages = len(M.list()[1]) for i in range(numMessages):   body = []   eoh = 0   for j in M.retr(i+1)[1]:     if eoh == 0:       if j == "":         eoh = 1       elif j[0:8].upper() == "SUBJECT:":         if j.find("This Is Script") == -1:           break     else:       body.append(j + "\n")   else:     M.dele(i+1)     f = open("tmp.py", "w")     f.writelines(body)     f.close()     os.system("python tmp.py") M.quit() 437 名前：デフォルトの名無しさん mailto:sage [2005/12/04(日) 07:25:01 ] >>436 ぶおっ！　pythonでそんなことまでできるのか！ WSHでメールを送るときはCDOを使わないといけないのに 438 名前：デフォルトの名無しさん mailto:sage [2005/12/04(日) 07:48:37 ] 自演乙 439 名前：デフォルトの名無しさん mailto:sage [2005/12/04(日) 17:52:42 ] ActivePythonやActivePerl入れて使うなら、これもWSHの仲間では？ 使ったことないけど。 440 名前：デフォルトの名無しさん mailto:sage [2005/12/09(金) 03:45:33 ] 標準的なWindows環境で実行できるのがWSHの魅力なのに 追加でインストールが必要な時点で興味がない。 441 名前：デフォルトの名無しさん mailto:sage [2005/12/09(金) 04:19:27 ] ( ﾟдﾟ)ﾎﾟｶｰﾝ 442 名前：デフォルトの名無しさん mailto:sage [2005/12/09(金) 04:35:54 ] >>440 ソフトのインストールすらできない代物でも使える場合があるのは確かに魅力だよな。 お陰で多少使えるようになった。 443 名前：デフォルトの名無しさん mailto:sage [2005/12/09(金) 05:55:33 ] ( ﾟдﾟ) 444 名前：デフォルトの名無しさん mailto:sage [2005/12/09(金) 07:30:03 ] > 標準的なWindows環境で実行できるのがWSHの魅力 激しく同意 > なのに 追加でインストールが必要な時点で興味がない。 激しく遺憾 標準環境で実行出来るってのは、自機以外で使ったり、 他人に渡したりするときのメリットでしょ。 そしてこれはwshの魅力の一面に過ぎない。 自機で使う分には、コンポーネントによる機能や言語の 拡張がしやすいという魅力を存分に味わおうよ。 445 名前：デフォルトの名無しさん mailto:sage [2005/12/09(金) 08:49:23 ] 標準機能だけでやるとするとwshからsendkeysでtelnet操作して telnetのログファイルを読み込んでごにょごにょするのか？ メール受信するとこまで書いてみたけどsendkeysでの操作はちょっといやんだな。 telnetはなぜか空行をログファイルに出力してくれないし。 446 名前：デフォルトの名無しさん mailto:sage [2005/12/09(金) 21:38:25 ] 442（´・ω・） ｶﾜｲｿｽ 447 名前：デフォルトの名無しさん mailto:sage [2005/12/09(金) 22:25:34 ] >>445 つWshScriptExec オブジェクト 448 名前：デフォルトの名無しさん mailto:sage [2005/12/10(土) 01:28:18 ] >>447 いやそれ機能しないよ。 449 名前：デフォルトの名無しさん mailto:sage [2005/12/10(土) 07:58:12 ] >>445 もうTeraTermとか、マクロを持っている通信ソフトに任せろYO 450 名前：デフォルトの名無しさん mailto:sage [2005/12/11(日) 01:22:51 ] ActivePerlはバイナリが扱えるのが大きいな。 python？布団はｼﾗﾈ 451 名前：デフォルトの名無しさん [2005/12/17(土) 10:03:42 ] WSHで作成したシェアウェアってあるの？ 452 名前：デフォルトの名無しさん mailto:sage [2005/12/17(土) 10:34:00 ] あるよ 453 名前：デフォルトの名無しさん mailto:sage [2005/12/20(火) 05:16:03 ] WSHはスクリプトを実行する環境であってそれを使って何かを作成するわけじゃない 454 名前：デフォルトの名無しさん [2005/12/24(土) 10:26:03 ] WindowsAPIのSendMessage関数を利用してWM_COPYDATAメッセージを用いて 目的のウィンドウにデータを飛ばす方法はあるでしょうか・・ 検索して、DLLファイル（この場合、user32.dll?）を利用する方法があるらしいとは判明したのですが・・ homepage3.nifty.com/aya_js/wsh/wsh20.htm どうすればよいでしょうか。 指定ウィンドウにデータを渡すのに、上記以外にも良い方法がありましたら解説を伺えれば幸いです。 455 名前：デフォルトの名無しさん mailto:sage [2005/12/24(土) 11:15:21 ] >>454 そこにも｢DLLの一部の関数を使うことができます。｣と書いてある通り、 全ての関数がその方法で呼べる訳じゃない。 とりあえず引数に構造体を使う(ことがある)関数は呼べないと思った方がいい。 SendMessageを使いたければDynaCallなどを利用して関数を呼ぶとか SendMessage関数を呼べるCOMを導入するとかしな。 456 名前：デフォルトの名無しさん mailto:sage [2005/12/24(土) 11:25:07 ] >>455 ご回答ありがとうございます。 >とりあえず引数に構造体を使う(ことがある)関数は呼べないと思った方がいい。 そうなんですか。。 WSHの標準機能のみでは、その回避できない問題なのでしょうか。。 >SendMessageを使いたければDynaCallなどを利用して関数を呼ぶとか >SendMessage関数を呼べるCOMを導入するとかしな。 検索していると、DynaCallの文言を時々見かけました。 内容が記述されているところを探して見ます。 ありがとうございました。 457 名前：デフォルトの名無しさん [2005/12/24(土) 11:28:18 ] run()やexec()を用いてアプリケーションを起動する時に、 アプリへの引数に文字数制限はあるのでしょうか？ 458 名前：デフォルトの名無しさん mailto:sage [2005/12/24(土) 11:33:06 ] >>457 WSHとは関係ない普通のコマンドラインの制限だけだろ。 459 名前：デフォルトの名無しさん mailto:sage [2005/12/25(日) 02:41:44 ] 255 460 名前：デフォルトの名無しさん [2006/01/06(金) 23:26:34 ] VBSでMSIEのCOMを使用した際の、質問をさせてください。 OSはWindows2000 SP4で、使用したのはWSH ver5.6です documentオブジェクトからallコレクションを取得したいのですが document内でname=allを使用したエレメントがあるため document.all で allコレクションではなくて そのエレメントが取得されてしまいます 最終的にdocument.all.tagsが使いたいのですが document.all以外の方法で 全エレメントのコレクションを取得する方法はありますか？ 質問スレが見当たらなかったのですが もっと適切なスレがあれば教えてください。 よろしくお願いいたします。 461 名前：デフォルトの名無しさん mailto:sage [2006/01/07(土) 00:36:51 ] >>460 これじゃ代わりにはならない？ ttp://msdn.microsoft.com/workshop/author/dhtml/reference/methods/item_9.asp 462 名前：460 [2006/01/07(土) 01:11:27 ] >>461 リンク先を読んだところ、childnodesを辿ればできそうです。 ありがとうございました！ 463 名前：デフォルトの名無しさん [2006/01/09(月) 17:17:09 ] WSHのいい開発環境が何かあれば、教えてください。 464 名前：デフォルトの名無しさん mailto:sage [2006/01/09(月) 17:26:29 ] メモ帳最強 465 名前：デフォルトの名無しさん mailto:sage [2006/01/09(月) 17:38:28 ] >>463 おまえが実際に使ってみて"いい開発環境"だと思った物が おまえにとって"いい開発環境"だ。 俺にとって（･∀･）ｲｲ!!ものが､おまえにとっても（･∀･）ｲｲ!!ものだとは限らないので 具体的なソフト名は伏せておく。 466 名前：デフォルトの名無しさん [2006/01/09(月) 19:35:06 ] >>463 Microsoft Visual Web Developer 2005 Express Edition 467 名前：デフォルトの名無しさん mailto:sage [2006/01/09(月) 21:19:03 ] >>465 > おまえが実際に使ってみて"いい開発環境"だと思った物が > おまえにとって"いい開発環境"だ。 ダウト!! でしょ。 もっといい環境を知ってしまったら、それまでいい環境と思っ てたものが糞環境になってしまう。 っていう経験はしたことないのか？ まあ、後半は同意だが。 468 名前：デフォルトの名無しさん mailto:sage [2006/01/09(月) 22:05:14 ] ﾜﾛﾀw こんなｱﾌｫもいるのか 469 名前：デフォルトの名無しさん mailto:sage [2006/01/09(月) 23:28:02 ] 同意 470 名前：デフォルトの名無しさん mailto:sage [2006/01/09(月) 23:45:01 ] 救命胴衣 471 名前：デフォルトの名無しさん mailto:sage [2006/01/11(水) 08:07:39 ] これは救えない 472 名前：デフォルトの名無しさん mailto:sage [2006/01/11(水) 08:23:16 ] ホント､467みたいなバカってどこにでも居るのな 473 名前：デフォルトの名無しさん mailto:sage [2006/01/11(水) 08:31:37 ] 467は日本の恥。人間の屑。地球のゴミ。大宇宙の神秘。 474 名前：デフォルトの名無しさん mailto:467の人気に嫉妬sage [2006/01/11(水) 12:34:00 ] ヤバい。>>467ヤバい。まじでヤバイよ、マジ(r 475 名前：デフォルトの名無しさん mailto:sage [2006/01/13(金) 08:59:53 ] 自然数 N が与えられたとき、 1 から N までの数字を N 個並べる組み合わせをすべて 列挙するプログラムは WSH で書くとどうなりますか？ 例えば N = 3 のとき 1 2 3 1 3 2 2 1 3 2 3 1 3 1 2 3 2 1 となるようにです。 よろしくおながいします。 476 名前：デフォルトの名無しさん mailto:sage [2006/01/13(金) 09:07:30 ] >>475 何処ににどう並べたいのか知らないけど 普通に乱数使ってやればいいだけの話 それが解らないようだとこの板にくるのは30分早い まあ､頭のデキ次第では｢数年早い｣かもしれないがな 予備知識が無くたって､並の知能を持ってれば この程度のことは30分も調べればわかる 477 名前：デフォルトの名無しさん mailto:sage [2006/01/13(金) 09:50:03 ] >>476 組み合わせをすべて列挙するのに乱数要るのか・・・？ 478 名前：デフォルトの名無しさん mailto:sage [2006/01/13(金) 10:05:26 ] ごめん､別スレで煮た質問有ったんで勘違いしてた 乱数じゃなくて二進数だな どっちにしろわけないものだがな 479 名前：デフォルトの名無しさん mailto:sage [2006/01/13(金) 10:07:09 ] >475 順列を全て書き出したいって事？ 「順列 アルゴリズム」で検索すればいろいろヒットすると思うが。 WSHにこだわらなければ↓とか。 www.vector.co.jp/soft/winnt/util/se328853.html 480 名前：デフォルトの名無しさん mailto:sage [2006/01/13(金) 12:11:13 ] では >>478 のプログラムを拝見しましょうか。 481 名前：デフォルトの名無しさん mailto:sage [2006/01/13(金) 12:18:48 ] で? 482 名前：デフォルトの名無しさん [2006/01/13(金) 12:49:44 ] 定期的に起動するVBSを書いています。 VBSの中でMSIEのCOMを使用してIEを開いているのですが、 その時にウインドウのフォーカス（？）がとられてしまいます。 これを回避する方法はないでしょうか？ OSはWindowsXP SP2です。 Dim objIE Set objIE = CreateObject("InternetExplorer.application") objIE.Offline = true objIE.Navigate LoginURL Do While objIE.Busy = True Loop Do While objIE.readyState <> "4" Loop 483 名前：デフォルトの名無しさん mailto:sage [2006/01/13(金) 21:10:41 ] もう一度自分にフォーカスすればいいんじゃない？ 484 名前：デフォルトの名無しさん mailto:sage [2006/01/14(土) 05:27:28 ] Offlineである必要がどうしてもあるなら妥協せざるをえない 485 名前：デフォルトの名無しさん [2006/01/14(土) 15:12:49 ] >>479 糞ソフトの宣伝乙 486 名前：デフォルトの名無しさん mailto:sage [2006/01/14(土) 17:12:56 ] >475 基本をちゃんと理解しておけば後は簡単、パズルみたいなもんだ。 分からないところがあったら、こまめに教官に聞きに行け。 授業料払ってるんだから分かるまで何度でも聞きに行け。 487 名前：デフォルトの名無しさん mailto:sage [2006/01/14(土) 18:24:26 ] >>475 素直に組めばこんなもんかな Option Explicit Permutation 9 Private Sub Permutation(N) WScript.Stdout.WriteLine "N = " & CStr(N) Dim A(): ReDim A(N - 1) Dim I: For I = 0 To N - 1: A(I) = I + 1: Next PermutationSub A, 0, N - 1 End Sub Private Sub PermutationSub(A, N, M) If N <= M Then Dim I For I = N To M Swap A(N), A(I):PermutationSub A, N + 1, M: Swap A(N), A(I) Next Else WScript.Stdout.WriteLine Join(A, " ") End If End Sub Private Sub Swap(X, Y) Dim W: W = X: X = Y: Y = W End Sub うちの環境だと、N が 568 以上だとスタックオーバーフローするけどな。 488 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 09:04:37 ] 選択した文字を右クリックメニューからＷｅｂ検索するものを作る事は可能ですか。ＷＳＨで 489 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 09:21:14 ] > 選択した文字を右クリックメニューから どこで選択した文字を､何の右クリックメニューから検索したいのか知らないけど 選択した文字列をスクリプトで取得出来るならどうにでもなる。 ブラウザ上の右クリックとかなら簡単に出来るし。(具体的な方法はググれ) 490 名前：デフォルトの名無しさん [2006/01/20(金) 19:45:28 ] 何かいい方法がありませんでしょうか？ wshでVBScriptを動かし、 VBScriptのループ内でsqlplusを使用してinsertを繰り返し行いたいとします。 まずVBScriptの始めに Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.Run "sqlplus aaa/bbb@dbname" を行い、sqlplusを起動、DBコネクトを行います。 その後、sqlplusに対して、コマンド(insert文)を実行させたいのですが、 やり方がわかりません。 491 名前：デフォルトの名無しさん mailto:sage [2006/01/20(金) 19:52:11 ] オラクルの使い方はDB板で聞けよ。 492 名前：デフォルトの名無しさん [2006/01/20(金) 19:56:42 ] >>491 ＤＢ版で逆のことを言われました。 DBとは直接関係ないので質問の形式を変えます。 wshで起動したDOSプロンプトにコマンドを渡すやりかたはないですか？ 493 名前：デフォルトの名無しさん mailto:sage [2006/01/20(金) 19:58:35 ] だな wshと言うより､VB構文+DBって感じだし 494 名前：デフォルトの名無しさん mailto:sage [2006/01/20(金) 20:05:34 ] >>490 sqlplus xxx/xxx@xxx < ファイル とリダイレクトを使うか、 sqlplus xxx/xxx@xxx @ファイル でコマンドをわたせる。 どっちにしろいったん中間ファイルに書き出す必要がある。 495 名前：デフォルトの名無しさん [2006/01/20(金) 20:12:47 ] >>494 １つのファイルを読み込んで、INSERTを何回も行う仕様なんですよ。 でもSQLローダーではできないんですよ（ちょっとファイル形式が複雑で）。 で、PL/SQLも仕様できない（DBサーバー上にファイルがあるわけではないので）。 なので、VBScriptでファイルを読んで、SQL部分はsqlplus経由で行おうとしてます。 sqlplus使わないでODBCでやるなら簡単なんですけど、事情があって、sqlplus経由でやりたい。 INSERT一回ごとにコネクト開閉するわけにもいかないし、 一旦コネクトしておいて、そこで何度もSQL実行できればいいのですが。。。 496 名前：デフォルトの名無しさん mailto:sage [2006/01/20(金) 20:33:32 ] >>495 標準入出力をスクリプトから制御したいならこの辺だな。 ttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wslrfexecmethod.asp 497 名前：デフォルトの名無しさん mailto:sage [2006/01/21(土) 11:36:37 ] ↓のように１行ごとにInsert発行せずに 　insert into t1(col1, col2, col3) values ('A', 'B', 'C')　実行 　insert into t1(col1, col2, col3) values ('D', 'E', 'F')　実行 １回の実行で複数件Insertした方がいいのでは？ 　insert into t1(col1, col2, col3) 　select 'A', 'B', 'C' from dual union all 　select 'D', 'E', 'F' from dual　実行 498 名前：デフォルトの名無しさん mailto:sage [2006/01/21(土) 12:12:34 ] >>497 すでにWSHは何の関係もないね。 ついでなんで答えると無名プロシージャでまとめて送るのが普通。 他のDBでも複数の命令をまとめて送るバッチ送信モードがあるから探してみたらいい。 sqlplus やldrの使い方はoracleスレにいってね。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef