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

■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
垢版 |
2007/02/03(土) 17:49:47
素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ

（例○○を自動処理してくれるプログラム）
641ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/06(木) 07:32:32.39ID:ndioKak8
>>640
奥義についての感想をいただけたら
642デフォルトの名無しさん
垢版 |
2018/09/06(木) 07:36:00.23ID:ezd+bzmC
競技プログラミングですでにやってるわ
そんなのアスぺ自慢にもならない
643ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/06(木) 07:43:37.26ID:ndioKak8
ちょっと何言ってんのかよくわからない
644デフォルトの名無しさん
垢版 |
2018/09/06(木) 17:19:09.87ID:ezd+bzmC
そりゃお前だからだろ
スレの趣旨も理解できてなさそうだし

そろそろ出てきても大丈夫とか思っちゃったんだろうか
645ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/06(木) 22:09:39.70ID:VSCSfufl
クソレスすんなゴミ
646デフォルトの名無しさん
垢版 |
2018/09/06(木) 23:45:24.23ID:ezd+bzmC
お前が来なければ何の問題もないんだよ
バブルソートも満足に組めないゴミのくせにｗｗ
647デフォルトの名無しさん
垢版 |
2018/09/07(金) 01:27:31.43ID:mHXQx/fB
>>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年半待たせたな。
648ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 22:04:51.82ID:EFF3DhTd
>>646
>>638で完全な実装を我は示した、それでも満足できぬと申すか？
どうなんだ？ おん？
649デフォルトの名無しさん
垢版 |
2018/09/10(月) 22:10:48.32ID:ioZkQTlp
>>648
スレ違いだバカ
650ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 22:16:42.81ID:EFF3DhTd
>>649
うるせーバカ
651ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 22:17:47.07ID:EFF3DhTd
ピラフのバブルソートに満足できないなら何が不満かを言いなさいよ
652デフォルトの名無しさん
垢版 |
2018/09/10(月) 22:21:13.47ID:ioZkQTlp
こいつバカだから聞き出そうとしてんだろ
テメーの教育スレじゃねえよ
653ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 22:29:04.16ID:EFF3DhTd
>>652
バブルソートも満足に組めないと言ったから
どこが不満なのかお聞きしたのに答えられないって
なんなのそれ、パーフェクトバブルソートってことでいいね？
654ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 22:31:31.94ID:EFF3DhTd
言っとくけどピラフの奥義はバブルソートだけじゃないから
君たちがのんべんだらりと怠惰な生活を送ってる間に
ピラフは厳しい修行を積んで圧倒的成長を遂げたから
655デフォルトの名無しさん
垢版 |
2018/09/10(月) 22:33:49.16ID:ioZkQTlp
>>653-654
だからスレ違いだって言ってんだよバカ
656ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 22:35:08.44ID:EFF3DhTd
>>655
だからうるせーバカ
657デフォルトの名無しさん
垢版 |
2018/09/10(月) 22:40:37.66ID:ioZkQTlp
>>656
てめーに来る権利なんかないんだよ
スレ違いだって言ってんだバカ
658ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 22:41:27.56ID:EFF3DhTd
>>657
静かにしろよ、子どもが起きるでしょうが！！
659ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 22:41:50.85ID:EFF3DhTd
子どものことを考えて欲しい
660デフォルトの名無しさん
垢版 |
2018/09/10(月) 22:46:49.70ID:ioZkQTlp
>>658-659
微妙に方向を変えてレスされないよう工夫してるつもりのバカ
661ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 22:48:21.82ID:EFF3DhTd
>>660
子どもには寝る権利がある、君は優しい人だから子どもには手を出せない
君の負けだよ、子どもがどうなっても良いのか！
662ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 22:49:32.47ID:EFF3DhTd
ところでさ黄金のハンマーがあったら何でもかんでも叩きたくなるっていう
プログラミング業界で広く知られた寓話があるけれども
ピラフは厳しい修行を積んで習得した奥義を披露したくて仕方がないよ
実験台になってくれる？
663デフォルトの名無しさん
垢版 |
2018/09/10(月) 22:50:39.35ID:ioZkQTlp
昔から嫌われてるようだけどこの態度を見れば当然だよな
664ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 22:55:31.48ID:EFF3DhTd
>>663
でも君はボッチじゃん
ピラフもボッチじゃん
これからもボッチコンビとしてやっていこうよ
君はピラフのこと嫌いじゃないでしょ？ それで十分だよ
665デフォルトの名無しさん
垢版 |
2018/09/10(月) 22:57:11.75ID:ioZkQTlp
>>664
てめーの雑談スレじゃねえんだよ
666ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 22:59:33.34ID:EFF3DhTd
>>665
いいじゃん、どうせ誰も書き込まないし
スレが埋まったらまたスレ建てればいいし
何を気にすることがあろうか
いまどきVBScriptの話する人なんて
ピラフと変態の君くらいだよ
667デフォルトの名無しさん
垢版 |
2018/09/10(月) 23:01:24.61ID:ioZkQTlp
まあどうせ自分のレスを最後にして終わりにしたいだけだろ
こいつバカだから
668ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 23:01:29.79ID:EFF3DhTd
ちなみにピラフの奥義は配列に関するものです
Array(Array(Array("a"), "b"), "c")
こういう入れ子になった配列を
Array("a", "b", "c")
というように平坦化します
名付けてフラッテンです
669ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 23:02:34.99ID:EFF3DhTd
>>667
あまり変な綾つけてるとフラッテンを発動せざるを得ないが？
670デフォルトの名無しさん
垢版 |
2018/09/10(月) 23:03:11.10ID:ioZkQTlp
悔しさに耐えきれず出てきてしまったバカ>>648
671ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 23:04:13.53ID:EFF3DhTd
>>670
クソレスすんなクズ
672ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/10(月) 23:04:30.71ID:EFF3DhTd
はい勝利
673デフォルトの名無しさん
垢版 |
2018/09/10(月) 23:05:44.11ID:ioZkQTlp
嫌がらせをするために生まれてきたとしか思えないようなクズだよな
674デフォルトの名無しさん
垢版 |
2018/09/10(月) 23:09:43.33ID:ioZkQTlp
>>634-635
汚名返上大失敗
675ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/11(火) 22:25:27.29ID:sKts/OLx
>>673
秘奥義フラッテンを伝授してやっても良いけど？
676ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/11(火) 22:25:46.20ID:sKts/OLx
教えようか？ しょうがないなあもう！
677ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/11(火) 22:29:50.82ID:sKts/OLx
フラッテンというのはArray(Array("a"))このように
入れ子になった配列をArray("a")このように平坦化するメソッドです

