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

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

[前50を表示]
650:デフォルトの名無しさん
18/07/04 23:59:09.15 gFgZc5FG.net
TO3

651:デフォルトの名無しさん
18/08/21 12:58:35.50 2l7tVH8h.net
ショートカットを『スタートにピン留め』
フォルダを『クイックアクセスにピン留め』
Windows10なのでよろしく。

652:ピラフ
18/09/02 15:58:55.25 uO0ayeCX.net
>>633
任せて
URLﾘﾝｸ(gist.github.com)

653:ピラフ
18/09/02 16:00:04.92 uO0ayeCX.net
ピラフの環境だと
Verb.DoItを2回呼ばないと反映されなかったんだよね
なんなんだろこれ

654:デフォルトの名無しさん
18/09/05 20:51:41.21 223DM7Lb.net
>>635
どうせどっかのコピペだろ。
お前のコードはいちいちスタイルが違い過ぎる。
氏ね。

655:ピラフ
18/09/05 22:59:35.09 BuNkH2Jq.net
>>636
形に拘ってるようじゃピラフには一生勝てないよ

656:ピラフ
18/09/05 23:11:54.62 BuNkH2Jq.net
見せてやるよ、形式に囚われないピラフの究極奥義
SUB SWAP(A, B, C)
　C = A
　A = B
　B = C
END SUB
SUB SORT(A, I, J)
　FOR I = 1 TO UBOUND(A)
　　FOR J = 1 TO UBOUND(A)
　　　IF A(J - 1) > A(J) THEN SWAP A(J - 1), A(J), EMPTY
　　NEXT
　NEXT
END SUB
SUB MAIN(A)
　A = ARRAY(5,4,3,2,1)
　SORT A, EMPTY, EMPTY
　WSCRIPT.STDOUT.WRITELINE JOIN(A, ",")
END SUB
MAIN EMPTY

657:ピラフ
18/09/05 23:14:07.11 BuNkH2Jq.net
ローカル変数を最小にすることによってバグを最小化できる
これこそがVBScriptプログラミングの真髄

658:デフォルトの名無しさん
18/09/06 07:24:37.16 ezd+bzmC.net
こいつまだいたのかよ
一生ソートやってそうｗｗｗｗ

659:ピラフ
18/09/06 07:32:32.39 ndioKak8.net
>>640
奥義についての感想をいただけたら

660:デフォルトの名無しさん
18/09/06 07:36:00.23 ezd+bzmC.net
競技プログラミングですでにやってるわ
そんなのアスぺ自慢にもならない

661:ピラフ
18/09/06 07:43:37.26 ndioKak8.net
ちょっと何言ってんのかよくわからない

662:デフォルトの名無しさん
18/09/06 17:19:09.87 ezd+bzmC.net
そりゃお前だからだろ
スレの趣旨も理解できてなさそうだし
そろそろ出てきても大丈夫とか思っちゃったんだろうか

663:ピラフ
18/09/06 22:09:39.70 VSCSfufl.net
クソレスすんなゴミ

664:デフォルトの名無しさん
18/09/06 23:45:24.23 ezd+bzmC.net
お前が来なければ何の問題もないんだよ
バブルソートも満足に組めないゴミのくせにｗｗ

665:デフォルトの名無しさん
18/09/07 01:27:31.43 mHXQx/fB.net
>>7-8
うまく動かないのは、
> PASS_WRD = PASS_WRD + "2 3 4 5 6 7 8 9 2 3 4 5 6 7 8 9 2 3 4 5 6 7 8 9 "
と
> MOJISYU_C = MsgBox("記号を使いますか？",vbYesNo)
の間に
End If
が抜けているからだ。
11年半待たせたな。

666:ピラフ
18/09/10 22:04:51.82 EFF3DhTd.net
>>646
>>638で完全な実装を我は示した、それでも満足できぬと申すか？
どうなんだ？おん？

667:デフォルトの名無しさん
18/09/10 22:10:48.32 ioZkQTlp.net
>>648
スレ違いだバカ

668:ピラフ
18/09/10 22:16:42.81 EFF3DhTd.net
>>649
うるせーバカ

669:ピラフ
18/09/10 22:17:47.07 EFF3DhTd.net
ピラフのバブルソートに満足できないなら何が不満かを言いなさいよ

670:デフォルトの名無しさん
18/09/10 22:21:13.47 ioZkQTlp.net
こいつバカだから聞き出そうとしてんだろ
テメーの教育スレじゃねえよ

671:ピラフ
18/09/10 22:29:04.16 EFF3DhTd.net
>>652
バブルソートも満足に組めないと言ったから
どこが不満なのかお聞きしたのに答えられないって
なんなのそれ、パーフェクトバブルソートってことでいいね？

672:ピラフ
18/09/10 22:31:31.94 EFF3DhTd.net
言っとくけどピラフの奥義はバブルソートだけじゃないから
君たちがのんべんだらりと怠惰な生活を送ってる間に
ピラフは厳しい修行を積んで圧倒的成長を遂げたから

673:デフォルトの名無しさん
18/09/10 22:33:49.16 ioZkQTlp.net
>>653-654
だからスレ違いだって言ってんだよバカ

674:ピラフ
18/09/10 22:35:08.44 EFF3DhTd.net
>>655
だからうるせーバカ

675:デフォルトの名無しさん
18/09/10 22:40:37.66 ioZkQTlp.net
>>656
てめーに来る権利なんかないんだよ
スレ違いだって言ってんだバカ

676:ピラフ
18/09/10 22:41:27.56 EFF3DhTd.net
>>657
静かにしろよ、子どもが起きるでしょうが！！

