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

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

[前50を表示]
400:デフォルトの名無しさん
11/02/21 07:28:22.68 .net
だからここは自分で作って晒すスレで
質問スレや制作依頼所じゃないと何度言えば…

401:デフォルトの名無しさん
11/02/21 09:56:31.24 .net
ほかにいくか……VBSじゃなくてIEの問題な気がしてきた

402:デフォルトの名無しさん
11/02/21 21:02:49.69 .net
丸投げされるのはムカつくけど多少の質問ならいいんじゃね？

>>387
telnetで入れるならTeraTerm等でマクロ作ったほうが簡単。
もっとも擬似GUIだとお手上げだが。

403:デフォルトの名無しさん
11/02/26 01:19:27.04 .net
昔、telnetをラップするvbs作ったことあったな…

404:デフォルトの名無しさん
11/04/09 21:38:36.77 .net
こんな感じでマイドキュメントをコピーしてバックアップを
取ろうとしてるんですが、Windows 7だとエラーが返ってきて、
コピーできません。
Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.CopyFolder "C:\Users\Admin","C:\test"
AdministratorでもコピーできないのってUACの仕様ですか？

405:デフォルトの名無しさん
11/04/09 21:50:40.23 .net
>>392
　>>388

406:デフォルトの名無しさん
11/04/10 00:04:08.05 .net
>>393
　>>390

407:デフォルトの名無しさん
11/04/10 00:16:29.59 .net
>>390を引き合いに出すなら､それを引き合いに出した>>394自身が答えてやらないとなw

408:デフォルトの名無しさん
11/04/10 06:02:52.24 .net
>>392
UACというかVistaからの仕様です
例え管理者といえど他人の敷地には許可無く進入は出来ません。
今までのウィルスならこれで全て無力化される、そんぐらい厳しい仕様。
因みにAdminとAdministratorは別物だよ。
XPまでのユーザー管理とは似た非なるものと認識しておこう。
ポリシーいじれば同じ感じに出来るけどめんどい。

409:392
11/04/10 19:18:31.68 .net
>>393
>>394
質問スレじゃないの理解してませんでした。申し訳ない。

>>395
フォローありがとうございます。

>>396
かなりめんどくさそうですね。手作業でやった方が速いのかも…
アクセスフォルダに所有権とかつけてみて、もうちょっとやってみます。
ありがとうございます。

410:デフォルトの名無しさん
11/04/23 17:43:43.24 .net
唐突ですがウサギ型ロボットをR2D2にする�

411:ｽめのVBSを公開しましたよ ttp://xbmc.inpane.com/sub/nabaztag/

412:デフォルトの名無しさん
11/04/23 23:30:59.78 .net
会社の共有PCの管理のため、Windowsのログオンスクリプトにかまして、
とあるプロセスを監視しています。
なので基本的にユーザーがログイン中は常にWscript.exeが動いているのですが、
↓のような無限ループでもいいんですかね？
なんとなく無理やりな感じがして、もっとスマートなやり方があるでしょうか？

Call プロセス監視処理

①
Sub プロセス監視処理
Do
'WMIからプロセス取得して、目標のプロセスがでたらループ抜け
Wscript.Sleep 1000
Until
Call やりたい処理
End Sub

②
SUb やりたい処理
'やりたい処理がおわったらまた、プロセス監視処理をCall
End Sub

413:デフォルトの名無しさん
11/04/27 22:03:44.07 .net
おまえら>>399これくらいも答えられないのかよ
死ねっ！能無しども
会社でもろくな仕事してないんだろうなぁ・・

414:デフォルトの名無しさん
11/04/27 22:11:12.36 .net
>>400
あんまし読んでないしてきとーだけど再帰処理っぽいなと思った。
見つかるまで自分自身を呼び続けたらいいべさ

415:デフォルトの名無しさん
11/04/27 22:38:33.12 .net
>>825
URLﾘﾝｸ(mackerel.axfc.net)

416:デフォルトの名無しさん
11/05/20 13:19:16.79 .net
ここで聞いていいのか分かりませんが、分かる方いたら教えてください。
コマンドラインでフォルダを圧縮するためにZIP.VBSというのを使っているのですが、
MakeZIP.VBSでフォルダを圧縮する際、zipファイルにフォルダ名が格納されてしまいます。

photo
　├aa.jpg
　└bb.jpg

上記のような場合に、zipファイルにphotoフォルダも格納されます。
これをphotoフォルダを格納せず、ファイルのみ格納するにはどこを修正すればよいのでしょうか。
よろしくお願いします。

417:デフォルトの名無しさん
11/05/20 14:38:03.93 .net
そもそもスレ違いだが､それ解らないレベルならZIP.VBSなんか使わずに
コマンドライン型のアーカイバツール使えよ｡
GUIで予め設定しておけば渡したフォルダの中身だけ圧縮してくれるものなんて
いくらでもあるから｡

418:デフォルトの名無しさん
11/05/23 11:47:33.82 .net
修正も何もコマンドラインをまず書けよ、なっ？

419:デフォルトの名無しさん
11/06/05 10:08:34.52 .net
ブ･･･vbs･･･
わしは･･ワシは今までこんな素晴らしい言語があるなんて知らなかった･･･！
APIなんかいらないじゃん！

420:デフォルトの名無しさん
11/06/05 11:18:49.84 .net
VBSにD&Dしたものを他のソフトのウィンドウへD&Dとして受け渡すことは可能ですか？

421:デフォルトの名無しさん
11/06/05 18:56:55.67 .net
ファイルへのD&Dなら可能
これは単なるコマンドライン実行なので

ウィンドウへのD&Dならデフォでは不可
専用のCOMでも作るか探すかすれば出来ないことはないだろうけど

422:デフォルトの名無しさん
11/06/06 00:45:23.45 .net
サンプルをいじることしか出来ない私には手に負えないですね…
諦めで別な方法を模索してみます

423:デフォルトの名無しさん
11/06/14 02:40:29.91 .net
2chのhtmlを取得して、vbsで正規表現による抽出と置換をしてhtmlを整形してログを管理するプログラムに読ませたい。

抽出までは上手くいきました。
しかし、正規表現による置換ができません
例えばこのスレのhtml内のコメ409を抜粋するとこうです
<dt>409 ：<a href="mailto:sage">
<b>デフォルトの名無しさん</b></a>：2011/06/06(月) 00:45:23.45 <dd> サンプルをいじることしか出来ない私には手に負えないですね… <br> 諦めで別な方法を模索してみます <br><br>

