VBSで便利なプログラムを作れスレ

1 名前：デフォルトの名無しさん [2007/02/03(土) 17:49:47 ] 素人丸出しお粗末で遅くてもいいので いますぐ使えるちょっぴり便利プログラムを作れ （例○○を自動処理してくれるプログラム） 152 名前：デフォルトの名無しさん mailto:sage [2008/05/04(日) 06:18:31 ] >>151 数値で桁が多すぎると(浮動少数表現に変わるから？)エラーでるよ 153 名前：デフォルトの名無しさん [2008/05/04(日) 12:33:44 ] やっぱりうまくいきません 型が一致しません"Clnt"とでます パソコンが2000だからとかそういうわけでしょうか あと素人丸だしですみませんが、一行目の10101101ってどういう意味ですか？ 154 名前：デフォルトの名無しさん mailto:sage [2008/05/04(日) 12:37:01 ] もうそのネタ飽きた 155 名前：デフォルトの名無しさん [2008/05/04(日) 16:39:54 ] ↑ そもそも「二進法」の意味がわかっとらんだろ？ 156 名前：デフォルトの名無しさん [2008/05/04(日) 17:22:21 ] ところが2歩進んだと思ってたのに気が付いたら下がっていたという。 157 名前：デフォルトの名無しさん [2008/05/04(日) 19:25:19 ] 2進数はわかってますが 158 名前：デフォルトの名無しさん mailto:sage [2008/05/04(日) 22:40:33 ] >>152 すまんが、前提として10101101をそのままとしていた。 確かに桁が増えたらエラーになる。 16桁か17桁くらいが区切りのはず。 ちなみに浮動少数表現ではなく、対数表現な。 >>153 指摘が間違ってた。 いいか、Clntが間違いだ。CIntだ。 2文字目は小文字のL(エル)ではなく、大文字のI(アイ)だ。 ついでにいうと、二進法で表現した数値を二進数と言うんだ。 159 名前：デフォルトの名無しさん [2008/05/05(月) 03:45:40 ] この会話・・・ぜったい２進数がわかってないな。 160 名前：デフォルトの名無しさん mailto:sage [2008/05/05(月) 04:16:03 ] シュールストレミングうめえ 161 名前：デフォルトの名無しさん [2008/05/05(月) 17:06:00 ] すいませんXPでやったらできました そこで入力した二進数を十進数に変えるプログラムはどうやるんですか？ 162 名前：デフォルトの名無しさん mailto:sage [2008/05/05(月) 17:20:48 ] 二進数も十進数も見た目が違うだけで中味は同じ だから変換は必要ない 163 名前：136 mailto:sage [2008/05/05(月) 17:27:22 ] なんか変な流れ作っちゃってすまん というか>>161なぜそこに戻る？ 164 名前：デフォルトの名無しさん [2008/05/05(月) 17:39:30 ] inputboxをどこにいれりゃいいのかわかりませｎ 165 名前：デフォルトの名無しさん [2008/05/06(火) 12:29:27 ] おまい、ぜったいぜったい、ぜぇ〜〜ったい２進数がわかってないだろ。 166 名前：デフォルトの名無しさん mailto:sage [2008/05/06(火) 14:22:30 ] おまいら暇だな〜 ﾓﾚﾓﾅ〜ｗ 167 名前：デフォルトの名無しさん [2008/05/06(火) 15:42:50 ] ｖｂｓで１６進数を表示。たとえば msgbox &hFE とすると、結果は 254 と表示されます。 ほんとは FE のはずです。 こういうバグがあるから気をつけたほうがいいよ。 168 名前：デフォルトの名無しさん mailto:sage [2008/05/06(火) 15:47:27 ] それはバグ・・・・とは思えないのだが。本来の仕様と違うとか？ 169 名前：デフォルトの名無しさん mailto:sage [2008/05/06(火) 17:18:09 ] >>168 変態度かぁ 170 名前：デフォルトの名無しさん [2008/05/06(火) 17:59:41 ] 意味わからん FEって表示したいのなら msgbox "FE" って書きゃいいじゃん。 自分で &h つけておいて、何言ってんだろ？ msgbox hex(&hfe) でもいいけど 171 名前：デフォルトの名無しさん [2008/05/06(火) 18:31:12 ] 数値の&HFE と 文字列の"FE" の違いすらわからんヤツがおるのか。 172 名前：デフォルトの名無しさん mailto:sage [2008/05/06(火) 21:58:28 ] >>160 くせぇ！ 今頃臭いが伝わってきたよ 173 名前：デフォルトの名無しさん mailto:sage [2008/05/11(日) 04:40:36 ] ●6月にマネージャパン、月刊アスキー、週刊アスキーの3誌が賞金総額2000万円の「シストレFXグランプリ」を開催 system-trading.jp/news/index.php?cID=3 [シストレFXグランプリとは] クリック証券が提供するFXのデモ取引環境を利用して、システムトレードにチャレンジできるFX取引のグランプリです。 お客様ご自身で作成したシステムトレードの機能を評価する「シストレソフト部門」とトレード収益を競う「トレード部門」の2部門構成となっております。 ●5月22日より登録受付開始、6月2日よりグランプリ開始の予定。賞金総額2000万円。 　　デモトレードの優勝者には賞金三百万円がプレゼントされます。 ▼トレード部門 初期資産500万円で、デモ取引のトレード収益を競っていただきます。 ●www.fx-gp.com/about/ ▼賞金総額 ■社長特別賞（シストレソフト買取価格） 10,000,000円 ●シストレソフト部門賞　1位300万円　2位100万円　3位50万円 ●トレード部門賞　1位300万円　2位100万円　3位50万円 ●前期MVP賞　50万円 ●後期MVP賞　50万円 174 名前：デフォルトの名無しさん mailto:sage [2008/05/11(日) 13:31:12 ] コピペ君って馬鹿だな、まで読んだ。 175 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 04:14:05 ] InputBox関数使って、入力値を得たいんですが、 255バイト以上の入力値って無視されるのでしょうか？ 解決策があれば教えてください。。 InputText = InputBox("文字列を入力してください") Dim Fs Set Fs=CreateObject("Scripting.FileSystemObject") Set newFile = Fs.CreateTextFile("0000test0000.txt",True) newFile.WriteLine(InputText) 176 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 09:13:27 ] ユニコードで２５４文字+CR+LFの、最大値を超えています。 177 名前：デフォルトの名無しさん [2008/06/17(火) 22:19:12 ] VBScriptを使って、HTTPステータスコードを取得する方法を探しています。 ある任意のWeb画面に対してスクリプトでリクエストを行い、HTTPステータスコード(200 ok 等)を 取得する方法はありますでしょうか。 どなたかご存知の方がいらっしゃいましたら、ご教授下さい。 178 名前：>>177 mailto:sage [2008/06/17(火) 22:24:08 ] すいません。スレ違いだった為、WSHのスレに移します。 179 名前：デフォルトの名無しさん mailto:sage [2008/06/19(木) 14:20:45 ] vbsで、フロッピーのフォーマットを確認なしで実行 する命令ありますか？A:\固定で。 180 名前：デフォルトの名無しさん mailto:sage [2008/06/19(木) 18:20:54 ] >>179 何で確認しなくていいのか？ 181 名前：デフォルトの名無しさん mailto:sage [2008/06/19(木) 20:40:04 ] VBSにはファイルにアクセスする命令すらありませんよ 182 名前：デフォルトの名無しさん mailto:sage [2008/06/21(土) 07:38:22 ] それを言うならC言語にもファイルにアクセスする命令は無いな 183 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 09:45:08 ] ここまで便利そうなコードが殆どない件・・・ 184 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 11:24:47 ] >>183が便利そうなコードを書きまくるそうです＞＜ 185 名前：デフォルトの名無しさん mailto:sage [2008/07/27(日) 01:18:22 ] とりあえずExcelAddinをインスコするコードとかlnk右クリックでリンク先ディレクトリ表示とか あるけど需要あるか？ 186 名前：デフォルトの名無しさん mailto:sage [2008/07/30(水) 21:22:27 ] test1.bin test2.bin test3.bin これらファイルを選択状態にして、VBSファイルにD&Dすると、 ファイル名順にソートして、１つのファイルに結合するには、どうしたら良いのでしょうか？ １つのファイルを、指定サイズに自動分割するVBSはできたのですが、 その逆のことができるVBSファイルを作りたい。。。 ADODB.Recordset ADODB.stream　あたりを使えば可能？ 187 名前：デフォルトの名無しさん mailto:sage [2008/07/30(水) 21:26:24 ] copy /b 188 名前：デフォルトの名無しさん mailto:sage [2008/07/30(水) 21:38:44 ] >>185 参考にさせていただきた 189 名前：デフォルトの名無しさん mailto:sage [2008/08/13(水) 09:09:42 ] CIM_DataFileクラスを用いて、ファイルの各種情報を取得したいのですが、 「説明」のプロパティを取得するときに指定するプロパティ名が分かりません。 具体的には、例えばソリティア（C:\WINDOWS\system32\sol.exe）を 右クリックして表示されるプロパティの「バージョン情報」タブの２行目に 「説明：Solitaire Game Applet」と表示されますが、この値を取得したいのです。 ファイルバージョンなどは、「Version」プロパティで取得できております。 ご存知の方、ご教示お願い致します。 190 名前：デフォルトの名無しさん mailto:sage [2008/08/13(水) 18:30:02 ] 189です。 カキコするところ間違えたみたいなので、移動します。スミマセン。 191 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 21:29:36 ] >>186-187 作ってみた。 sdir = "C:\temp\" '出力先フォルダ soutfb = "output.bin" '出力ファイル名 set osh = createobject("wscript.shell") 'シェルオブジェクト set ofs = createobject("scripting.filesystemobject") 'ファイルオブジェクト set oarg = wscript.arguments '引数オブジェクト stmpf1 = "temp1.txt" '一時ファイル stmpf2 = "temp2.txt" '一時ファイル 'ドラッグ＆ドロップしたファイル名を一時ファイルに格納 set out = ofs.createtextfile(sdir & stmpf1, true) for each s in oarg 　　out.writeline s next out.close 192 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 21:31:54 ] （つづき） 'ファイル名のリストをソートして一時ファイルに格納 osh.run "cmd /c sort " & (sdir & stmpf1) & " > " & (sdir & stmpf2), 0, true set oin = ofs.opentextfile(sdir & stmpf2) s = oin.readline 'バイナリファイルのコピー ofs.copyfile s, (sdir & soutfb) do until oin.atendofstream 　　s = oin.readline 　　osh.run "cmd /c copy /b " & (sdir & soutfb) & "+" & s & " " & (sdir & soutfb), 0, true loop oin.close '一時ファイルの消去 ofs.deletefile sdir & stmpf1 ofs.deletefile sdir & stmpf2 msgbox "OK" ↑以上、実行時は行頭の空白を半角に。 193 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 22:04:23 ] copyは性能的にしょうがないかもしれんがsortぐらい自前でやれよｗ 194 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 21:13:21 ] VBSにて、SNMP情報の取得を考えてるんですが、 wsnmp32.dll　を利用することはできないんでしょうか？ dynwrap.dll　というラッパー？も使えないのでしょうか 195 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 18:59:35 ] set shell32 = createobject("shell.application") set fso = createobject("scripting.filesystemobject") function recyclebin(pathname) > path = fso.getparentfoldername(pathname) set there = shell32.namespace(path) set submenus = there.items.item(fso.getfilename(pathname)).verbs I = 0 for each method in submenus if strcomp(method, "削除(&D)") = 0 then submenus.item(I).doit() end if I = I + 1 next end function recyclebin wscript.arguments(0) ファイルやフォルダをドラッグアンドドロップすると、 ごみ箱に移すスクリプト。deletefile とかは 永遠に消えちゃうので不安だ．．．。 196 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 19:01:10 ] すまん、>　は、なし。 197 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 21:05:24 ] それ、ごみ箱のショートカットと比べてどう便利なの？ 198 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 21:32:26 ] ファイルをドラッグアンドドロップていうのは サンプル動作のためで、 関数をスクリプト内で deletefile の代わりに使います。

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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