677:ピラフ
18/09/10 22:41:50.85 EFF3DhTd.net
子どものことを考えて欲しい

678:デフォルトの名無しさん
18/09/10 22:46:49.70 ioZkQTlp.net
>>658-659
微妙に方向を変えてレスされないよう工夫してるつもりのバカ

679:ピラフ
18/09/10 22:48:21.82 EFF3DhTd.net
>>660
子どもには寝る権利がある、君は優しい人だから子どもには手を出せない
君の負けだよ、子どもがどうなっても良いのか！

680:ピラフ
18/09/10 22:49:32.47 EFF3DhTd.net
ところでさ黄金のハンマーがあったら何でもかんでも叩きたくなるっていう
プログラミング業界で広く知られた寓話があるけれども
ピラフは厳しい修行を積んで習得した奥義を披露したくて仕方がないよ
実験台になってくれる？

681:デフォルトの名無しさん
18/09/10 22:50:39.35 ioZkQTlp.net
昔から嫌われてるようだけどこの態度を見れば当然だよな

682:ピラフ
18/09/10 22:55:31.48 EFF3DhTd.net
>>663
でも君はボッチじゃん
ピラフもボッチじゃん
これからもボッチコンビとしてやっていこうよ
君はピラフのこと嫌いじゃないでしょ？それで十分だよ

683:デフォルトの名無しさん
18/09/10 22:57:11.75 ioZkQTlp.net
>>664
てめーの雑談スレじゃねえんだよ

684:ピラフ
18/09/10 22:59:33.34 EFF3DhTd.net
>>665
いいじゃん、どうせ誰も書き込まないし
スレが埋まったらまたスレ建てればいいし
何を気にすることがあろうか
いまどきVBScriptの話する人なんて
ピラフと変態の君くらいだよ

685:デフォルトの名無しさん
18/09/10 23:01:24.61 ioZkQTlp.net
まあどうせ自分のレスを最後にして終わりにしたいだけだろ
こいつバカだから

686:ピラフ
18/09/10 23:01:29.79 EFF3DhTd.net
ちなみにピラフの奥義は配列に関するものです
Array(Array(Array("a"), "b"), "c")
こういう入れ子になった配列を
Array("a", "b", "c")
というように平坦化します
名付けてフラッテンです

687:ピラフ
18/09/10 23:02:34.99 EFF3DhTd.net
>>667
あまり変な綾つけてるとフラッテンを発動せざるを得ないが？

688:デフォルトの名無しさん
18/09/10 23:03:11.10 ioZkQTlp.net
悔しさに耐えきれず出てきてしまったバカ >>648

689:ピラフ
18/09/10 23:04:13.53 EFF3DhTd.net
>>670
クソレスすんなクズ

690:ピラフ
18/09/10 23:04:30.71 EFF3DhTd.net
はい勝利

691:デフォルトの名無しさん
18/09/10 23:05:44.11 ioZkQTlp.net
嫌がらせをするために生まれてきたとしか思えないようなクズだよな

692:デフォルトの名無しさん
18/09/10 23:09:43.33 ioZkQTlp.net
>>634-635
汚名返上大失敗

693:ピラフ
18/09/11 22:25:27.29 sKts/OLx.net
>>673
秘奥義フラッテンを伝授してやっても良いけど？

694:ピラフ
18/09/11 22:25:46.20 sKts/OLx.net
教えようか？しょうがないなあもう！

695:ピラフ
18/09/11 22:29:50.82 sKts/OLx.net
フラッテンというのはArray(Array("a"))このように
入れ子になった配列をArray("a")このように平坦化するメソッドです
VBScriptは配列を中心にプログラムを組み立てる
Array Orietedな言語と言っても過言ではありません
それくらいVBScriptにとって配列は重要なデータ構造であり
いかに配列とうまく付き合うかがプログラムの出来を大きく左右します
フラッテンを知ることでVBScriptで信頼性の高いプログラムを
作ることができるようになります

696:ピラフ
18/09/11 22:33:42.97 sKts/OLx.net
まず、フラッテンによってどのようにデータが変換されるのかを学びましょう
Array("a") => Array("a")
もともと平坦な配列はそのままです
Array(Array("a")) => Array("a")
入れ子になった配列は平坦化されます
Array(Array(Array("a"))) => Array("a")
入れ子が入れ子になっていても平坦化されます
Array("a", Array("b", Array("c"))) => Array("a", "b", "c")
値と配列が混在して格納されていても平坦化されます
どうです？フラッテンの威力はすごいでしょう？

697:さまよえる蟻人間
18/09/11 22:52:10.95 qY

698:6EWQ/c.net

699:ピラフ
18/09/11 23:13:01.51 sKts/OLx.net
>>679
フランケンは人造人間を作った博士のこと
フラッテンはピラフが厳しい修行の末に身に着けた奥義
フリテンはちんちん丸出しのこと

700:ピラフ
18/09/11 23:14:54.59 sKts/OLx.net
おちんちん

701:デフォルトの名無しさん
18/09/11 23:40:56.45 hTiklz9U.net
すごいでしょ？と言われたってなぁ…
明日検証してみるけど、もし正しいとして、これが役に立つ場面より役に立たない場面の方が多い。
配列が重要なデータ構造？
馬鹿じゃないのか？
配列はどうしようもなく仕方なく使うという以外に使ってはいけない過去のもの。

702:デフォルトの名無しさん
18/09/12 17:20:41.01 7YUXioF8.net
相変わらずスレの私物化が甚だしいな
伝授とかいってるけど覚えたことを逐一報告したいだけだろｗｗｗ

703:デフォルトの名無しさん
18/09/12 17:22:01.32 lDPRUKn6.net
それは新興宗教か何かですか