VBScriptは配列を中心にプログラムを組み立てる
Array Orietedな言語と言っても過言ではありません
それくらいVBScriptにとって配列は重要なデータ構造であり
いかに配列とうまく付き合うかがプログラムの出来を大きく左右します

フラッテンを知ることでVBScriptで信頼性の高いプログラムを
作ることができるようになります
678ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/11(火) 22:33:42.97ID:sKts/OLx
まず、フラッテンによってどのようにデータが変換されるのかを学びましょう

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")
値と配列が混在して格納されていても平坦化されます

どうです？ フラッテンの威力はすごいでしょう？
2018/09/11(火) 22:52:10.95ID:qY6EWQ/c
フランケンとフラッテンとフリテンはどう違うんだ？
680ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/11(火) 23:13:01.51ID:sKts/OLx
>>679
フランケンは人造人間を作った博士のこと
フラッテンはピラフが厳しい修行の末に身に着けた奥義
フリテンはちんちん丸出しのこと
681ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/11(火) 23:14:54.59ID:sKts/OLx
おちんちん
2018/09/11(火) 23:40:56.45ID:hTiklz9U
すごいでしょ？と言われたってなぁ…
明日検証してみるけど、もし正しいとして、これが役に立つ場面より役に立たない場面の方が多い。

配列が重要なデータ構造？
馬鹿じゃないのか？