ここから
409 ：2011/06/06(月) 00:45:23.45 <dd> サンプルをいじることしか出来ない私には手に負えないですね…
<br> 諦めで別な方法を模索してみます<br><br>

にするには\<a.+/a>|(</a>：)|\</?.+?\>　で置換して余計なものを取り除けばで

424:きました。しかし、<dd>や<br>などの改行にあたる部分も別途置換しないといけないのでここで詰まってます。片方づつなら出来るのですが同時に１スクリプト内でやろうとするにはどうすればいいのでしょうか？

425:デフォルトの名無しさん
11/06/14 02:45:14.28 .net
\<a.+/a>|(</a>：)|\</?.+?\>　の部分を空白に置換するvbsです
Dim objFile ' 対象ファイル
Dim oldText ' 置換前テキスト
Dim newText ' 置換後テキスト
Dim objFSO ' ファイルシステムオブジェクト
Dim objRep ' 正規表現オブジェクト
Dim repText ' 置換対象文字列
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("読む込むテキストファイル")

' テキストデータ読込
oldText = objFile.ReadAll

' 置換対象文字列
repText = ""

Set objRep = New RegExp

objRep.Multiline = True
' 正規表現パターンを指定する
objRep.Pattern = "\<a.+/a>|(</a>：)|\</?.+?\>"
objRep.IgnoreCase = True
objRep.Global = True
' テキスト変換
newText = objRep.replace(oldText, repText)
objFile.Close
' 書き込み
Set objFile = objFSO.CreateTextFile("書き出すテキストファイル")
objFile.WriteLine (newText)
objFile.Close

426:デフォルトの名無しさん
11/06/14 02:45:45.67 .net
' 書き込みの前から' 正規表現パターンを指定するへループして繰り返せればなと考えているのですが上手く思いつきません。
もし、わかるかたがいらっしゃれば教えてください。よろしくお願いします。

427:デフォルトの名無しさん
11/06/14 04:43:26.73 .net
やりたい事がいまいちわからないが、
複数回やりたいんであれば、
正規表現パターンを配列に入れて、ループするだけじゃないかな～

428:デフォルトの名無しさん
11/06/14 07:48:13.52 .net
>>411
objRep.Pattern = "<(""[^""]*""|\'[^\']*\'|[^\'"">])*>"
こういうことじゃなくて？

429:デフォルトの名無しさん
11/06/14 19:38:12.72 .net
なんでdat使わないで、
わざわざhtmlなんて難しいものを使う？

430:デフォルトの名無しさん
11/06/15 11:59:02.32 .net
ちょっと見てみた、確かにhtmlよりdatのほうが容量4割減でおいしいんだけどタイトル取得できないのとコメ番号ないから置換するときどうやって割り当てようか思いつかない

431:デフォルトの名無しさん
11/06/15 12:03:32.40 .net
よくみたら1行目の最後にタイトルあったわ

432:デフォルトの名無しさん
11/06/15 19:08:23.10 .net
デスクトップから2ch検索するvbs作ってるんだけど、
変数の件でわからないところがある。
Dim 変数　で宣言する
このとき変数が、例えば2churlとかだと識別子がありません。とエラーがでる

churlなら問題ない、どうして先頭に数字がくるといけないんですか？
識別子がありません。

433:デフォルトの名無しさん
11/06/15 19:30:46.07 .net
先頭に数字が来ることを許すと
Dim 2
とか
Dim 123
という変数が出来てしまう

これってどうやって変数の2や123と､数値の2や123を識別するの？
ってことになるので､必ず英字を入れなければならないというルールが必要になるわけで
1文字の変数がある以上､その英字が入る位置は1文字目､つまり先頭になり
1文字目が英字でなければいけない=先頭が数字ではいけない
ってことになるわけだ

1文字目が英字でさえあれば､1文字変数でも､2文字目以降が数字でも
確実に変数と数値を識別できる

434:デフォルトの名無しさん
11/06/17 20:55:49.75 .net
vbsでpingを打って、通るまで処理を繰り返すスクリプトを
作成しているのだが、どうもうまくいきません。

IF文で分岐をさせるのはうまくいくのですが、以下のスクリプトで
192.168.0.3に対して通るようになった時点でスクリプトを終了
させたいんですが、どこが悪いんでしょうか？

dim strIP
dim timeOut
'タイムアウト設定(ミリ秒)
timeOut = "10"
strIP = "192.168.0.3"
Set objWMIService = GetObject("winmgmts:\\.")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_PingStatus " & _
"Where Timeout = " & timeOut & " AND Address = '" & strIP & "'")

For Each objItem in colItems
do while objItem.StatusCode <> 0
Wscript.echo "NG"
Set objWMIService = GetObject("winmgmts:\\.")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_PingStatus " & _
"Where Timeout = " & timeOut & " AND Address = '" & strIP & "'")

loop
Next

435:デフォルトの名無しさん
11/06/19 01:45:19.27 .net
選択プルダウンボックスとか作れたら便利になるのにな�

436:�

437:デフォルトの名無しさん
11/06/19 02:28:19.04 .net
VBSで選択プルダウンボックス使ってるけど､何か？

VBSというかWSHは､COM､OCXで拡張してナンボなんだから
欲しいけど言語に備わってない機能は､外部で補えば良いだけだ

438:デフォルトの名無しさん
11/06/19 07:13:15.16 .net
自分専用ならそうだろうけど、
comはインストールの壁が越えられない

439:デフォルトの名無しさん
11/06/19 07:17:25.40 .net
超えられるけど､何か？
USBメモリで持ち歩いて使ってる
COMのレジストリ登録を自動化してるとかではなく未登録で

440:デフォルトの名無しさん
11/06/19 07:43:48.47 .net
自信満々で「超えられるけど､何か？（ｷﾘｯ」だもんなあｗ

441:デフォルトの名無しさん
11/06/19 08:09:56.20 .net
自信満々に言った「comはインストールの壁が越えられない（ｷﾘｯ」
を否定されて悔しかったの？

442:デフォルトの名無しさん
11/06/19 08:19:38.57 .net
GetObject

443:デフォルトの名無しさん
11/06/19 08:29:07.02 .net
USB股間に忍ばせて持ち歩く男の人って・・・///
きみの端子にプラグ★イン！

444:≠423
11/06/19 10:02:11.33 .net
>>426
あのね、ある程度の会社ならね、勝手にツール類をインストールする事ができないのね。