704:さまよえる蟻人間
18/09/12 21:47:14.91 /dqYRCG2.net
フリテンはマージャン用語だよ。

705:デフォルトの名無しさん
18/09/12 21:51:36.87 sZhJcjcO.net
>>682
配列を使わないってよりは
配列みたいなプリミティブはラップして使う

706:ピラフ
18/09/12 22:28:29.59 +TYzcb05.net
>>685
アリさんはホント物知りですね

707:ピラフ
18/09/12 22:29:24.88 +TYzcb05.net
>>683
じゃー君はピラフから教わらずに実装できるのかい？
できないだろう、自信がないだろう、じゃー素直に教わったら良いよ

708:ピラフ
18/09/12 22:29:42.76 +TYzcb05.net
>>682
おいフラッテン、実装はまだか？

709:ピラフ
18/09/12 22:30:49.46 +TYzcb05.net
ピラフが上流工程担当で仕様と設計を担当します
 >>682は詳細設計から先をお願いします

710:デフォルトの名無しさん
18/09/12 22:44:30.25 7YUXioF8.net
>>688
連投するほど動揺するくらいなら大人しく引っ込んでろよｗ

711:ピラフ
18/09/12 22:50:23.36 +TYzcb05.net
>>691
クソリプすんなゴミ

712:デフォルトの名無しさん
18/09/12 22:55:30.55 7YUXioF8.net
>>692
荒らしてんじゃねえよ
ゴミはゴミ箱に入ってろ
ｽﾚﾘﾝｸ(tech板)

713:ピラフ
18/09/13 22:21:35.80 DSrr8M1w.net
はいみなさんこんばんわ
フラッテンプロジェクトの進捗報告会を始めます

714:ピラフ
18/09/13 22:23:30.41 DSrr8M1w.net
仕様と設計は先日終わりました
詳細設計と実装はいま何％くらいでしょうか？
>>693ご担当の方からご説明頂いてもよろしいでしょうか？

715:ピラフ
18/09/13 23:12:27.84 DSrr8M1w.net
うー

716:デフォルトの名無しさん
18/09/13 23:59:12.24 fcaQm85V.net
ほんとしつこいよな、このガイジは
施設に帰れよ
ｽﾚﾘﾝｸ(tech板)