配列はどうしようもなく仕方なく使うという以外に使ってはいけない過去のもの。
683デフォルトの名無しさん
垢版 |
2018/09/12(水) 17:20:41.01ID:7YUXioF8
相変わらずスレの私物化が甚だしいな
伝授とかいってるけど覚えたことを逐一報告したいだけだろｗｗｗ
2018/09/12(水) 17:22:01.32ID:lDPRUKn6
それは新興宗教か何かですか
2018/09/12(水) 21:47:14.91ID:/dqYRCG2
フリテンはマージャン用語だよ。
2018/09/12(水) 21:51:36.87ID:sZhJcjcO
>>682
配列を使わないってよりは
配列みたいなプリミティブはラップして使う
687ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/12(水) 22:28:29.59ID:+TYzcb05
>>685
アリさんはホント物知りですね
688ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/12(水) 22:29:24.88ID:+TYzcb05
>>683
じゃー君はピラフから教わらずに実装できるのかい？
できないだろう、自信がないだろう、じゃー素直に教わったら良いよ
689ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/12(水) 22:29:42.76ID:+TYzcb05
>>682
おいフラッテン、実装はまだか？
690ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/12(水) 22:30:49.46ID:+TYzcb05
ピラフが上流工程担当で仕様と設計を担当します
>>682は詳細設計から先をお願いします
691デフォルトの名無しさん
垢版 |
2018/09/12(水) 22:44:30.25ID:7YUXioF8
>>688
連投するほど動揺するくらいなら大人しく引っ込んでろよｗ
692ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/12(水) 22:50:23.36ID:+TYzcb05
>>691
クソリプすんなゴミ
693デフォルトの名無しさん
垢版 |
2018/09/12(水) 22:55:30.55ID:7YUXioF8
>>692
荒らしてんじゃねえよ
ゴミはゴミ箱に入ってろ
https://mevius.5ch.net/test/read.cgi/tech/1536155434/
694ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/13(木) 22:21:35.80ID:DSrr8M1w
はいみなさんこんばんわ
フラッテンプロジェクトの進捗報告会を始めます
695ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/13(木) 22:23:30.41ID:DSrr8M1w
仕様と設計は先日終わりました
詳細設計と実装はいま何％くらいでしょうか？
>>693ご担当の方からご説明頂いてもよろしいでしょうか？
696ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/13(木) 23:12:27.84ID:DSrr8M1w
うー
697デフォルトの名無しさん
垢版 |
2018/09/13(木) 23:59:12.24ID:fcaQm85V
ほんとしつこいよな、このガイジは
施設に帰れよ
https://mevius.5ch.net/test/read.cgi/tech/1536155434/
2018/09/14(金) 00:46:53.14ID:XI/3JNqP
　　　　　　 ::　　　　　　　　　　　　　 　 .|ﾐ|
　　　　　　　::　　　　　　　　　　 　 　 　.|ﾐ|
　　　　　　　　::　　　　　　　　　　 　 　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー ､　　　　　　　::
　　 ::　　　　　 　 ／　　　,,.-'"　　　　　　ヽ　 ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　 ヾ (　　　 _,,.-='==-､ヽ　　 　 　 　 ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　 ヽ　
　　 ::　　 ./ /　　＞ ＝'''"　￣￣￣　　　　 　 　 　 　 　 ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　 　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　 ／　::
　　　　 ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_　　　__ -_'"--''"ニニニニニニニﾆヽ　　 ::
　　　　　　　　 ｀¨i三彡--''"´　　　　　　　　　 　 　 ヽ　　:: 　
　　　　　　　　　 /　　　　　　　　　　　　　　　 　 　 　 ヽ　:: 　 　 　 　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ
699ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/14(金) 06:33:19.85ID:8u/1qVBS
クソレス君さえいなければ
700デフォルトの名無しさん
垢版 |
2018/09/14(金) 07:48:23.54ID:zTYotrd2
都合の悪い事には一切触れないのはいつものこととしても、
自分の立てた糞スレはもう無かったことになってんのかよｗｗ
これもしかしてVBSに限定しないでなるべく人を集めたかったのかな？
実質誰にも相手にされてないからってこっちくんなよガイジ
https://mevius.5ch.net/test/read.cgi/tech/1536155434/
701ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/14(金) 22:11:43.07ID:HVqp1HzB
クソレスすんなバーカ
702デフォルトの名無しさん
垢版 |
2018/09/14(金) 23:47:35.98ID:zTYotrd2
手抜きレスでだいぶ面倒くさそうだけどだったら引っ込んでろよガイジ
この糞スレ見れば分かるようにお前なんか誰からも必要とされていない
https://mevius.5ch.net/test/read.cgi/tech/1536155434/
703ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/15(土) 00:10:34.95ID:Abot0dLt
やだ！
ピラフ他人の指図受けたくない！
ピラフ自由にやりたいだけ！
お前らがどうなろうと知った事ない
704ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/15(土) 00:13:02.93ID:Abot0dLt
　　　　　 .＿
　　　　 　 ＼ヽ,　,、
　　　　 　　　`''|/ﾉ
　　　　 　　　　.|
　　　　 ＿　　　|
　　　　 ＼｀ヽ、|
　　　　 　＼, V
　　　　 　 　 `L,,_
　　　　　 　　 |ヽ､)　 ,､
　　　　　　　 /　　　　ヽYﾉ
　　　　　　 /　　　　r''ヽ、.|
　　　　　　|　　　　　`ｰ-ヽ|ヮ
　　　　　　|　　　　　　　`|
　　　　　　|.　　　　　　　 |
　　　　　　ヽ、　　　　　　|
　　　　　　　 ヽ＿＿＿_ﾉ　　 　　　
　　　　 　　　／_ノ '　ヽ_＼
　　　　　　／（≡） 　 （≡）＼
　　　　 ／::::::⌒（__人__）⌒::::: ＼ 　　　　　
　　　　 |　　　　　|r┬-|　　　　　|　　　　 　
　　　　 ＼ 　　 　 `ー'´ 　 　 ／
　　　　　／　　　　　　　　　　＼
　　　　 (　 |　　　　　　　　　 |　 )
　　　　　＼|　　　　э　　　　|／
　　　　　　 (　　　　,,,,　　　 ,ﾉ
　　　　　　　＼　 ､(Ｕ)ﾉ　ノ
　　　　　　　　 ＼／　 ／　　　　　　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　 ／　 ／＼　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ　
　　　　　 ⊂⌒＿＿）＿＿）
705デフォルトの名無しさん
垢版 |
2018/09/15(土) 00:39:59.44ID:ffOGYC3P
>>704
すごいどうやったの？
ちんちんの話じゃなくてトリップどうやったの？
ハッシュ値を総当たり？ 辞書を片っ端から調べた？
文字種が英数字58文字、文字列長が12だとして70ビットくらいでしょ
ハッシュ値の総当たりでやったとしたらすごい
できるもんなんだね

ちなみにピラフのトリップはこれ
Rembrandt Harmensz. van Rijn
レンブラント・ファン・レイン、画家の名前、すごくおしゃれ
706ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/15(土) 00:48:24.81ID:Abot0dLt
ピラフって可愛くて天才で皆から慕われる人気者でしょ
だから妬みたくなるのは至極当然なの
といってもピラフを騙るなんて恐れ多い真似は普通はしないでしょ
あまりにショックだからピラフ死のうと思うの
でもピラフが死んだらみんな悲しむよね
だから死なない
707デフォルトの名無しさん
垢版 |
2018/09/15(土) 01:00:36.26ID:ffOGYC3P
君はピラフに成りたかったんだね
良いよ、君が今日からピラフだ
708ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/15(土) 01:08:51.59ID:Abot0dLt
>>705
トリップキーなんか数年前に流出してるのに何がしたいんだオメーわ
QZもそうだけどそんなの知ってて使い続けてるんだってば
お前はそうやってピラフの背中を追い続けてるといいよ
ピラフを追い越すことなんか一生できないから
709デフォルトの名無しさん
垢版 |
2018/09/15(土) 01:11:03.66ID:ffOGYC3P
>>708
ピラフの大事なトリップが流出してただと・・・なんだと・・・
じゃあいままでピラフと名乗ってたのは全部・・・
710デフォルトの名無しさん
垢版 |
2018/09/15(土) 01:12:16.38ID:ffOGYC3P
おらーピラフさっさとフラッテンの授業進めろよ
711ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/15(土) 01:24:05.26ID:Abot0dLt
　 　 　　　＿＿＿_
　 　　　／⌒　　⌒＼
　　　／（ ●） 　（●）＼　　　フリチン？なにそれ
　 ／::::::⌒（__人__）⌒::::: ＼　　ピラフ超絶美少女だから無理
　 |　　　　　|r┬-|　　　　　|
　 ＼ 　　 　 `ー'´ 　 　 ／
712デフォルトの名無しさん
垢版 |
2018/09/15(土) 01:40:47.98ID:ffOGYC3P
差し支えなければおパンツの色を教えてもらっても良いでしょうか？
713ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/15(土) 01:42:03.03ID:Abot0dLt
なんかしつこそうだから以降は↓で
https://mevius.5ch.net/test/read.cgi/tech/1536155434/
714デフォルトの名無しさん
垢版 |
2018/09/15(土) 07:02:45.41ID:8rxpHkWL
ピラフのパンツ祭りと聞いて
715デフォルトの名無しさん
垢版 |
2018/09/15(土) 08:44:28.77ID:grwiTkg6
ピラフの自演と聞いて
716デフォルトの名無しさん
垢版 |
2018/09/15(土) 12:04:01.66ID:OIBexEj7
基地外が居ると聞いて
717ピラフ ◆9Jro6YFwm650
垢版 |
2018/09/15(土) 12:27:29.09ID:WPyz+R4a
>>714->>716

　　　∩∩∩　　　　　　 　 ∩∩∩
　　.∩_:||_:|_:|　　　　　　　　|_:||_:|_:∩
　　│　___　 つ 　　　　　⊂ 　___　│
　　 ヽ　　 ノ　　＿＿＿　 　ヽ　　ノ
　　／ ／　　／_ノ 　ヽ､_＼　　 ヽ ＼
　 ( 　く　　 oﾟ(（●）) (（●）)ﾟo　 　>　）　　クソレスすんなバーカ
　　＼　｀／::::::⌒（__人__）⌒::::＼'　／
　　　 ヽ|　　　　　|r┬-|　　　　　|/
.　　　 　 ＼ 　 　 |　|　 | 　 　 ／
　　　　　　　　　　|　|　 |
　　　　　　　　　　 `ー'´
2018/09/17(月) 21:19:36.46ID:yTXbMS5S
それじゃあ出題するね。

あるフォルダの中にある、ファイル名とファイルの中身を一気に置き換えるプログラムを作れ。

できるかな〜？
2018/09/17(月) 23:27:15.68ID:yTXbMS5S
出てこいや、道場やぶりや！
720デフォルトの名無しさん
垢版 |
2018/09/17(月) 23:32:06.06ID:27GPeyCI
何に置き換えればいいん？
サンプル書いてもらえると助かる
2018/09/17(月) 23:37:28.77ID:yTXbMS5S
Sample{{痴漢前}}.txt → Sample{{痴漢後}}.txt

こんな感じで。
2018/09/17(月) 23:49:20.44ID:yTXbMS5S
ファイルの中身に「{{痴漢前}}」があれば、すべて「{{痴漢後})」に置換。
ファイル名もしくはフォルダ名に「{{痴漢前}}」があれば、「{{痴漢後}}」に置換する。
2018/09/18(火) 05:08:54.69ID:1YKGz9xx
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
724デフォルトの名無しさん
垢版 |
2018/09/18(火) 07:47:05.14ID:/fJcssx/
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
725デフォルトの名無しさん
垢版 |
2018/09/18(火) 07:47:21.61ID:/fJcssx/
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
2018/09/18(火) 11:59:05.99ID:Iapv2hUP
>>724-725
フォルダの入れ子が処理できてない点を除けば、上手く書けている。
フォルダの入れ子を処理する簡単な方法は、再帰を使うことだ。
727デフォルトの名無しさん
垢版 |
2018/09/18(火) 14:13:59.07ID:/fJcssx/
フォルダの中にフォルダが存在すると
Call subFolder.Move(destFolder) <-ここでエラーになる
Microsoft VBScript 実行時エラー: 書き込みできません。
728デフォルトの名無しさん
垢版 |
2018/09/18(火) 14:14:44.96ID:/fJcssx/
そんな面倒な仕様だったかな
729デフォルトの名無しさん
垢版 |
2018/09/18(火) 14:18:56.53ID:/fJcssx/
んん？あれ？できた、気の所為だったみたい
730デフォルトの名無しさん
垢版 |
2018/09/18(火) 15:32:52.88ID:/fJcssx/
>>726
フォルダたどるときに再帰呼び出しすればいいですね、ご査収ください
https://gist.github.com/sleeping-marple/512b86feb470296c5a48e00365dd3418

再帰の話が出ました、今度は私からアリさんそしてルビーさんに再帰に関する問題を出します
ちょっと待っててください、問題作るので
731デフォルトの名無しさん
垢版 |
2018/09/18(火) 16:50:37.02ID:/fJcssx/
準備できました、それでは問題を出します
一次元の配列を元に罫線素片を使用してトーナメント表を出力してください

Array("Ａ","Ｂ","Ｃ","Ｄ","Ｅ","Ｆ","Ｇ","Ｈ","Ｉ","Ｊ")
↑の配列を元に↓の出力を得る
https://light.dotup.org/uploda/light.dotup.org548029.png
732デフォルトの名無しさん
垢版 |
2018/09/18(火) 17:15:01.90ID:ddthAX4P
　　　　　　 ::　　　　　　　　　　　　　 　 .|ﾐ|
　　　　　　　::　　　　　　　　　　 　 　 　.|ﾐ|
　　　　　　　　::　　　　　　　　　　 　 　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー ､　　　　　　　::
　　 ::　　　　　 　 ／　　　,,.-'"　　　　　　ヽ　 ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　 ヾ (　　　 _,,.-='==-､ヽ　　 　 　 　 ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　 ヽ　　　　　それでは・・・問題を・・
　　 ::　　 ./ /　　＞ ＝'''"　￣￣￣　　　　 　 　 　 　 　 ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　 　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　 ／　::
　　　　 ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_　　　__ -_'"--''"ニニニニニニニﾆヽ　　 ::
　　　　　　　　 ｀¨i三彡--''"´　　　　　　　　　 　 　 ヽ　　:: 　
　　　　　　　　　 /　　　　　　　　　　　　　　　 　 　 　 ヽ　:: 　 　 　 　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ
2018/09/18(火) 23:19:00.93ID:iB13sfY6
>>730
相変わらず中学生レベルの下手くそだな。
新人に「これ、駄目な例ね」って出せるからどんどん書いてよ。下手くそコードを。
2018/09/18(火) 23:45:48.24ID:iB13sfY6
後学のために3回読んだ。
進歩の無さに感心する。
あらゆる「駄目」が詰まってる。