USBメモリも、使用禁止、あるいは相当制限されているのが一般的なのよ。

445:デフォルトの名無しさん
11/06/19 12:12:42.62 .net
なんか勘違いしてる子が出てきたなw

あのね、comにインストールの壁なんて無いって話であって
USBメモリなんて､全く関係ない話なのよ

それと､『ある程度』レベルの会社だと、勝手にツール類をインストールする事ができないところが多いけど
『ある程度』を超えたまともな会社だと､勝手にツール類をインストールする事が出来るところも多い
セキュリティーが確立している上に､VBAやWSHなどの元から入ってる言語でいろいろ作れる奴が多いから
外部からのツールのインストールを制限しても､元から入ってる言語でツールが作れちゃうから意味無いw
逆にまともな会社だでツールのインストールを制限している場合は､WSHもVBAも制限してる

446:デフォルトの名無しさん
11/06/19 18:14:48.56 .net
≠423とか必死に否定すると､余計に･････(￣ー￣)ﾆﾔﾘｯ

447:デフォルトの名無しさん
11/06/19 21:27:41.80 .net
「勝手に出来る」って方がおかしいだろ
今の時代どこもピリピリしてるってのに。
単におまえさん自身か会社がその客に信用されてるってだけじゃねーの？
でも普通は申請式だと思うけど。他人の会社で勝手にてのはどうかと思う。

448:デフォルトの名無しさん
11/06/20 00:02:07.13 .net
勝手にしてよいと許されていることを勝手にやる上で､何の咎があると？
なにか勘違いしてやいないか？

449:デフォルトの名無しさん
11/06/20 00:33:54.55 .net
これは突っ込んであげたほうが良いのだろうか？

450:デフォルトの名無しさん
11/06/20 00:59:30.37 .net
生温かい目で見守ってあげるのが良いんじゃないかと

451:デフォルトの名無しさん
11/06/20 10:20:41.11 .net
batファイルは止められませんね
じゃぁバッチ最強じゃん

452:デフォルトの名無しさん
11/06/20 17:46:53.34 .net
<a href="URLﾘﾝｸ(upload.jpn.ph)やきそば.zip">こちら</a>
という内容のテキストファイルからURLの部分を抽出して
変数に入れるっていう目的でvbs作ったんですが上手く変数に入りません

Dim objFile ' 対象ファイル
Dim oldText ' 置換前テキスト
Dim newText ' 置換後テキスト
Dim objFSO ' ファイルシステムオブジェクト
Dim objRep ' 正規表現オブジェクト
Dim repText ' 置換対象文字列
var1 = "解析.txt" '保存する名前
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(var1, 1, false, 0)
' テキストデータ読込
oldText = objFile.ReadAll

patrn="(http:\/\/[^\x22 ]+)" '検索する文字列を入力して下さい。
repText = "$2"

Set objRep = New RegExp
objRep.Multiline = True
' 正規表現パターンを指定する
objRep.Pattern = patrn
oldText = objRep.replace(oldText, repText)

WScript.Echo $2
objFile.Close

どうすればいいのでしょうか、もしわかるかた入れば教えてください。
自分では後方参照とかExecuteやマッチとかが関係ありそうで
調べて試したんですが思うようにいきませんでした。

453:デフォルトの名無しさん
11/06/21 21:55:45.73 .net
まずは基本を学べってレベル

454:デフォルトの名無しさん
11/06/23 15:44:28.14 .net
正規表現の構文がデタラメ。
パターンがデタラメだし後方参照の仕方もデタラメ。

ヘルプもろくに見てないだろ。

455:デフォルトの名無しさん
11/06/23 22:13:57.11 .net
置換という言葉の意味もわからぬまま、これをコピペ

456:して値を置き換えたんだろう。 http://d.hatena.ne.jp/necoyama3/20081202/1228220710

457:デフォルトの名無しさん
11/06/23 22:32:18.65 .net
凄い違和感あったんだけど納得

458:デフォルトの名無しさん
11/06/23 23:57:00.51 .net
>>433
やっぱ許可貰ってんじゃん
ま、当たり前だよなびっくりした

459:デフォルトの名無しさん
11/06/24 07:22:39.31 .net
久しぶりに酷い自演をみた

460:デフォルトの名無しさん
11/06/24 10:19:04.37 .net
＞repText = "$2"
この意味不明っぷりがすごいね

461:デフォルトの名無しさん
11/06/24 14:11:47.65 .net
突っ込む所はそこじゃないと思うがｗ

Echoのとことか、パターン自体に突っ込めよ

462:デフォルトの名無しさん
11/06/24 14:15:34.45 .net
>>440
> objRep.Pattern = "T..t"

感動的なパターンだなｗ

463:デフォルトの名無しさん
11/06/24 19:23:21.29 .net
>>437
ドリルの刑
URLﾘﾝｸ(www.amazon.co.jp)

姉妹編と違って表紙にドリルが載っていないのがイマイチだけど

464:デフォルトの名無しさん
11/06/25 00:10:36.15 .net
>>437も恥ずかしくて出れこれないんだから、いい加減に許してやれよ

465:デフォルトの名無しさん
11/06/25 13:11:24.67 .net
>>443
そんなに悔しかったの？

466:天使 ◆KOAgYBL/Xg
11/06/29 17:41:46.87 .net
さすが　VBSなんていう時代遅れツール使ってるスレはレベルが低い

467:天使 ◆uL5esZLBSE
11/07/02 08:25:05.28 .net

ゴミみたいな奴だな

468:デフォルトの名無しさん
11/08/28 14:30:43.29 .net
文字を文字コードの数値に変換して出力したいんだけど誰か助けて

469:デフォルトの名無しさん
11/08/28 20:10:45.21 .net
asc("a")

470:デフォルトの名無しさん
11/09/01 09:14:32.07 .net
何その顔文字、ふざけてるの

471:デフォルトの名無しさん
11/09/01 10:09:24.83 .net
("з")

472:デフォルトの名無しさん
11/11/20 14:29:12.95 .net
(・∀・)

473:デフォルトの名無しさん
11/11/20 15:33:06.16 .net
VBScriptって､1ヶ月もあれば極められるよね

あとはCOMを何処まで使いこなせるかだけ

474:デフォルトの名無しさん
11/11/21 17:49:41.03 .net
そんな時期もありました

475:デフォルトの名無しさん
12/02/10 21:02:00.29 .net
例えば、notepad.exeを起動するvbsは？