717:デフォルトの名無しさん
18/09/14 00:46:53.14 XI/3JNqP.net
　　　　　　 ::　　　　　　　　　　　　　　 .|ﾐ|
　　　　　　　::　　　　　　　　　　　　　.|ﾐ|
　　　　　　　　::　　　　　　　　　　　　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー､　　　　　　　::
　　 ::　　　　　　／　　　,,.-'"　　　　　　ヽ　ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　ヾ (　　　 _,,.-='==-､ヽ　　　　　ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　ヽ　
　　 ::　　 ./ /　　＞＝'''"　￣￣￣　　　　　　　　　ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　／　::
　　　　ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_

718:　　　__ -_'"--''"ニニニニニニニﾆヽ　　 :: 　　　　　　　　｀¨i三彡--''"´　　　　　　　　　　　ヽ　　:: 　　　　　　　　　　 /　　　　　　　　　　　　　　　　　　ヽ　:: 　　　　　　　　　　┼ヽ　 -|r‐､.　ﾚ　| 　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ

719:ピラフ
18/09/14 06:33:19.85 8u/1qVBS.net
クソレス君さえいなければ

720:デフォルトの名無しさん
18/09/14 07:48:23.54 zTYotrd2.net
都合の悪い事には一切触れないのはいつものこととしても、
自分の立てた糞スレはもう無かったことになってんのかよｗｗ
これもしかしてVBSに限定しないでなるべく人を集めたかったのかな？
実質誰にも相手にされてないからってこっちくんなよガイジ
ｽﾚﾘﾝｸ(tech板)

721:ピラフ
18/09/14 22:11:43.07 HVqp1HzB.net
クソレスすんなバーカ

722:デフォルトの名無しさん
18/09/14 23:47:35.98 zTYotrd2.net
手抜きレスでだいぶ面倒くさそうだけどだったら引っ込んでろよガイジ
この糞スレ見れば分かるようにお前なんか誰からも必要とされていない
ｽﾚﾘﾝｸ(tech板)

723:ピラフ
18/09/15 00:10:34.95 Abot0dLt.net
やだ！
ピラフ他人の指図受けたくない！
ピラフ自由にやりたいだけ！
お前らがどうなろうと知った事ない

724:ピラフ
18/09/15 00:13:02.93 Abot0dLt.net
　　　　　 .＿
　　　　　＼ヽ,　,、
　　　　　　　`''|/ﾉ
　　　　　　　　.|
　　　　＿　　　|
　　　　＼｀ヽ、|
　　　　　＼, V
　　　　　　 `L,,_
　　　　　　　 |ヽ､)　 ,､
　　　　　　　 /　　　　ヽYﾉ
　　　　　　 /　　　　r''ヽ、.|
　　　　　　|　　　　　`ｰ-ヽ|ヮ
　　　　　　|　　　　　　　`|
　　　　　　|.　　　　　　　 |
　　　　　　ヽ、　　　　　　|
　　　　　　　ヽ＿＿＿_ﾉ　　　　　
　　　　　　　／_ノ '　ヽ_＼
　　　　　　／（≡）　（≡）＼
　　　　／::::::⌒（__人__）⌒::::: ＼　　　　　
　　　　 |　　　　　|r┬-|　　　　　|　　　　　
　　　　＼　　　 `ー'´ 　　／
　　　　　／　　　　　　　　　　＼
　　　　 (　 |　　　　　　　　　 |　 )
　　　　　＼|　　　　э　　　　|／
　　　　　　 (　　　　,,,,　　　 ,ﾉ
　　　　　　　＼　､(Ｕ)ﾉ　ノ
　　　　　　　　＼／　／　　　　　　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　／　／＼　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ　
　　　　　 ⊂⌒＿＿）＿＿）

725:デフォルトの名無しさん
18/09/15 00:39:59.44 ffOGYC3P.net
>>704
すごいどうやったの？
ちんちんの話じゃなくてトリップどうやったの？
ハッシュ値を総当たり？辞書を片っ端から調べた？
文字種が英数字58文字、文字列長が12だとして70ビットくらいでしょ
ハッシュ値の総当たりでやったとしたらすごい
できるもんなんだね
ちなみにピラフのトリップはこれ
Rembrandt Harmensz. van Rijn
レンブラント・ファン・レイン、画家の名前、すごくおしゃれ

726:ピラフ
18/09/15 00:48:24.81 Abot0dLt.net
ピラフって可愛くて天才で皆から慕われる人気者でしょ
だから妬みたくなるのは至極当然なの
といってもピラフを騙るなんて恐れ多い真似は普通はしないでしょ
あまりにショックだからピラフ死のうと思うの
でもピラフが死んだらみんな悲しむよね
だから死なない

727:デフォルトの名無しさん
18/09/15 01:00:36.26 ffOGYC3P.net
君はピラフに成りたかったんだね
良いよ、君が今日からピラフだ

728:ピラフ
18/09/15 01:08:51.59 Abot0dLt.net
>>705
トリップキーなんか数年前に流出してるのに何がしたいんだオメーわ
QZもそうだけどそんなの知ってて使い続けてるんだってば
お前はそうやってピラフの背中を追い続けてるといいよ
ピラフを追い越すことなんか一生できないから

729:デフォルトの名無しさん
18/09/15 01:11:03.66 ffOGYC3P.net
>>708
ピラフの大事なトリップが流出してただと・・・なんだと・・・
じゃあいままでピラフと名乗ってたのは全部・・・

730:デフォルトの名無しさん
18/09/15 01:12:16.38 ffOGYC3P.net
おらーピラフさっさとフラッテンの授業進めろよ

731:ピラフ
18/09/15 01:24:05.26 Abot0dLt.net
　　　　　�

732:Q＿＿_ 　　　　／⌒　　⌒＼　　　／（ ●）　（●）＼　　　フリチン？なにそれ　／::::::⌒（__人__）⌒::::: ＼　　ピラフ超絶美少女だから無理　 |　　　　　|r┬-|　　　　　| 　＼　　　 `ー'´ 　　／

733:デフォルトの名無しさん
18/09/15 01:40:47.98 ffOGYC3P.net
差し支えなければおパンツの色を教えてもらっても良いでしょうか？

734:ピラフ
18/09/15 01:42:03.03 Abot0dLt.net
なんかしつこそうだから以降は↓で
ｽﾚﾘﾝｸ(tech板)

735:デフォルトの名無しさん
18/09/15 07:02:45.41 8rxpHkWL.net
ピラフのパンツ祭りと聞いて

736:デフォルトの名無しさん
18/09/15 08:44:28.77 grwiTkg6.net
ピラフの自演と聞いて

737:デフォルトの名無しさん
18/09/15 12:04:01.66 OIBexEj7.net
基地外が居ると聞いて

738:ピラフ
18/09/15 12:27:29.09 WPyz+R4a.net
>>714->>716
　　　∩∩∩　　　　　　　 ∩∩∩
　　.∩_:||_:|_:|　　　　　　　　|_:||_:|_:∩
　　│　___　つ　　　　　⊂ 　___　│
　　ヽ　　ノ　　＿＿＿　　ヽ　　ノ
　　／／　　／_ノ　ヽ､_＼　　ヽ＼
　 ( 　く　　 oﾟ(（●）) (（●）)ﾟo　　>　）　　クソレスすんなバーカ
　　＼　｀／::::::⌒（__人__）⌒::::＼'　／
　　　ヽ|　　　　　|r┬-|　　　　　|/
.　　　　＼　　 |　|　 | 　　／
　　　　　　　　　　|　|　 |
　　　　　　　　　　 `ー'´

739:さまよえる蟻人間
18/09/17 21:19:36.46 yTXbMS5S.net
それじゃあ出題するね。
あるフォルダの中にある、ファイル名とファイルの中身を一気に置き換えるプログラムを作れ。
できるかな～？

740:さまよえる蟻人間
18/09/17 23:27:15.68 yTXbMS5S.net
出てこいや、道場やぶりや！

741:デフォルトの名無しさん
18/09/17 23:32:06.06 27GPeyCI.net
何に置き換えればいいん？
サンプル書いてもらえると助かる

742:さまよえる蟻人間
18/09/17 23:37:28.77 yTXbMS5S.net
Sample{{痴漢前}}.txt → Sample{{痴漢後}}.txt
こんな感じで。

743:さまよえる蟻人間
18/09/17 23:49:20.44 yTXbMS5S.net
ファイルの中身に「{{痴漢前}}」があれば、すべて「{{痴漢後})」に置換。
ファイル名もしくはフォルダ名に「{{痴漢前}}」があれば、「{{痴漢後}}」に置換する。

744:デフォルトの名無しさん
18/09/18 05:08:54.69 1YKGz9xx.net
Ruby で作った。
あるフォルダ内のすべての、*.txt ファイルを置換する
1か所も置換されなかった場合でも、File.write で上書きされるので、
置換されない場合は、next ですぐさま、次の繰り返しへ進む
re = /before/
# . で始まる、directory, file を除く
Dir.glob( 'C:/Users/Owner/Documents/Ruby/test/test43/*.txt' ) do |file|
text = File.read file # すべて読み込む
next unless text.match( re ) # マッチしない
text.gsub!( re, "after" ) # すべてを置換
File.write file, text # 上書き
end

745:デフォルトの名無しさん
18/09/18 07:47:05.14 /fJcssx/.net
Sub ReplaceFile(folderPath, srcString, destString)
　Call ReplaceName(folderPath, srcString, destString)
　Call ReplaceContent(folderPath, srcString, destString)
End Sub
Sub ReplaceName(folderPath, srcString, destString)
　Dim fileSystem
　Set fileSystem = CreateObject("Scripting.FileSystemObject")
　Dim folder
　Set folder = fileSystem.GetFolder(folderPath)
　Dim file
　For Each file In folder.Files
　　Dim destFile
　　destFile = folder.Path & "\" & Replace(file.Name, srcString, destString)
　　Call file.Move(destFile)
　Next
　Dim subFolder
　For Each subFolder In folder.SubFolders
　　Dim destFolder
　　destFolder = folder.Path & "\" & Replace(subFolder.Name, srcString, destString)
　　Call subFolder.Move(destFolder)
　Next
End Sub

746:デフォルトの名無しさん
18/09/18 07:47:21.61 /fJcssx/.net
Sub ReplaceContent(folderPath, srcString, destString)
　Dim fileSystem
　Set fileSystem = CreateObject("Scripting.FileSystemObject")
　Dim folder
　Set folder = fileSystem.GetFolder(folderPath)
　Dim file
　For Each file In folder.Files
　　Dim text
　　Dim inStream
　　Set inStream = file.OpenAsTextStream(1)
　　text = inStream.ReadAll()
　　Call inStream.Close()
　　text = Replace(text, srcString, destString)
　　Dim outStream
　　Set outStream = file.OpenAsTextStream(2)
　　Call outStream.Write(text)
　　Call outStream.Close()
　Next
End Sub

747:さまよえる蟻人間
18/09/18 11:59:05.99 Iapv2hUP.net
>>724-725
フォルダの入れ子が処理

748:できてない点を除けば、上手く書けている。フォルダの入れ子を処理する簡単な方法は、再帰を使うことだ。

749:デフォルトの名無しさん
18/09/18 14:13:59.07 /fJcssx/.net
フォルダの中にフォルダが存在すると
Call subFolder.Move(destFolder) <-ここでエラーになる
Microsoft VBScript 実行時エラー: 書き込みできません。

750:デフォルトの名無しさん
18/09/18 14:14:44.96 /fJcssx/.net
そんな面倒な仕様だったかな

751:デフォルトの名無しさん
18/09/18 14:18:56.53 /fJcssx/.net
んん？あれ？できた、気の所為だったみたい

752:デフォルトの名無しさん
18/09/18 15:32:52.88 /fJcssx/.net
>>726
フォルダたどるときに再帰呼び出しすればいいですね、ご査収ください
URLﾘﾝｸ(gist.github.com)
再帰の話が出ました、今度は私からアリさんそしてルビーさんに再帰に関する問題を出します
ちょっと待っててください、問題作るので

753:デフォルトの名無しさん
18/09/18 16:50:37.02 /fJcssx/.net
準備できました、それでは問題を出します
一次元の配列を元に罫線素片を使用してトーナメント表を出力してください
Array("Ａ","Ｂ","Ｃ","Ｄ","Ｅ","Ｆ","Ｇ","Ｈ","Ｉ","Ｊ")
↑の配列を元に↓の出力を得る
URLﾘﾝｸ(light.dotup.org)

754:デフォルトの名無しさん
18/09/18 17:15:01.90 ddthAX4P.net
　　　　　　 ::　　　　　　　　　　　　　　 .|ﾐ|
　　　　　　　::　　　　　　　　　　　　　.|ﾐ|
　　　　　　　　::　　　　　　　　　　　　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー､　　　　　　　::
　　 ::　　　　　　／　　　,,.-'"　　　　　　ヽ　ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　ヾ (　　　 _,,.-='==-､ヽ　　　　　ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　ヽ　　　　　それでは・・・問題を・・
　　 ::　　 ./ /　　＞＝'''"　￣￣￣　　　　　　　　　ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　／　::
　　　　ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_　　　__ -_'"--''"ニニニニニニニﾆヽ　　 ::
　　　　　　　　｀¨i三彡--''"´　　　　　　　　　　　ヽ　　:: 　
　　　　　　　　　 /　　　　　　　　　　　　　　　　　　ヽ　:: 　　　　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ

755:デフォルトの名無しさん
18/09/18 23:19:00.93 iB13sfY6.net
>>730
相変わらず中学生レベルの下手くそだな。
新人に「これ、駄目な例ね」って出せるからどんどん書いてよ。下手くそコードを。

756:デフォルトの名無しさん
18/09/18 23:45:48.24 iB13sfY6.net
後学のために3回読んだ。
進歩の無さに感心する。
あらゆる「駄目」が詰まってる。
ある意味凄い。

757:デフォルトの名無しさん
18/09/19 00:13:16.37 RJsZo/tV.net
>>726
自演乙。

758:723
18/09/20 00:37:18.38 OZxd0eW0.net
>>723
を修正。Ruby で作った
1か所も置換されなかった場合でも、File.write で上書きされるので、
置換されなかった場合は、next ですぐさま、次のファイルへ進む
re = /before/
# . で始まる、directory, file を除く
Dir.glob( 'C:/Users/Owner/Documents/Ruby/*.txt' ) do |file|
text = File.read file # すべて読み込む
updated = false # 未更新
text.gsub!( re ) { |matched| updated = true; "after" } # 置換
next unless updated # 未更新なら
File.write file, text # 上書き
end

759:デフォルトの名無しさん
18/09/20 00:41:46.22 koJU2ZF6.net
Rubyスレでやれや。