ある意味凄い。
2018/09/19(水) 00:13:16.37ID:RJsZo/tV
>>726
自演乙。
736723
垢版 |
2018/09/20(木) 00:37:18.38ID:OZxd0eW0
>>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
2018/09/20(木) 00:41:46.22ID:koJU2ZF6
Rubyスレでやれや。
2018/09/20(木) 07:28:15.20ID:jzY4tGG3
Rubyジジイはガチアスペだからね
会話も噛みあわないから始末が悪い
2018/09/20(木) 19:48:35.67ID:AsbZx83p
>>731
https://gist.github.com/katahiromz/57e2b01e15497af96e9b59921bfa9ff0
2018/09/20(木) 20:23:41.31ID:qGj9TL9d
>>739
クラスを作ろうとしって何かしようとした時点で >>731 より少しマシなレベルかもだが、
分不相応なことをやろうとしたせいで圧倒的にクソ。
下から上に書くとか馬鹿じゃね？てか馬鹿だろ。

トーナメント表を横に出力するように仕様変更が入ったら全滅。いちから書き直し。
データ構造構築と表示を分けてないからそうなるんだよボケが。

クラス名とかファンクション名とか変数名の付け方とか、
「第三者が読むこと」
を意識して書いたことあんのかお前？

センス無いからもう書くな。片山無職MZよ。
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況