476:デフォルトの名無しさん
12/02/10 21:08:54.09 .net
>>459
Set shell = CreateObject("WScript.Shell")
shell.Run "notepad"

477:459
12/02/10 22:23:36.81 .net
>460
分かりました。ありがとう

ところで、Option Explicitを書くとshellが宣言されてないと起こられますが
この場合、shellの型は何ですか？
あるいは、Option Explicitを書くべきじゃない？

478:デフォルトの名無しさん
12/02/10 22:46:07.22 .net
>>461
Object 型
VBScript では VB や VBA と違い、宣言で型を記述しないのであまり意識はしないが、
Object 型だけは代入時に Set を必要とするので認識は必要
あと、Option Explicit は書いた方がよい

Option Explicit
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run "notepad"

479:459
12/02/11 07:35:54.95 .net
>462
ありがとうございました

480:デフォルトの名無しさん
12/02/12 01:57:20.27 .net
Option Explicitはtypo無くしてくれるからな
昔のソース改修でstrPrinterとstrPrnterで1週間ぐらいハマった記憶
今なら真っ先に疑うけど当時はまだ慣れてなくて泣いたなぁ

481:デフォルトの名無しさん
12/03/10 23:34:01.81 .net
>>462
CreateObject()の戻り値がObject型ってだけで変数に型は無いよ
Object型を変数に代入するのに、Setが必要なだけ

その証拠に、
Set shell = CreateObject("WScript.Shell")
shell = 1 '変数に型は無いので、この代入は有効
shell.Run "notepad" '変数には数値型のデータが入っているので、ここでエラーが発生

細かい事だけど、知っているのと知らないのでは大違い

>>464
typoを無くす為にOption Explicitを宣言してはいけない
Option Explicitの宣言は、ローカル変数とグ

482:ローバル変数の区別を明確にするために宣言すべき

483:デフォルトの名無しさん
12/03/11 04:51:38.09 .net
> 変数に型は無いよ
ちょっとハズレ

正しくはVBSの変数の型は、無いのではなくValiant型のみというだけ
で、Valiant型は内部型が固定されていないのでどんな型の値をも代入することが可能だが
値が代入されている状態では、内部に歴とした型という概念が存在する

細かい事だけど、内部文字列型と内部数値型では、外がValiant型でも扱いが異なるので、
知っているのと知らないのでは大違い

> Option Explicitの宣言は、ローカル変数とグローバル変数の区別を明確にするために宣言すべき
それ、VBやVBAの場合ね
それらの場合はグローバル変数(全モジュール共通変数)とモジュール内変数の区別に役立つ
でもVBSの変数スコープには、グローバル変数、プロシージャ内変数、クラス内変数の3つがあるが
Option Explicitはこれらの区別を明確にする役目は果たさない

484:デフォルトの名無しさん
12/03/11 09:35:32.83 .net
>>466
だから、違うって
全ての変数は型が無いことを保障されてるの、これをValiant型と言います
そして、型を持っているのは、データ側であって変数ではありません
変数に型がある場合は、オブジェクト型の変数に整数を代入する事は絶対に出来ません

次に、Option Explicitは、全てのスコープにDim文を強制します
VBScriptの仕様では、Dimで宣言された変数は該当スコープでのローカル変数として確実に扱われるが、Dimで宣言されない変数は、同名のグローバル変数がある場合、グローバル変数として扱われます
ようは、使うべきでないグローバル変数を誤って使う事をしない為に使われるのであって、typo問題の為に使われているのではない
考えるまでもなく、typoによって引き起こされる問題よりも、グローバル変数への不用意なアクセスによる影響の方がはるかに大きく深刻です

485:デフォルトの名無しさん
12/03/11 10:11:16.22 .net
バリアントの綴りが間違ってた...
ValiantではなくVariantでした。

486:デフォルトの名無しさん
12/03/11 10:54:20.03 .net
なんだ、この子全然解ってないんだね

487:デフォルトの名無しさん
12/03/11 11:14:12.71 .net
>>469
そう、>>466のように変数に型があると勘違いしていると、SubやFunction、Propertyに入力されるデータの型を勝手に期待して自爆する事になるよね
特にVBScriptのClass周りには、変数に型が無い事による罠が散りばめられてるからねぇ

488:デフォルトの名無しさん
12/03/11 13:25:47.06 .net
痛すぎw

489:デフォルトの名無しさん
12/03/11 13:38:11.81 .net
>>471
そう、>>466は理解の薄い痛い子だね
無型の変数に内部型があると信じている辺りが痛すぎる
型を持っているのは、変数ではなく値なのにね

たぶん、VBScript以外のプログラミング言語を使った事が無いんだろうね

490:デフォルトの名無しさん
12/03/11 18:41:00.25 .net
>>467
横レスだけど
ローカルとグローバルでの変数名は、設計レベルで対応すべき話では？
実際の製造(プログラミング)時はtypo対策の方が重要では

そもそも、グローバルとプロシージャレベルで同名変数使うって
どれだけ可読性の低いプログラムを書くつもりかと。
普通コーディングルールで禁止されていると思うし、自分なら禁止する

個人レベルならともかく企業でもVB系言語を使う以上、Option Explicitは
BASICを、普通の(変数宣言を強制する)プログラミング言語と
同レベルに引き上げるものだと思ってるけど

とMSX-BASIC1から入って業務でVBは2(Win版。流石にDOS版は触って無い)から
使っている年寄りとしては思う

491:デフォルトの名無しさん
12/03/11 18:57:57.83 .net
QB「

492:デフォルトの名無しさん
12/03/11 19:15:38.79 .net
>>473
だから、Option Explicitをつければ、コードの再利用に際して変数名に関する問題は起こらなくなるの

493:デフォルトの名無しさん
12/03/11 20:27:28.25 .net
Dimで解決するだろ

494:デフォルトの名無しさん
12/03/11 21:49:45.91 .net
>>476
だからソースの始めに、Option Explicitが必要なんじゃんw

495:デフォルトの名無しさん
12/03/11 22:27:49.57 .net
>>477
は？
typoしないんなら必要ないだろ？

ローカルでDimし忘れたらグローバルでDimしてる変数が使われちゃうぞ

496:デフォルトの名無しさん
12/03/11 23:22:53.96 .net
>>478
お前、馬鹿だろw
Option Explicitが書いてあれば、ローカルでDim宣言されている証明になるが
Option Explicitが書いてあっても、typoしていない証明にはならない