760:デフォルトの名無しさん
18/09/20 07:28:15.20 jzY4tGG3.net
Rubyジジイはガチアスペだからね
会話も噛みあわないから始末が悪い

761:さまよえる蟻人間
18/09/20 19:48:35.67 AsbZx83p.net
>>731
URLﾘﾝｸ(gist.github.com)

762:デフォルトの名無しさん
18/09/20 20:23:41.31 qGj9TL9d.net
>>739
クラスを作ろうとしって何かしようとした時点で >>731 より少しマシなレベルかもだが、
分不相応なことをやろうとしたせいで圧倒的にクソ。
下から上に書くとか馬鹿じゃね？てか馬鹿だろ。
トーナメント表を横に出力するように仕様変更が入ったら全滅。いちから書き直し。
データ構造構築と表示を分けてないからそうなるんだよボケが。
クラス名とかファンクション名とか変数名の付け方とか、
「第三者が読むこと」
を意識して書いたことあんのかお前？
センス無いからもう書くな。片山無職MZよ。

763:さまよえる蟻人間
18/09/20 20:54:35.14 AsbZx83p.net
>>740
向きを変えたよ。
URLﾘﾝｸ(gist.github.com)

764:さまよえる蟻人間
18/09/20 21:22:38.53 SaUWExWV.net
>>740
模範解答を求む。

765:さまよえる蟻人間
18/09/20 21:39:18.09 SaUWExWV.net
>>740
自演乙www

766:さまよえる蟻人間
18/09/20 21:41:58.07 SaUWExWV.net
>>740
やあ、ピラフさん。

767:さまよえる蟻人間
18/09/20 21:52:31.68 SaUWExWV.net
>>740
君、人気者だね！

768:さまよえる蟻人間
18/09/20 21:54:04.98 SaUWExWV.net
無職じゃないよ。かなりきつい炭鉱の仕事を続けてるよ。

769:さまよえる蟻人間
18/09/20 22:08:06.17 SaUWExWV.net
馬鹿と産業スパイには読めない不思議なソースコード

770:デフォルトの名無しさん
18/09/20 22:30:48.62 jzY4tGG3.net
片山は煽りには乗らないと思ってたけどそうでもなかったん？
まあピラフ扱いされたらこうなるのも仕方ないと思う

771:デフォルトの名無しさん
18/09/20 22:51:01.73 qGj9TL9d.net
>>741
とりあえず、模範解答とすれば、>>731 の出題条件を満たしつつ最も簡単書けるのが模範だな。
Option Explicit
Dim Teams
Teams = Array("Ａ","Ｂ","Ｃ","Ｄ","Ｅ","Ｆ","Ｇ","Ｈ","Ｉ","Ｊ")
Call WScript.Echo(" ┌──┴───┐ ")
Call WScript.Echo(" ┌─┴─┐ ┌─┴─┐ ")
Call WScript.Echo(" ┌─┴┐ ┌┴┐ ┌─┴┐ ┌┴┐")
Call WScript.Echo("┌┴┐ " & Teams(2) & "　" & Teams(3) & "　" & Teams(4) & "　┌┴┐ " & Teams(7) & "　" & Teams(8) & "　" & Teams(9))
Call WScript.Echo(Teams(0) & " " & Teams(1) & " " & Teams(5) & " " & Teams(6) & " ")
シードの既定も明示されてないのにマジで作る方がアホ。
ていうかあんたのコード、Win10環境だとテキストファイルに落とさないと崩れるんだけど？
> ' Usage: cscript TreeRecurse.vbs > Output.txt
ファイルに落とすの前提なら //nologo が抜けてる。
「トーナメント表を作る」は割と面白げなお題だから書いてみようと思うが、まずは既定から調べんとな。

772:デフォルトの名無しさん
18/09/20 22:55:22.59 qGj9TL9d.net
ちなみに片山のコードは読めない。
斜め読みでなんとなくは分かるが自己中心的な汚さでムンムンなので読む気がしない。
ちょっと真面目に読もうとしたら気分が悪くなる。

773:デフォルトの名無しさん
18/09/21 07:37:04.81 tJDcdJp6.net
>>739
アリさんおはようございます
すごい！完璧です、さすがです
一応出題者として回答例と解説も用意していましたが
必要なかったですね、私の想像を超える形で解決されてます
議論するのは良いですね、思考が広がります
惜しむらくはアリさんとルビーさんと私の3人だけで議論できるといんですけどね
招待された人しか参加できないような議論の場があるといんですけど
最近荒らしがひどくて落ち着いて議論できないんですよね
偽物のピラフも出没します
どれが本物のピラフかはアリさんだったらわかってくださるかと
文面は誤魔化せませんからね、その知性は隠しきれないですからね

774:デフォルトの名無しさん
18/09/21 09:38:11.24 m8DL5ZJ4.net
ああ、蟻人間は、片山先生か。
ピラフは、偽者が登場してるのかw
トリップが解読されたのか？
5ch は、桁数が少ないのを使っているのかな？
SHA256 じゃないのか？

