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

1 名前：デフォルトの名無しさん [2008/04/23(水) 20:00:50 ] (　´ゝ`)　誰か詳しい情報ｷﾎﾞﾝﾇ ●過去スレ WSH(・∀・)ｽﾚｯﾄﾞ! pc11.2ch.net/test/read.cgi/tech/1055075469/ WSH(・∀・)ｽﾚｯﾄﾞ! Part 2 pc11.2ch.net/test/read.cgi/tech/1176698934/ ●関連スレ お前ら、wsh使ってますか? Part7 pc11.2ch.net/test/read.cgi/win/1190548945/ HTAをもっと流行らせる計画 pc11.2ch.net/test/read.cgi/tech/1124559962/ ★WSHでCGI★JScriptVBScript pc11.2ch.net/test/read.cgi/php/1059745064/ ●公式サイト Windows Script www.microsoft.com/japan/msdn/scripting/ ●個人サイト Windows Scripting Host homepage3.nifty.com/aya_js/wsh/index.htm Windows Scripting Host Laboratory www.roy.hi-ho.ne.jp/mutaguchi/wsh/ Windows Script Wiki winscript.s41.xrea.com/wiki/index.php 376 名前：デフォルトの名無しさん mailto:sage [2008/10/23(木) 22:33:22 ] Windows Script Host の実行の失敗しました。（この操作を完了するのに十分な記憶域がありません。） ってエラーが出るのですがなんでしょうか？ある程度調べてみたのですが改善されませんでした。 どなたかご教授お願いします。 377 名前：デフォルトの名無しさん mailto:sage [2008/10/24(金) 14:18:54 ] >>376 ファイル名を変えろ or フルパスで指定しろ 378 名前：デフォルトの名無しさん mailto:sage [2008/10/24(金) 14:27:59 ] >フルパスで指定しろ だめ 379 名前：デフォルトの名無しさん mailto:sage [2008/10/24(金) 20:05:31 ] >>377,378 ありがとうございました 380 名前：デフォルトの名無しさん mailto:sagｅ [2008/10/30(木) 18:40:50 ] すみません。 プログラムの追加と削除やスタートメニューを見てインスコされているアプリの一覧を作りたいです。 教えて下さい。 381 名前：デフォルトの名無しさん mailto:sage [2008/10/30(木) 19:54:34 ] ttp://www.microsoft.com/japan/technet/scriptcenter/resources/wmifaq.mspx#EABAE 382 名前：デフォルトの名無しさん mailto:sage [2008/10/30(木) 19:57:47 ] dir /s /b c:\*.exe 383 名前：デフォルトの名無しさん mailto:sage [2008/10/30(木) 20:51:11 ] format c: 384 名前：３８０ mailto:sagｅ [2008/10/30(木) 22:30:06 ] すみません。真面目に訊いてるんですけど。。。 アプリの件は皆さんがふざけている間にPCViewっていうフリーソフトで事故怪傑しました。 その他にインスコされてるフォント名の一覧が欲しいです。 これが最後☆チャンスです。皆さんの役に立つとこ見せて下さい。 385 名前：デフォルトの名無しさん mailto:sage [2008/10/30(木) 22:36:55 ] >>384 おれは真面目に>>381って返したつもりなんだけどな。無視ですかそうですか。ちょっと泣けちゃう。フォント名の一覧？知るかばーか。 386 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 12:00:21 ] >>382 >>383 すれ違い >>384 フリーソフトさがせ 387 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 12:40:02 ] appwiz.cpl中のhtaで使ってるobjectは利用できないのかね？ 388 名前：３８０ mailto:sagｅ [2008/10/31(金) 13:12:23 ] >>385 こっちは教えてくれって頭下げてんですよ。>>381の一覧見てどうしろってんですか。 もったい付けてないでちゃちゃっとスプリクト教えてくれさえすれば良いだけなのに、 どうしてプログラムの人ってまともにコミュニケーション取れないのばかりなんだろう。 389 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 13:17:54 ] >>387 cplってhtaなん？ 390 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 13:55:55 ] >>388 お前馬鹿？ ソース書いてあるじゃん。 > >>381の一覧 一覧って書いてるところからして、もしかして手打ちでURL入れて最後の#以降を入れなかった せいでページの目次部分を見てるとか？ もしそうなら超バカかつ超失礼な奴だな。381にちゃんと謝っとけ！ 391 名前：３８０ mailto:sagｅ [2008/10/31(金) 14:42:27 ] はいはいｗ結局こんな簡単なスプリクトも組めないんですねお前らｗ言い訳乙 392 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 16:25:16 ] >>391 >>381の意味するところが分からないようなら自力では無理。 素直にコンパネ開いて手作業で写しなさい。あんたの場合それが一番早いやり方。 393 名前：３８０ mailto:sagｅ [2008/10/31(金) 17:32:26 ] もしも〜し？ 自力で何とかなるなら最初からこんなキモスレで質問なんかしませんよ〜 日本語通じてますかぁ〜 私は、どうせ暇なあんた達にたまには人の役に立てるチャンスを与えてやっただけ 394 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 18:24:46 ] 悪いが人間の定義から手取り足取り教えてやるほど親切じゃないｗ 395 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 18:28:56 ] "ヒント貰っても"自力で出来ないならってことなんだが 日本語通じてないのはどっちかな（￣ー￣）ﾆﾔﾘ それにオマエは与える側ではなく物乞う側だ 答えそのものを与えるも、ヒントだけ与えるも、こちらの自由 俺等の掌の上で哀れに乞い踊り、弄られ怒り狂う様を ニヤニヤ眺められるだけのピエロでしかない もちろんこれを否定するのは勝手だが オマエは目的のことを教えて貰えず困っており こちらはなんら困ってないという事実が全てを物語ってしまっている 396 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 18:39:18 ] res://appwiz.cpl/default.hta 397 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 18:53:55 ] >>384 dir c:\windows\fonts 398 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 19:01:11 ] ヒント createobject("shell.application").namespace("shell:fonts") 399 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 20:03:18 ] スプリクト（笑） 400 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 20:09:53 ] まぁ正直わからんでもないな 聞いてる方の態度もアレだがそれを抜きにしても ちょっとなんだかなぁってのが多いのはなんなんだろうな 401 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 20:14:06 ] 即答されてるんだから、後はどうでもいいだろ。 402 名前：デフォルトの名無しさん [2008/10/31(金) 21:44:38 ] 新しいスプリ ク ト言語が開発された噂のスレはこちらですか？ 403 名前：３８０ mailto:sagｅ [2008/10/31(金) 22:07:04 ] なに必死になっちゃってんの？顔真っ赤ですよぅｗキモオタどもダサ過ぎｗ あ〜はいはい困ってまちゅよぅ大変だぁこれで満足ですかｗｗｗ 404 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 22:23:14 ] 満足だから、もうどっかに逝け。 405 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 22:23:59 ] スクリプトだろｗ 大人なら、もうちょっとストリクトに書けよな と思ったら、なんだ幼児でちたか 406 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 22:30:24 ] >>380 ＞なに必死になっちゃってんの？顔真っ赤ですよぅｗ 光沢モニタってのはなかなか便利なものだな。 407 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 22:47:42 ] はいはいでもして事故怪傑してくださいな 408 名前：デフォルトの名無しさん mailto:sage [2008/11/01(土) 00:08:19 ] はいはいスプリクトスプリクト 409 名前：デフォルトの名無しさん mailto:sage [2008/11/01(土) 10:23:04 ] >>406 だな 光沢液晶眺めながらヒゲ剃りも出来そうだ 410 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 23:21:13 ] 予告 GetAsyncKeyState 411 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 07:43:01 ] OS：Win XP Pro SP3 WSH：v5.7 var s1 = "C:\\bin"; var s2 = "C:\\bin\\hoge"; if (s2.search(new RegExp(s1)) != -1) WScript.echo("一致"); else WScript.echo("不一致"); s1 = s1.replace("\\","");s2 = s2.replace("\\","")にしてやれば一致するのですが 上記のコードはなぜ不一致になるのでしょうか？ またvar s1 = "C:\\\\bin";var s2 = "C:\\\\bin\\\\hoge";にもしてみましたが結果は不一致のまま変わりませんでした 412 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 12:47:59 ] >>411 var s1 = "C:\\\\bin";  var s2 = "C:\\bin\\hoge";  s1に正規表現のためのエスケープが必要。 413 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 14:38:09 ] えんえんとえんをつづけるのかｗ 414 名前：デフォルトの名無しさん [2008/11/15(土) 17:59:30 ] 各国の通貨暴落なのに円だけが上がってるからな 415 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 21:10:43 ] >>412 なるほど検索文字列だけエスケープしなきゃならなかったんですね やったと思ったらs2も\を足してから一致しなかったんですね ありがとうございました 416 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 03:12:34 ] 各Windowsコンポーネントのインストール状態の一覧を取得する方法ってありますか？ 417 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 04:09:12 ] はい、ありますよ 418 名前：デフォルトの名無しさん [2008/11/16(日) 10:22:21 ] >>416 俺が前したのと同じ質問かい！…ログ見てください、おながいします。 419 名前：デフォルトの名無しさん [2008/11/16(日) 20:18:07 ] 類似品でこんなやつならマイクロソフトのサイトにあった そのものズバリも探せばあると思うよ これ以上は興味ないから知らん(キッパリ) strHost = "." Const HKLM = &H80000002 Set objReg = GetObject("winmgmts://" & strHost & _ "/root/default:StdRegProv") Const strBaseKey = _ "Software\Microsoft\Windows\CurrentVersion\" objReg.EnumKey HKLM, strBaseKey, arrSubKeys strLine=Array() For Each strSubKey In arrSubKeys intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _ "DisplayName", strValue) If intRet <> 0 Then intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _ "QuietDisplayName", strValue) End If If (strValue <> "") and (intRet = 0) Then Push strLine,strValue End If Next Wscript.Echo Join(strLine,vbLf) 'scripting.cocolog-nifty.com/blog/2006/09/vbscriptarraypu_e6e8.html Sub Push(Items,Item) ReDim Preserve Items(UBound(Items)+1) Items(UBound(Items))=Item End Sub 420 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 20:23:37 ] コピペ間違ったｗ正しいのはこれ 上のは動かないよ 'www.microsoft.com/japan/technet/scriptcenter/resources/wmifaq.mspx strHost = "." Const HKLM = &H80000002 Set objReg = GetObject("winmgmts://" & strHost & _ "/root/default:StdRegProv") Const strBaseKey = _ "Software\Microsoft\Windows\CurrentVersion\Uninstall\" objReg.EnumKey HKLM, strBaseKey, arrSubKeys strLine=Array() For Each strSubKey In arrSubKeys intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _ "DisplayName", strValue) If intRet <> 0 Then intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _ "QuietDisplayName", strValue) End If If (strValue <> "") and (intRet = 0) Then Push strLine,strValue End If Next Wscript.Echo Join(strLine,vbLf) Sub Push(Items,Item) ReDim Preserve Items(UBound(Items)+1) Items(UBound(Items))=Item End Sub 421 名前：デフォルトの名無しさん [2008/11/16(日) 21:14:46 ] それは「アプリケーションの一覧」でしょうが。 >>380-381のと同じじゃない？つうか私が貼った奴だけど。 「Windowsコンポーネントの一覧」はこっち>>356な。つうか私が貼った奴だけど。 インストール状態だけ知りたいなら↓ >・Windowsコンポーネントのインストール状態については以下のレジストリに格納されてる。 >「HEKY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\OC Manager\Subcomponents」 「アプリケーション」と「Windowsコンポーネント」ってそんなに間違いやすい？ まあ>>416からして間違えてる可能性もあるけどさ。 422 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 21:38:36 ] >>421 おいおい日本語読めねえのはお前の方じゃないのか これはそのものじゃない類似品にしか過ぎない そのものは自分で探してくれと明確に断わってるぞ 家庭で嫌なことがあったら2chで赤の他人に突っかかるのは悪い習慣だ 423 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 21:48:37 ] >>420を類似品というのは酷すぎるだろ常考…あえて言うならミスディレクション。 424 名前：デフォルトの名無しさん [2008/11/16(日) 21:57:33 ] いやいやお前がよく読まずに突っかかってきたのは事実だ まずそれを謝罪しろアホ これだけ明確に書いてるのに これが質問のものを貼ったと誤解したのは地球上でアホ＝>>421=>>423ひとり ｢類似品でこんなやつならマイクロソフトのサイトにあった そのものズバリも探せばあると思うよ これ以上は興味ないから知らん(キッパリ)｣ 425 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 22:21:31 ] そもそも大して役にたたない類似品貼ったぐらいでガタガタ騒ぐなよ。 バカじゃねーのか？ 426 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 22:29:56 ] こいつは>>421=>>423 以前に登場したとき>>338>>356からキモイやつだったんだな 文章のキモさから警戒されて前も誰もレスつけなかったｗｗ 427 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 22:32:56 ] >>425 スレ検索したらどないでっかあんさん そのものずばりを貼った人は過去に1人もいませんよ バカじゃねーのか？ 428 名前：デフォルトの名無しさん [2008/11/16(日) 22:34:01 ] >>421はこのスレにミスディレクションということで 429 名前：デフォルトの名無しさん [2008/11/16(日) 22:37:59 ] >>425 たいそうに演説するんだったらお前が貼れｗｗ 430 名前：デフォルトの名無しさん [2008/11/16(日) 22:40:13 ] ミスディレクションｗｗｗｗｗｗｗｗｗアホです 431 名前：デフォルトの名無しさん [2008/11/16(日) 22:42:56 ] 　　　　　　　☆ ﾁﾝ　　　　　　　ﾏﾁｸﾀﾋﾞﾚﾀ〜 　　　　　　　　　　　　　　　　　　　　　ﾏﾁｸﾀﾋﾞﾚﾀ〜 　☆　ﾁﾝ　　〃　∧＿∧ 　 ／￣￣￣￣￣￣￣￣￣￣￣￣ 　　ヽ　＿＿_＼（＼・∀・）＜　ミスディレクションさんの反撃まだ？ 　 　 　 ＼＿／⊂　⊂＿)＿ ＼＿＿＿＿＿＿＿＿＿＿＿＿ 　 　 ／￣￣￣￣￣￣￣／| 　　 | ￣ ￣￣￣￣￣￣:|　 | 　　 |Winコンポーネント .|／ 　　 ￣￣￣￣￣￣￣￣ 432 名前：デフォルトの名無しさん [2008/11/16(日) 22:47:46 ] なんすかこの流れｗ 433 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 23:12:26 ] 俺が見ても>>419-420が役立たずのアホ 434 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 00:32:24 ] 慈円 435 名前：デフォルトの名無しさん [2008/11/17(月) 00:43:23 ] 　　　　　　　☆ ﾁﾝ　　　　　　　ﾏﾁｸﾀﾋﾞﾚﾀ〜 　　　　　　　　　　　　　　　　　　　　　ﾏﾁｸﾀﾋﾞﾚﾀ〜 　☆　ﾁﾝ　　〃　∧＿∧ 　 ／￣￣￣￣￣￣￣￣￣￣￣￣ 　　ヽ　＿＿_＼（＼・∀・）＜　ミスディレクションさんの登場まだ？ 　 　 　 ＼＿／⊂　⊂＿)＿ ＼＿＿＿＿＿＿＿＿＿＿＿＿ 　 　 ／￣￣￣￣￣￣￣／| 　　 | ￣ ￣￣￣￣￣￣:|　 | 　　 |Winコンポーネント .|／ 　　 ￣￣￣￣￣￣￣￣ 436 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 00:45:28 ] >>427 　大　し　て　役　に　た　た　な　い　類似品 　〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 理解できたか？ 437 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 00:45:44 ] 珍しく伸びてると思ったら・・・ 438 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 05:44:19 ] フルパスからフォルダ作成(存在しない親フォルダも作成)をできるだけにスマートにvbsで書くとどうなりますか？ 439 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 07:01:33 ] こいつはスレ出入り禁止 >>421=>>423=>>338=>356 こいつの文章は特徴があるからすぐわかる 440 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 07:09:42 ] >>438 フォルダが作成される。 441 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 09:00:37 ] 書くだけじゃ作成されねーし パス区切り文字でsplitして親から順に存在チェック 有ったら次へ、無かったら作る 442 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 12:04:13 ] CreateObject("WScript.Shell").Run "CMD /CMKDIR \a\b\c\d" 443 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 18:59:29 ] やっぱ再帰だろ 444 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 20:33:00 ] sub sub_CreateFolder(strFolderPath) 'フォルダの作成 　strParentFolderPath = objFileSystem.GetParentFolderName(strFolderPath) 　if objFileSystem.FolderExists(strParentFolderPath) then 　else 　　call sub_CreateFolder(strParentFolderPath) '親フォルダが無ければ再帰的に呼び出し 　end if 　call objFileSystem.CreateFolder(strFolderPath) end sub 445 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 20:50:02 ] >>442 cmd使っちゃう方法もありますねw >>444 なるほど。シンプルですね。 大変参考になりました。 みなさんありがとうございます。 446 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 00:13:43 ] call sub_CreateFolder("x:\folder") 無限ループ 447 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 00:51:22 ] >>444 then 側の実行文が空のコードってすごくバカっぽく見えるのは俺だけか？ 448 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 00:59:16 ] どっちでもいいじゃん いちいちめんどくせぇな 449 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 01:16:58 ] >>446 ・ドライブレターが存在するか ・フォルダパスとして成立するテキストが入っているか この２つは本来はこのサブルーチンに入る前にチェックするべきだあね。 >>447 then側はtrue、else側はfalseに統一しておくと、 可読性が高くなって個人的にはいいと思ってる。 "not 〜"　とか　"〜 = false"　は後々で見直すときに、 ぱっと見てどっちかわかりにくいんだよね。 450 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 04:19:42 ] >>446 あーそうかそうか。 ドライブの直下にフォルダ作らせようとすると無限ループにはいるね。 今までそういう使い方してなかったから気づかなかった。 objFileSystem.DriveExistsでif文一個追加すればいいやって思ったけど このメソッド、"x:\"だと必ずFalseだね。"x:"ならTrueがかえってくるけど。　 451 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 04:31:03 ] ちゃんと作るとこうかな？ Set objFileSystem = CreateObject("Scripting.FileSystemObject") strBuf = inputbox(" ") if objFileSystem.DriveExists(objFileSystem.GetDriveName(strBuf)) then 　call sub_CreateFolder(strBuf, objFileSystem.GetDriveName(strBuf) & "\") else 　WScript.Quit end if sub sub_CreateFolder(strFolderPath, strDrivePath) 'フォルダの作成 　strParentFolderPath = objFileSystem.GetParentFolderName(strFolderPath) 　if objFileSystem.FolderExists(strParentFolderPath) then 　elseif strParentFolderPath = strDrivePath then 　else 　　call sub_CreateFolder(strParentFolderPath, strDrivePath) 　end if 　call objFileSystem.CreateFolder(strFolderPath) end sub 452 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 05:01:41 ] call objFileSystem.CreateFolder(strFolderPath)をする前に objFileSystem.FolderExists(strFolderPath)しないと ファイルが既に存在してるかどうか確認するのがめんどくさいからとりあえず実行しちゃえ ってなった時に既に存在してたらエラーになる 453 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 05:03:23 ] ファイルじゃなくてフォルダだった(´･ω･｀) 454 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 08:36:27 ] つーかさ、初心者って「スマートに」とか「シンプルに」とか好きだよな そんで例外処理すら省いた短いだけの不適合コードに満足する 良いコードとは、短いコードではなく正しく動作するコードだってことを解ってない 455 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 13:14:52 ] 作ろうとするフォルダ名と同じファイルがあっても困るからそのときは中断処理しないといけないなぁ 456 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 13:58:50 ] >>454 所詮スクリプトなんだからあんまり例外処理を作り込む必要はないんちゃう？と最近は思う。 自分の環境で動けばそれでいいし、動かなければ適宜手直しするし・・・。 457 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 17:32:08 ] >>450 ＞このメソッド、"x:\"だと必ずFalseだね。 このメソッド、"c:\"だとFalseかね？ 458 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 19:54:41 ] >>457 "c"とか"c:"ならTrueなのに、"c:\"はFalse。 で、ofs.GetParentFolderName("c:\hogehoge\")の戻り値は"c:\" 設計思想としてはわからんでもないけどなぁ。 459 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 20:40:06 ] >>447 バカっぽくは見えないけど、個人的にはあまり好きな書き方じゃないな。 ちなみに↓だと「「許容できない」が一番多いけど、「許容できる」もそれなりに多い。 空のIF文を書きますか？ - Insider.NET ttp://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=47060&forum=7 460 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 20:42:28 ] "c:\"はTrueだけど？ 461 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 21:43:55 ] >>454 そんな初心者見たことねぇ。 462 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 22:48:51 ] >>460 本当だ。どうも寝ぼけてなんか間違えたらしい。>>458は忘れてくれ。 >>459 そこでも出てるけど、後々のメンテとか考えると統一したいんだよね。 if not 〜 thenで作ってて、後からTrueの場合の条件分岐追加したくなるときとか。 特に理由がない限りは愚直に馬鹿でも読めるように書けと教育されたので。 463 名前：462 mailto:sage [2008/11/18(火) 23:00:13 ] あ、でも確かにCode Completeでは「稚拙に見えるから止めろ」って書いてある。 だから本来はNot使うのがいいのかもね。 464 名前：デフォルトの名無しさん mailto:sage [2008/11/19(水) 01:26:22 ] jsのif (!...) { ... }なら認識しやすいんだけど vbsのif not ... thenは色分けできるエディタ使ってても なんか視界のなかで他の単語にうもれてときたま見逃してしまうから >>449みたいにif ... thenでやっちゃうことが多いな 465 名前：デフォルトの名無しさん mailto:sage [2008/11/19(水) 06:34:51 ] JScriptでADODB.Streamを使用してみてるんですが Readで読んだバイナリ値をStringオブジェクトに格納できないでしょうか？ var oAD = new ActiveXObject("ADODB.Stream"); oAD.Type = 1; oAD.Open(); oAD.LoadFromFile("C:\\hoge.bin"); var Str = oAD.Read(1); WScript.echo(Str);//エラーは出ないが文字列に変換されて出力される s1 = String(Str);//文字列ではありません WScript.echo(Str.constractor);//null、またはオブジェクトではありません 466 名前：デフォルトの名無しさん mailto:sage [2008/11/19(水) 10:30:27 ] >>248をみてもしかしたらと思って.NETのクラスつかったらできたよ var asciienc = new ActiveXObject("System.Text.ASCIIEncoding"); var s1 = asciienc.GetString(Str); WScript.Echo(typeof(s1)); 467 名前：デフォルトの名無しさん mailto:sage [2008/11/19(水) 10:33:13 ] あとレジストリみたらSystem.Text.ASCIIEncodingのほかに System.Text.UnicodeEncoding System.Text.UTF7Encoding System.Text.UTF8Encoding があったからここらへんも使えると思う 468 名前：デフォルトの名無しさん mailto:sage [2008/11/19(水) 11:45:55 ] constractor？？？ 469 名前：デフォルトの名無しさん mailto:sage [2008/11/19(水) 11:52:58 ] var Str = oAD.ReadText(1); 470 名前：465 mailto:sage [2008/11/19(水) 12:03:56 ] constructorですね。間違えました >>466-467 出来ました！ありがとうございます が、0x80以降を格納すると変なことになりますね… WScript.echo(s1.charCodeAt(),toString(16));//ASCIIだと3f、それ以外はfffdがずっと続く >>469 テキストモードで開くのなら、iso-8859-1で開いて0x80〜0x9fは置換するって方法があるみたいですね とりあえず置換する方向で行きたいと思います。ありがとうございました 471 名前：465 mailto:sage [2008/11/19(水) 12:04:51 ] 誤：WScript.echo(s1.charCodeAt(),toString(16));//ASCIIだと3f、それ以外はfffdがずっと続く 正：WScript.echo(s1.charCodeAt().toString(16));//ASCIIだと3f、それ以外はfffdがずっと続く 472 名前：デフォルトの名無しさん mailto:sage [2008/11/19(水) 12:08:52 ] なにがしたいんだか 473 名前：デフォルトの名無しさん [2008/11/19(水) 12:17:37 ] 自分のマシンのローカルエリア接続に設定されている デフォルトゲートウエイIPアドレスをWSHで取得する方法で頭打ってます。 どなたか知りませんか？ 474 名前：デフォルトの名無しさん mailto:sage [2008/11/19(水) 12:21:20 ] JScriptからバイナリの暗号化とか復号とかいろいろできたら便利だなぁ、とか思ってました 475 名前：デフォルトの名無しさん mailto:sage [2008/11/19(水) 12:24:28 ] JScriptじゃ無理 VBScriptつかえよ 476 名前：デフォルトの名無しさん [2008/11/19(水) 12:34:53 ] VBSで取得する方法でもいいです。 Google先生でもなかなか見つからない紋で。

---

---

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

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