497:デフォルトの名無しさん
12/03/12 06:39:57.23 .net
なんか、自分自身が勘違いしていて痛い奴だってことに気付いてない
蘊蓄野郎が一人でずっと頑張ってるなぁ

498:デフォルトの名無しさん
12/03/12 09:02:44.77 .net
Option Explicitでtypo対策する奴の方がよっぽど痛いけどね

499:デフォルトの名無しさん
12/03/12 19:53:12.43 .net
普通に考えて、変数名をコピペしてたらtypoなんて起きないだろ...
つーかtypoが問題になるって何十年前の開発環境だよ...

500:デフォルトの名無しさん
12/03/12 20:26:55.78 .net
入力補完じゃなくてコピペって・・・・・
それこそ何十年前だよって話だなw

程度が知れてきたぜ

501:デフォルトの名無しさん
12/03/12 20:44:07.58 .net
うはっ、入力補完機能のあるエディタ使ってて、変数名のtypoがプログラム制作上の重要課題ってw
あれだな、うちのメモ帳の方が、あんたの開発環境よりも上って事だなw
この10数年の間、変数名のtypoなんて起きた事ねぇもんw

502:デフォルトの名無しさん
12/03/12 20:56:31.62 .net
この子、相手が一人だと思ってるのかな？
俺は変数名のtypoがプログラム制作上の重要課題なんて一言も言ってないんだが
必死になりすぎて周りの現実が見えてないんだね

大勢に嘲笑されているという現実が・・・・・

503:デフォルトの名無しさん
12/03/12 21:10:17.75 .net
うはっw
とうとう、「俺はtypoなんて言ってねぇ」とか言い出しちゃいましたよ
このお方w

504:デフォルトの名無しさん
12/03/12 21:13:40.15 .net
入れ食い

505:デフォルトの名無しさん
12/03/12 21:20:02.41 .net
そもそもプロシージャとグローバルで名前重複なんて、可読性が低くて
絶対保守したくない類のソース。機械が読めても人が読みにくい。
Option Explicit以前にその時点で根本的に間違っていると思う。

それ以前に最近は「グローバル変数自体原則禁止、明示的に引数で渡すべき」
とか言われる事も多くて、高度情報処理試験の午前問題にもあったり。
ま、あくまで「原則」なんでグローバル変数を使わざるを得ない場合もあるが
独立性が低下するので再利用性が低下するのは避けられない。

つまりはスコープの違いをOption Explicitでどうこうして再利用性を上げようとする
のは方針自体が間違っている。

引数のオーバーヘッドに関しても昔はともかく今はPCの性能が十分高いので
高速策よりも安全策というか保守性を取る方が多いし。

VBSの場合は短い事もあり汎用的に使うfsoとかはグローバルな事も多いけど。

506:デフォルトの名無しさん
12/03/12 22:18:26.28 .net
>>488
馬鹿か
なんの為のスコープ分けだ
もう一度、構造化プログラムについて習いなおせ

互いのスコープが引数と戻り値のみでのみデータの受け渡しをする限り、互いの内部の処理は気にする必要は無いの

そして、VBScriptの場合は、グローバルスコープへ直接コーディングをする可能性があるから、Option Explicitによるコードの再利用性の保障が必要なんだっつうの

507:デフォルトの名無しさん
12/03/12 22:31:33.94 .net
Option Explicit「みんな！私のために争わないで！」

508:デフォルトの名無しさん
12/03/13 06:14:50.44 .net
>>489
らちが明かないから何かサンプル上げて説明してみて

509:デフォルトの名無しさん
12/03/13 09:37:52.97 .net
>>491
まず共通部分
<job id="main">
<script language="VBScript" src="test.vbs" />
<script language="VBScript">
fso = "Hello"
MsgBox Test() & vbCrlf & fso
</script>
</job>

510:デフォルトの名無しさん
12/03/13 09:39:40.86 .net
次に、test.vbs部分Option Explicit無しバージョン
Function Test()
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile("test.vbs")
Test = File.ReadAll
Set fso = Nothing
End Function

511:デフォルトの名無しさん
12/03/13 09:43:32.86 .net
こいつも、test.vbsでOption Explicit有りバージョン
Option Explicit
Function Test()
Dim fso, File
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile("test.vbs")
Test = File.ReadAll
Set fso = Nothing
End Function

512:デフォルトの名無しさん
12/03/13 21:41:15.30 .net
散々蘊蓄垂れてこのレベルか

513:デフォルトの名無しさん
12/03/13 21:50:38.27 .net
Option Explicit 云々以前の問題だな

514:デフォルトの名無しさん
12/03/13 21:51:41.48 .net
なんと見苦しい負け惜しみw

515:デフォルトの名無しさん
12/03/13 22:25:08.04 .net
>>493
＞Option Explicit無しバージョン
Option ExplicitよりもローカルのDimが無い事の方が影響大でしょ

＞ローカルDim無しバージョン
とした方がよいのでは？

別にOption Explicitによりローカル宣言とグローバル宣言の優先度が
変わったとかじゃないし

「Option Explicit」の有無「だけ」による挙動の違いを説明できないと

516:デフォルトの名無しさん
12/03/13 22:29:53.10 .net
Option Explicit
Function Test()
Dim File
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile("test.vbs")
Test = File.ReadAll
Set fso = Nothing
End Function

そんだけ言うなら、このパターンでも試してみたらw

517:デフォルトの名無しさん
12/03/14 19:42:16.87 .net
やれやれ、「Option Explicit」の使い方をようやく理解したか？
まあ、なんで、そのエラーが出るのか理解出来て無いってほうが濃厚だなw
なんせ、VBScriptの変数に内部型があるとか言っちゃうぐらいだからなぁw

518:デフォルトの名無しさん
12/03/14 19:45:33.07 .net
自身が勘違いしていた事には気付いたが、
最初に強気で蘊蓄かましてしまった手前、
引くに引けなくなって強がりを続ける465萌え

519:デフォルトの名無しさん
12/03/14 20:28:49.55 .net
>>501
ぷぷぷっ
もう、技術的な話を出来ずに口先だけかよw
「俺は、MSX-BASIC1からBASICを使ってるんだ」って言う割には大した事は無いなぁ

間違っているなら指摘しなw

520:デフォルトの名無しさん
12/03/14 20:47:40.14 .net
ところで、既に>>499を提示してからでも丸一日が過ぎようとしているのに、今更、ファイルをクローズしてないとか言わないよねw

521:デフォルトの名無しさん
12/03/14 21:55:18.55 .net
おーい、沢山いるはずの>>501よーい
技術的な指摘まだかーい
最低限、>>498みたいな、間抜けな指摘はすんなよーw