775:さまよえる蟻人間
18/09/21 14:45:41.92 H0GdxW4o.net
解説しよう。
URLﾘﾝｸ(gist.github.com)
8行目。Sliceという配列の切り出し（スライス）をする関数を定義している。
引数のendingがEmptyならばstart以降を切り出す。
JavaScriptには同様の関数があるが、VBScriptでは用意されていないので定義した。
23行目。仮想画面という考え方でテキスト処理を行うTextAreaクラスを定義している。
メンバーのTextsが文字列の動的配列を、NumLinesが行数を、NumColumnsが桁数を表す。
26行目。Resetサブルーチンは、TextAreaにサイズを指定して初期化する。
36行目。GetText関数は、仮想画面を表すテキストを構築する。
44行目。Outputサブルーチンは、GetTextの戻り値をそのまま出力する。
48行目。SetCharサブルーチンは、指定した位置に１文字をセットする。
仮想画面の範囲外のときは、セットしないで無視する。

776:さまよえる蟻人間
18/09/21 14:46:08.96 H0GdxW4o.net
58行目。PasteTextサブルーチンはSetCharを使って文字列を仮想画面の指定された位置に貼り付ける。
65行目。PasteTAサブルーチンは、SetCharを使って別の仮想画面の内容を指定された位置に貼り付ける。
84行目。実際にツリーのテキストを作成するMakeTree関数。この関数が再帰を行う。
引数のRootPosは参照渡し(ByRef)で値を返すことができる。
RootPosは、根元の水平位置を表す。標準のUBound関数は、配列の添え字上限を返す。
87行目。配列の添え字上限がゼロならば、一文字を表す仮想画面を返す。
93行目。ゼロでなければ、配列を半分に分割し、Ary1とAry2に代入する。
97行目。実際に再帰を指示する。
101行目。根元の位置は、左仮想画面の桁数＋１である。
103行目。再帰で得られた子の根元の位置をもとに、枝分かれのテキストを構築する。
106行目。TA1.NumLinesとTA2.NumLinesの最大値をCYに代入する。
113行目。再帰した結果を用いて新しい仮想画面を構築する。

777:デフォルトの名無しさん
18/09/21 16:41:50.49 v8oybxLb.net
>>751
お前がキチガイの限りを尽くして荒らしてくれてたからコテを取り上げてやったんだよ
キチガイの割にメンタルは弱いからよくコテと名無しを使い分けて自演してたけど、バカすぎてバレバレだったよな

778:さまよえる蟻人間
18/09/21 19:24:04.09 S9dnQgvE.net
だれかお題を出してくれ。

779:さまよえる蟻人間
18/09/21 19:31:11.44 S9dnQgvE.net
お題: VBScriptで日本語で「こんにちわ」としゃべらせる。

780:デフォルトの名無しさん
18/09/21 20:03:46.12 MNb63QGQ.net
WScript.Echo("(*∩ω∩)＜こんにちわ～")

781:さまよえる蟻人間
18/09/21 20:04:28.07 S9dnQgvE.net
>>758
音声だよ。

782:さまよえる蟻人間
18/09/21 20:48:58.88 S9dnQgvE.net
ヒント: Text-To-SpeechとSAPIを使う。

783:デフォルトの名無しさん
18/09/21 20:50:57.78 v8oybxLb.net
　　　　　　 ::　　　　　　　　　　　　　　 .|ﾐ|
　　　　　　　::　　　　　　　　　　　　　.|ﾐ|
　　　　　　　　::　　　　　　　　　　　　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー､　　　　　　　::
　　 ::　　　　　　／　　　,,.-'"　　　　　　ヽ　ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　ヾ (　　　 _,,.-='==-､ヽ　　　　　ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　ヽ　　　　　WScript・・・Echo・・
　　 ::　　 ./ /　　＞＝'''"　￣￣￣　　　　　　　　　ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　／　::
　　　　ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_　　　__ -_'"--''"ニニニニニニニﾆヽ　　 ::
　　　　　　　　｀¨i三彡--''"´　　　　　　　　　　　ヽ　　:: 　
　　　　　　　　　 /　　　　　　　　　　　　　　　　　　ヽ　:: 　　　　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ

784:デフォルトの名無しさん
18/09/21 21:24:40.21 KLg7gSKx.net
片山無職MZの図
　　　　　　 ::　　　　　　　　　　　　　　 .|ﾐ|
　　　　　　　::　　　　　　　　　　　　　.|ﾐ|
　　　　　　　　::　　　　　　　　　　　　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー､　　　　　　　::
　　 ::　　　　　　／　　　,,.-'"　　　　　　ヽ　ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　ヾ (　　　 _,,.-='==-､ヽ　　　　　ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　ヽ　　　　グ。。。グギギ。。。
　　 ::　　 ./ /　　＞＝'''"　￣￣￣　　　　　　　　　ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　／　::
　　　　ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_　　　__ -_'"--''"ニニニニニニニﾆヽ　　 ::
　　　　　　　　｀¨i三彡--''"´　　　　　　　　　　　ヽ　　:: 　
　　　　　　　　　 /　　　　　　　　　　　　　　　　　　ヽ　:: 　　　　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ
片山先生の新作が読めるのはあの世だけ！！

785:さまよえる蟻人間
18/09/21 21:41:04.28 S9dnQgvE.net
らんらんるー！

786:さまよえる蟻人間
18/09/21 21:45:45.98 S9dnQgvE.net
>>762
あんなに解説したのに理解できないなんて、黄身は白身か？！

787:さまよえる蟻人間
18/09/21 21:58:55.73 S9dnQgvE.net
黄身は白身か？それとも赤身なのか？
すり身なのか？あるいは切り身なのか？

788:さまよえる蟻人間
18/09/21 22:09:10.13 S9dnQgvE.net
>>762
貴様は身の程知らずかも知れないが、センスが無い訳では無いかも知れない。
君の自宅にうちわがあるだろう？あれも一種のセンスだ。君もセンスを持っている。