522:デフォルトの名無しさん
12/03/14 23:04:31.90 .net
もうそろそろ飽きてきた...
MSDNからのコピペ
－－－
Option Explicit ステートメント
スクリプト内のすべての変数に対して、明示的な宣言を強制します。

解説
Option Explicit ステートメントを使用する場合は、スクリプト内の他のステートメントより前に記述する必要があります。
Option Explicit ステートメントを記述した場合、変数は、Dim、Private、Public、ReDim などの各ステートメントで明示的に宣言する必要があります。宣言されていない変数名を使うと、エラーが発生します。
－－－
以上

ソースコードに、Option Explicitが記述されていると、変数の宣言は明示的に行わなければならない
つまり、>>493は、>>494に変更しなければエラーが出て実行できない

では、>>499で、変数fsoは明示的に宣言されていないのになぜOption Explicitはエラーを出さないのか
それは、グローバル変数としてOption Explicitの効果範囲外で暗黙的に宣言されているから
つまり、ローカル変数とグローバル変数が交じり合い、スコープが明確ではなくなって全ての変数が宣言済みなのでOption Explicitはエラーを出せなかった

この結果の意味するところは、Option Explicitは、スコープがあやふやな場合には、typoを検出する事は出来ない(>>499)
逆に、Option Explicitを宣言した状態で、スコープを明確にしデバッグすれば、プロシージャの独立性を保障する事ができる(>>494)

あれだ、>>498は目の付け所は良かったが、リファレンスぐらいは読んだほうが良いってこった

523:デフォルトの名無しさん
12/03/15 04:54:39.64 .net
負け犬の連投・・・

524:デフォルトの名無しさん
12/03/15 08:42:06.70 .net
>>506
まだやる気かw
頑張って反論よろしくw

525:デフォルトの名無しさん
12/03/17 10:04:12.29 .net
>>462
変数shellがObject型w
間違いを指摘されたら、>>466で内部文字型と内部数値型では扱いが違うとかw

つまりあれかw
MsgBox "123"+4+"5"
はエラーなんだw
なんかカッケーなw

526:デフォルトの名無しさん
12/03/17 14:33:29.53 .net
こんなとこまで来ちゃうお前らの為じゃねーよ
適当にやったけど動いたからいーや的思考な
困ったくんや困ったﾁｬﾝの為に書いてんだよOption Explicit
詳しい人が必ずメンテするとは限らないのがVB系の怖いとこで

527:営利利用に関するLR審議中＠詳細は自治スレへ
12/04/07 09:29:55.75 .net
こんなところに来ない人のための事をここに書いて意味あるんですか？

528:デフォルトの名無しさん
12/06/10 17:05:31.39 .net

529:デフォルトの名無しさん
12/07/16 00:40:56.77 .net
今までUWSC（フリーソフト）を使っていましたが、最近、VBScriptを知り、同じような処理ができることを知りました。

VBScriptを勉強中です。
分からないことがあればよろしくね。

530:デフォルトの名無しさん
12/07/16 01:26:02.69 .net
だれか3000円上げるから
２４平均律の鍵盤プログラム作ってくれ～(T_T)

531:デフォルトの名無しさん
12/07/16 01:27:51.13 .net
作曲するのに使います
音色はピアノ音だけでOKです

532:デフォルトの名無しさん
12/07/16 09:32:19.09 .net
コンパイルしたプログラムなら3'000円でいいけど
ソース(ソース丸見えのVBS…というか鍵盤必要ならHTA)で欲しいなら150'000円

533:デフォルトの名無しさん
12/07/16 10:42:01.70 .net
>>515
言葉の意味がよくわからないけど
3000円の方でお願いします

534:デフォルトの名無しさん
12/07/16 10:50:19.70 .net
白鍵とか黒鍵は
ないようなもんなんで
ボタンがズラリと並んでるだけでOKです
Ｅの位置だけボタンにＥって書いてくれたらOKです

535:デフォルトの名無しさん
12/07/16 19:11:52.43 .net
よくわからんけど初音ミクじゃだめなの？

536:デフォルトの名無しさん
12/07/16 19:47:57.27 .net
リアルタイムで音を確認しないと何かね……確信持てないっていうか
シーケンスでやってその日は納得いっても
次の日に聞いたらアレ？って事ばかりなんで

537:デフォルトの名無しさん
12/08/05 23:38:48.37 .net
煽り潰しですね

538:デフォルトの名無しさん
12/08/27 21:54:39.96 .net
知恵袋にも登録したのですが、どうしても知りたいのでご教示お願い致します。
マクロを実行して、他のファイルのマクロまで編集できますか。
いろいろグーグルで調べたのですが、どうもヒットせず実行できそうにありません。
作成したいファイルは追記します。
１．エクセルファイル内にボタンフォームを作り（このファイルを便宜上、ファイル①とする）、ボタンフォームを押すと新しいエクセルファイルが作成される（このファイルを便宜上、ファイル②とする）。
２．次にファイル①から１．とは別のボタンフォームを押すと、「挿入＞図＞ファイルから」と同じ要領で画像を選択でき、②ファイル内のSheet1・セルA1に画像が貼り付けられる。
３．最後にファイル①に設置した１．と２．とは別のボタンフォームを押すと、ファイル②のVBScriptにスクリプトが書き込まれる（出来ればVBScriptをパスワード保護出来れば幸いです）。
という流れをファイル①のVBScriptなり、モジュール等を使って行いたいのです。
３にあるマクロは、上書き保存ができなくなるマクロのため、１の段階で保存ができると幸いです。
また、複数ファイルを処理する必要が有るため、同一ファイル名で保存しない仕様を求めています。

539:デフォルトの名無しさん
12/08/27 22:31:18.85 .net
全部出来ますよ
但し、マルチな上にスレ違いなので、具体的な説明は伏せますが

540:デフォルトの名無しさん
12/08/29 19:05:51.32 .net
VB・・・・・Sなのか？

541:デフォルトの名無しさん
12/08/30 22:38:44.70 .net
ExcelでVBS……

ワークシートにボタンに見せかけたオブジェクトを貼り、
押すとハイパーリンクで外部のVBScriptを実行する
とかならやった事がある

542:デフォルトの名無しさん
12/08/30 23:09:40.69 .net
ExcelからVBSを呼ぶだけのパターンか

俺は逆にVBSからExcel.Applicationを使って
Excelブックを操作するってことを結構やるな

「ExcelでVBS」ではなく、「Excel"を"VBSで操作」ってこった

ExcelからVBSを呼ぶくらいなら、そのVBSを標準モジュールなどに取り込んで
わざわざ外部のVBS呼ばずに内部実行するし

543:デフォルトの名無しさん
12/08/31 10:20:07.61 .net
ってか、VBSならふつうそうでしょ

544:デフォルトの名無しさん
12/08/31 10:21:36.68 .net
だよな
>>524がなんんか面倒くさいことやってるだけで

545:デフォルトの名無しさん
12/09/01 22:37:19.11 .net
一応、マクロを無効にしたExcelからでも実行できるというメリットはあるけど

546:デフォルトの名無しさん
12/09/02 18:43:55.29 .net
officeのマクロはjsに移行するよ
おまえらの書いたVBSなんて保守したくないし、頼むからせめてjsで書いてくれ

547:デフォルトの名無しさん
12/09/02 19:19:43.98 .net
webで使う場合はjsに軍配挙がるけど
wshやテキストエディタのマクロとかはvbsがいいな

つーかvbsの前に、jsしか使えないバカを淘汰して欲しい
vbsしか使えないバカも同じくね

548:デフォルトの名無しさん
12/09/02 20:05:38.74 .net
>>529
VBSの保守をしたくないんじゃなく、VBSを保守する能力が無いの間違いだろ？

549:デフォルトの名無しさん
12/09/03 19:06:20.84 .net
VBSにはプログラム言語としての長所は微塵もないよ
既に言語からもユーザーからも加齢臭とか腐敗臭とか漂わせている

550:デフォルトの名無しさん
12/09/03 19:20:10.07 .net
>>532
Win32 APIの呼び出しができればいんだけどね
もう絶望的かな

551:デフォルトの名無しさん
12/09/04 10:26:00.19 .net
言語なんてなんでもいいよ

552:デフォルトの名無しさん
12/09/23 11:02:10.28 .net
SFC miniかExcel経由で行けるけどキモいよな
しかし生のVBSからwin32api呼べたら怖くてエロサイト行けなくなる

553:デフォルトの名無しさん
12/10/13 09:50:15.66 .net
いまメモ帳で頑張ってるんだけど、
("text").Value = rnd
このtextに乱数の直前に文章を入れたいんだけどどうすればいい？
必要なら全文載せる

554:デフォルトの名無しさん
12/10/13 09:53:17.73 .net
3行目を読み返せ。

555:デフォルトの名無しさん
12/10/13 10:43:46.18 .net
乱数の直前に文章を入れる？

単純に　& で連結したらいいと思うが…

msgbox "文章"　& rnd

556:537
12/10/13 10:55:59.62 .net
＞このtextに乱数の直前に文章を入れたいんだけどどうすればいい？
乱数の直前に、このtextに文章を入れたいんだけどどうすればいい？

557:デフォルトの名無しさん
12/10/13 11:01:38.99 .net
ありがとうございます

558:デフォルトの名無しさん
12/10/21 07:59:37.35 .net
CreateObjectのIEでブラウザの操作を自動化するスクリプト作っててサイトへのログインは自動化できたんだけど、
その後のページにあるボタンを押す動作ができなくて行き詰まってる…

流れとしては
1.　ID、PWを入力してログインボタンを押す
2.　TABキー15回+ENTERでボタンを押す
　　　(ページが切り替わる)
3.　TABキー15回+ENTERでボタンを押す　←ここからうんともすんとも言わない

1、2は処理に成功してるんだけど、3が何も起こらない(エラーも表示されない)
3が動作しない原因はなんなんだぜ？

559:デフォルトの名無しさん
12/10/21 08:18:06.54 .net
そこのソース撮ってくれ。

560:デフォルトの名無しさん
12/10/21 09:09:12.73 .net
'1.ログイン
.document.all.Item("userId").Value = MemID
.document.all.Item("passWd").Value = UsrPass
.document.all.Item("btnLogin").Click
While .Busy Or .ReadyState <> 4
Wend
'2.切断
WshShell.SendKeys("{TAB 15}")
WshShell.SendKeys("{ENTER}")
While .Busy Or .ReadyState <> 4
Wend
'3.接続
WshShell.SendKeys("{TAB 15}")
WshShell.SendKeys("{ENTER}")
While .Busy Or .ReadyState <> 4
Wend