789:さまよえる蟻人間
18/09/21 22:18:35.87 S9dnQgvE.net
店長さん、ピラフを一丁下さい。

790:デフォルトの名無しさん
18/09/21 22:33:49.82 tJDcdJp6.net
　　　　＿∬＿
　 (⌒⌒)＼≠／
　　L＿亅∩￣　ﾁﾘﾝﾁﾘﾝ
　 (ω･ )ノ ≡＝―
　 /ヽ: ＼　 _ __　(⌒
　０┬>　 )＝ ≡=(⌒∴
　 (＊)/／(＊) (⌒(∴
￣￣￣￣￣￣￣￣￣￣￣

791:デフォルトの名無しさん
18/09/21 22:49:00.01 v8oybxLb.net
　　　　／⌒　　⌒＼　　　ﾝｸﾞﾝｸﾞ
　　　／（●）　（●）＼
　／::::::⌒（__人__）⌒:::: ＼　　

792:ﾁｭﾊﾟﾁｭﾊﾟ　 |　　　　（　　　＼　　　 | 　＼＿　　ヽυ 　::＼／　　　　　　　　＼　　.:::＼　　　　　＿＿＿_ 　　　　／⌒　　⌒＼　　　／（●）　（●）＼　　　／⌒＼　／::::::⌒（__人__）⌒::::: ＼　（　　　　）　　ﾁﾝﾁﾝだお！　 |　　　　　|r┬-|　　　　　|　 | 　 υ| 　＼　　　υー'´ 　　／　　|　　　 | 　　　　　　　　　　　　　　　　　|υ　　|

793:さまよえる蟻人間
18/09/21 23:01:12.99 S9dnQgvE.net
ピラフの御葬式しないとダメ？

794:デフォルトの名無しさん
18/09/21 23:09:45.05 v8oybxLb.net
片山はやはりピラフを格下に見てるよね

795:さまよえる蟻人間
18/09/21 23:22:18.85 S9dnQgvE.net
般　　羯　多　呪　多　得　想　掛　所　亦　無　耳　不　是　異　蘊　観　　仏
若　　諦　呪　能　是　阿　究　礙　得　無　意　鼻　増　舎　色　皆　自　　説
心　　羯　即　除　大　耨　竟　　,r'""´｀ﾞﾞ''､,　　識　舌　不　利　色　空　在　　摩
経　　諦　説　一　神　多　涅　/　　　　　ｌ,　界　身　減　子　即　度　菩　　訶
　　　　　呪　切　呪　羅　槃　rヽ　.,‐-　,- |.　無　意　是　是　是　一　薩　　般
　　　波　曰　苦　是　三　三　ヾ　｀ﾞ" ,l ﾞ´|　無　無　故　諸　空　切　行　　若
　　　羅　　　真　大　藐　世 . _> 　　-=='./　明　色　空　法　空　苦　深　　波
　　　羯　　　実　明　三　　_／|,　｀ﾞヽｰ--ﾉヽ､,_. 　　聲　中　空　即　厄　般　　羅
　　　提　　　不　呪　　rｰ'""l,　 'l,　　　　 /　.| ||/｀>､、　　無　相　是　舎　若　　蜜
　　　　　　　虚　是　 /　　　　| 　 'l,　　 /　 .|./》/　∧ 　色　不　色　利　波　　多
　　　波　　　故　無　/　　,　|　ヽ　ヽ,､/.＠ / 《l,l　/　ヽ　無　生　受　子　羅　　心
　　　羅　　　説　上 /　　､,ヽ|/　ヾ。ﾂ｀' 「ゞ /　/《ヾ　/ﾞヽ　　不　想　色　蜜　　経
　　　僧　　　般　　 ./　　///ｌ｀ﾞ'ﾞｰ-'"　 /　// ﾉ//　／／｀l､　　滅　行　不　多
　　　羯　　　若　　,|.　 ///　|　　|___,,,ノ≡≡ﾂﾉ/／_,,-‐'"".l,　　不　識　異　時
　　　諦　　＝@ 波　　| ///＝@/|　　 /二＝‐'"´´／ /｀ﾞﾞ'ｰ-､,_.l　　垢　亦　空　照
　　　　　　　羅　　|/// /　| 　 /|三＝"´　／ /／"´´ﾞ'ｰ､|　　不　復　空　見
　　　菩　　　蜜　///ﾉ　ノ　ノノ‐-二‐'"´ ノ/r＝､,_ｰ-､_|　　浄　如　不　五

796:さまよえる蟻人間
18/09/21 23:25:15.49 S9dnQgvE.net
　　ﾉ凸＼―――ｲ＼
　 Eﾉ金ゝﾖ三三三三三Eﾌ
　　/ΛΛ/ |鬩鬩鬩鬩鬩
　 /(Дﾟ/＿|卅丗卅丗卅
／￣￣／ﾛ　|ﾆﾆﾆﾆﾆﾆﾆﾆﾆ]
[O王O]_r＝ｭ|＿＿_r＝ｭ]
ヽﾆノヽﾆノヽﾆノヽﾆノ

797:さまよえる蟻人間
18/09/21 23:26:46.14 S9dnQgvE.net
　.　+ 　.:.　.　.
+　　:.　　.　 +.
　.　　: .　 +　. .
.　:.　　　　　.
　.　　+　　Π
　　　　　　||
　　　　(二Ｘ二O
　　　　　||　.+ .
　　　∧∧　||
　　 /⌒ヽ)_||＿
＿～(　　);;;;::＼
"　"" """""""" ""/;
　"" 　 """　""／:;

次ページ