>>542
これでいいかな？
なぜか「3.接続」を実行できないんよ（´・ω・`）

561:デフォルトの名無しさん
12/10/21 09:32:48.54 .net
ＷＳＨには、こんな使い方もあるんだ！
While
　　WScript.Sleep 100
Wend
とかの時間間隔入れてみれば？
URLﾘﾝｸ(www.atmarkit.co.jp)

562:デフォルトの名無しさん
12/10/21 10:04:09.14 .net
>>544
ありがとう！できたよ！
↓ReadyStateを3とSleep 1000を組み合わせたらなぜかいけたｗｗ

'ログイン
.document.all.Item("userId").Value = MemID
.document.all.Item("passWd").Value = UsrPass
.document.all.Item("btnLogin").Click
While .Busy Or .ReadyState <> 4
Wend
'切断
WshShell.SendKeys("{TAB 15}")
WshShell.SendKeys("{ENTER}")
While .Busy Or .ReadyState <> 3
Wend
'接続
WScript.Sleep 1000
WshShell.SendKeys("{TAB 15}")
WshShell.SendKeys("{ENTER}")
While .Busy Or .ReadyState <> 3
Wend

563:デフォルトの名無しさん
13/01/05 10:19:06.02 .net
Explorerを起動して任意のフォルダ（ドライブ）を指定で起動する。
その際、n階層下のフォルダまで自動的に展開した状態で開いて欲しい。

通常　　　　→　これを　→　　1階層指定で展開済み起動
d:[+]フォルダＡ　　　　　　　d:[-]フォルダＡ
　[+]フォルダＢ　　　　　　　　　[+]子フォルダ1　　　　←孫フォルダ（2階層下は存在してても展開しない）
　[+]フォルダＣ　　　　　　　　　　子フォルダ1
　　　　：　　　　　　　　　　　　[-]フォルダＢ
　　　　　　　　　　　　　　　　　　　　：

ドライブルートから1階層下までの固定展開する機能は必須です。
可能ならば起点がドライブルート固定では無くて、パス指定で起点となるフォルダの指定と
自動展開する階層数が1階層で無くソースで指定する箇所があれば出来れば最高に嬉しいです。

564:デフォルトの名無しさん
13/01/05 11:27:15.02 .net
ここは作ってくれって頼む場ではなく
こんな便利なの作ったけどどうよ？って作ったモノを晒す場だぞ

まあ>>546程度のことは多機能ファイラならコマンドやマクロで出来るので
完成したとしても晒してくれなくて結構だがな

565:デフォルトの名無しさん
13/05/04 00:22:48.17 .net
>>547 は？スレタイ読め

566:デフォルトの名無しさん
13/05/06 18:32:10.90 .net
アンカーがズレてるぞ

それともスレの趣旨を理解してないおバカさんかな？

567:デフォルトの名無しさん
13/05/31 02:33:30.04 .net
>>547
エクスプローラでやるから意義があるんだろ
ってか4ヶ月もたつのに反応してくんなや
正確悪すぎてきもい

568:デフォルトの名無しさん
13/05/31 19:26:22.45 .net
えっ？ってなったった

569:デフォルトの名無しさん
13/06/14 11:40:12.42 .net
> 4ヶ月もたつのに反応して
るのは>>548だなw

570:桃白白 ◆9Jro6YFwm650
13/06/23 00:49:56.40 .net
　　　　|┃三　　　　 ∩＿＿＿∩
　　　　|┃　　　　　 | ノ　　　　　ヽ
　　　　|┃　≡　　/　　●　　　● |　　＜あどうも、こんばんわー！
＿＿__.|ミ＼＿＿_|　　　　( _●_)　ミ
　　　　|┃=＿＿＿　　　　|∪|　　　＼
　　　　|┃　≡　　　）　　　ヽノ　　　人＼ガラッ

571:デフォルトの名無しさん
13/06/23 10:09:22.10 .net
会社で入力するのめんどいからいろいろVBSで自動化してる。
会社の規則的にやばいので、今はやってないけど自動的にWindowsにログインするようにしてた。

572:桃白白 ◆9Jro6YFwm650
13/06/24 23:09:44.12 .net
CsvをHTMLのTableに変換しちゃう
URLﾘﾝｸ(friendpaste.com)

573:デフォルトの名無しさん
13/06/26 21:08:23.54 .net
CSVファイルをドラッグ&ドロップで読み込んで、
2行目の先頭3文字を抽出してください

574:デフォルトの名無しさん
13/07/01 NY:AN:NY.AN .net
VBSってどんなプログラム作れるの？

575:デフォルトの名無しさん
13/07/02 NY:AN:NY.AN .net
COM使わなきゃ大したことは出来ないが
COM使えば大抵のことは何でも出来る

まあ組み込みCOMだけじゃまだ貧弱だが
COMは優秀なものが腐るほどあるし、自分で作ることも出来る
COM使えばGUIだって作れるし、
WinAPIだってNET Frameworkの全てだって使える

576:デフォルトの名無しさん
13/07/04 NY:AN:NY.AN .net
WMIが便利そうだけど、あまりにも書籍などが少ない

577:デフォルトの名無しさん
13/07/04 NY:AN:NY.AN .net
書籍なんか無くても、ネット上の情報だけで事足りるけどな

余程頭が悪くなければ・・・

578:デフォルトの名無しさん
13/07/05 NY:AN:NY.AN .net
暇がある人は時間かけてネットの情報探せばいいさ
その暇を惜しむから、まとめて書籍にしてくれと思うわけで

579:デフォルトの名無しさん
13/07/05 NY:AN:NY.AN .net
暇ってw
まとめてWMIの情報載ってるページに行き着くのに10秒とかからんだろ？
あとはサイト内検索とページ内検索を駆使すれば、書籍の目次からページを辿るより早いし

それすらも出来ないようなレベルだと、WMIを使いこなすのは無理じゃね？

580:デフォルトの名無しさん
13/07/05 NY:AN:NY.AN .net
まとめてって言葉の真意が伝わってないな
情報を集める事だけがまとめる事じゃないぞ

581:デフォルトの名無しさん
13/07/05 NY:AN:NY.AN .net
もちろん

582:桃白白 ◆9Jro6YFwm650
13/07/05 NY:AN:NY.AN .net
戦士は胸に一つのバブルソートを抱く
桃白白ブレイブストーリーである。

順番を維持したまま、重複行を除去しちゃう。
URLﾘﾝｸ(friendpaste.com)

583:デフォルトの名無しさん
13/07/06 NY:AN:NY.AN .net
>>565
このサイトのセキュリティ証明書には問題がありますｗｗ
って表示されるの。白桃おじさん、他のサイトがいいよ。

584:桃白白 ◆9Jro6YFwm650
13/07/06 NY:AN:NY.AN .net
>>566
friendpasteを例外に追加しちゃったらいいよ。たぶんブラウザの設定で
できるはずだから。見た？桃白白ブレイブストーリーのコード見た？
感想とかある？とてもすてきなコードですねとかそういう感想ある？
あとこれ桃白白。
URLﾘﾝｸ(livedoor.blogimg.jp)

585:デフォルトの名無しさん
13/07/06 NY:AN:NY.AN .net
>>567
バブルソートってやつじゃないのね
よくわかんない
簡単に解説ちょうだい

586:桃白白 ◆9Jro6YFwm650
13/07/06 NY:AN:NY.AN .net
>>568
つまりこういうことなの。
URLﾘﾝｸ(uploda.cc)

587:デフォルトの名無しさん
13/07/06 NY:AN:NY.AN .net
>>565と、Scripting.Dictionaryを使った方法(コードは十数行)で
10万行の重複削除の処理時間を比べてみた

>>565　　　　　　　　　１９０５．６８６秒
Scripting.Dictionary　　　　０．１７８秒

これが、初期状態では入ってないCOMを使った方法と比べて遅いってだけなら
いくら遅くても「新たにCOMをインストールせずに実行できる」って点がメリットになるけど
初期状態で入っていて「新たにCOMをインストールせずに実行できる」Scripting.Dictionaryを
使った方法より遅いのでは、何のメリットも無い

Cとかのまともな言語なら、ライブラリやコンポーネントを使った方法より劣っていても、アルゴリズムの
勉強や研究用として多少は価値あるかもだが、VBSではそういう方向の価値も無いし、完全にゴミ

VBS覚えたてでコード書くのが楽しくて仕方ない時期の初心者さんに言っても無駄かもだが
もう少し適材適所ってものを考えられるようになった方がいいかもな

次ページ