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

**デフォルトの名無しさん** · 2007/02/03(土) 17:49:47

素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ

（例○○を自動処理してくれるプログラム）

**ピラフ** ◆9Jro6YFwm650 · 2018/09/10(月) 22:48:21.82

>>660
子どもには寝る権利がある、君は優しい人だから子どもには手を出せない
君の負けだよ、子どもがどうなっても良いのか！

**ピラフ** ◆9Jro6YFwm650 · 2018/09/10(月) 22:49:32.47

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

**デフォルトの名無しさん** · 2018/09/10(月) 22:50:39.35

昔から嫌われてるようだけどこの態度を見れば当然だよな

**ピラフ** ◆9Jro6YFwm650 · 2018/09/10(月) 22:55:31.48

>>663
でも君はボッチじゃん
ピラフもボッチじゃん
これからもボッチコンビとしてやっていこうよ
君はピラフのこと嫌いじゃないでしょ？それで十分だよ

**デフォルトの名無しさん** · 2018/09/10(月) 22:57:11.75

>>664
てめーの雑談スレじゃねえんだよ

**ピラフ** ◆9Jro6YFwm650 · 2018/09/10(月) 22:59:33.34

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

**デフォルトの名無しさん** · 2018/09/10(月) 23:01:24.61

まあどうせ自分のレスを最後にして終わりにしたいだけだろ
こいつバカだから

**ピラフ** ◆9Jro6YFwm650 · 2018/09/10(月) 23:01:29.79

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

**ピラフ** ◆9Jro6YFwm650 · 2018/09/10(月) 23:02:34.99

>>667
あまり変な綾つけてるとフラッテンを発動せざるを得ないが？

**デフォルトの名無しさん** · 2018/09/10(月) 23:03:11.10

悔しさに耐えきれず出てきてしまったバカ>>648

**ピラフ** ◆9Jro6YFwm650 · 2018/09/10(月) 23:04:13.53

>>670
クソレスすんなクズ

**ピラフ** ◆9Jro6YFwm650 · 2018/09/10(月) 23:04:30.71

はい勝利

**デフォルトの名無しさん** · 2018/09/10(月) 23:05:44.11

嫌がらせをするために生まれてきたとしか思えないようなクズだよな

**デフォルトの名無しさん** · 2018/09/10(月) 23:09:43.33

>>634-635
汚名返上大失敗

**ピラフ** ◆9Jro6YFwm650 · 2018/09/11(火) 22:25:27.29

>>673
秘奥義フラッテンを伝授してやっても良いけど？

**ピラフ** ◆9Jro6YFwm650 · 2018/09/11(火) 22:25:46.20

教えようか？しょうがないなあもう！

**ピラフ** ◆9Jro6YFwm650 · 2018/09/11(火) 22:29:50.82

フラッテンというのはArray(Array("a"))このように
入れ子になった配列をArray("a")このように平坦化するメソッドです

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

フラッテンを知ることでVBScriptで信頼性の高いプログラムを
作ることができるようになります

**ピラフ** ◆9Jro6YFwm650 · 2018/09/11(火) 22:33:42.97

まず、フラッテンによってどのようにデータが変換されるのかを学びましょう

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

どうです？フラッテンの威力はすごいでしょう？

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/11(火) 22:52:10.95

フランケンとフラッテンとフリテンはどう違うんだ？

**ピラフ** ◆9Jro6YFwm650 · 2018/09/11(火) 23:13:01.51

>>679
フランケンは人造人間を作った博士のこと
フラッテンはピラフが厳しい修行の末に身に着けた奥義
フリテンはちんちん丸出しのこと

**ピラフ** ◆9Jro6YFwm650 · 2018/09/11(火) 23:14:54.59

おちんちん

**デフォルトの名無しさん** · 2018/09/11(火) 23:40:56.45

すごいでしょ？と言われたってなぁ…
明日検証してみるけど、もし正しいとして、これが役に立つ場面より役に立たない場面の方が多い。

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

配列はどうしようもなく仕方なく使うという以外に使ってはいけない過去のもの。

**デフォルトの名無しさん** · 2018/09/12(水) 17:20:41.01

相変わらずスレの私物化が甚だしいな
伝授とかいってるけど覚えたことを逐一報告したいだけだろｗｗｗ

**デフォルトの名無しさん** · 2018/09/12(水) 17:22:01.32

それは新興宗教か何かですか

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/12(水) 21:47:14.91

フリテンはマージャン用語だよ。

**デフォルトの名無しさん** · 2018/09/12(水) 21:51:36.87

>>682
配列を使わないってよりは
配列みたいなプリミティブはラップして使う

**ピラフ** ◆9Jro6YFwm650 · 2018/09/12(水) 22:28:29.59

>>685
アリさんはホント物知りですね

**ピラフ** ◆9Jro6YFwm650 · 2018/09/12(水) 22:29:24.88

>>683
じゃー君はピラフから教わらずに実装できるのかい？
できないだろう、自信がないだろう、じゃー素直に教わったら良いよ

**ピラフ** ◆9Jro6YFwm650 · 2018/09/12(水) 22:29:42.76

>>682
おいフラッテン、実装はまだか？

**ピラフ** ◆9Jro6YFwm650 · 2018/09/12(水) 22:30:49.46

ピラフが上流工程担当で仕様と設計を担当します
>>682は詳細設計から先をお願いします

**デフォルトの名無しさん** · 2018/09/12(水) 22:44:30.25

>>688
連投するほど動揺するくらいなら大人しく引っ込んでろよｗ

**ピラフ** ◆9Jro6YFwm650 · 2018/09/12(水) 22:50:23.36

>>691
クソリプすんなゴミ

**デフォルトの名無しさん** · 2018/09/12(水) 22:55:30.55

>>692
荒らしてんじゃねえよ
ゴミはゴミ箱に入ってろ
https://mevius.5ch.net/test/read.cgi/tech/1536155434/

**ピラフ** ◆9Jro6YFwm650 · 2018/09/13(木) 22:21:35.80

はいみなさんこんばんわ
フラッテンプロジェクトの進捗報告会を始めます

**ピラフ** ◆9Jro6YFwm650 · 2018/09/13(木) 22:23:30.41

仕様と設計は先日終わりました
詳細設計と実装はいま何％くらいでしょうか？
>>693ご担当の方からご説明頂いてもよろしいでしょうか？

**ピラフ** ◆9Jro6YFwm650 · 2018/09/13(木) 23:12:27.84

うー

**デフォルトの名無しさん** · 2018/09/13(木) 23:59:12.24

ほんとしつこいよな、このガイジは
施設に帰れよ
https://mevius.5ch.net/test/read.cgi/tech/1536155434/

**デフォルトの名無しさん** · 2018/09/14(金) 00:46:53.14

　　　　　　 ::　　　　　　　　　　　　　　 .|ﾐ|
　　　　　　　::　　　　　　　　　　　　　.|ﾐ|
　　　　　　　　::　　　　　　　　　　　　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー､　　　　　　　::
　　 ::　　　　　　／　　　,,.-'"　　　　　　ヽ　ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　ヾ (　　　 _,,.-='==-､ヽ　　　　　ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　ヽ　
　　 ::　　 ./ /　　＞＝'''"　￣￣￣　　　　　　　　　ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　／　::
　　　　ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_　　　__ -_'"--''"ニニニニニニニﾆヽ　　 ::
　　　　　　　　｀¨i三彡--''"´　　　　　　　　　　　ヽ　　:: 　
　　　　　　　　　 /　　　　　　　　　　　　　　　　　　ヽ　:: 　　　　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ

**ピラフ** ◆9Jro6YFwm650 · 2018/09/14(金) 06:33:19.85

クソレス君さえいなければ

**デフォルトの名無しさん** · 2018/09/14(金) 07:48:23.54

都合の悪い事には一切触れないのはいつものこととしても、
自分の立てた糞スレはもう無かったことになってんのかよｗｗ
これもしかしてVBSに限定しないでなるべく人を集めたかったのかな？
実質誰にも相手にされてないからってこっちくんなよガイジ
https://mevius.5ch.net/test/read.cgi/tech/1536155434/

**ピラフ** ◆9Jro6YFwm650 · 2018/09/14(金) 22:11:43.07

クソレスすんなバーカ

**デフォルトの名無しさん** · 2018/09/14(金) 23:47:35.98

手抜きレスでだいぶ面倒くさそうだけどだったら引っ込んでろよガイジ
この糞スレ見れば分かるようにお前なんか誰からも必要とされていない
https://mevius.5ch.net/test/read.cgi/tech/1536155434/

**ピラフ** ◆9Jro6YFwm650 · 2018/09/15(土) 00:10:34.95

やだ！
ピラフ他人の指図受けたくない！
ピラフ自由にやりたいだけ！
お前らがどうなろうと知った事ない

**ピラフ** ◆9Jro6YFwm650 · 2018/09/15(土) 00:13:02.93

　　　　　 .＿
　　　　　＼ヽ,　,、
　　　　　　　`''|/ﾉ
　　　　　　　　.|
　　　　＿　　　|
　　　　＼｀ヽ、|
　　　　　＼, V
　　　　　　 `L,,_
　　　　　　　 |ヽ､)　 ,､
　　　　　　　 /　　　　ヽYﾉ
　　　　　　 /　　　　r''ヽ、.|
　　　　　　|　　　　　`ｰ-ヽ|ヮ
　　　　　　|　　　　　　　`|
　　　　　　|.　　　　　　　 |
　　　　　　ヽ、　　　　　　|
　　　　　　　ヽ＿＿＿_ﾉ　　　　　
　　　　　　　／_ノ '　ヽ_＼
　　　　　　／（≡）　（≡）＼
　　　　／::::::⌒（__人__）⌒::::: ＼　　　　　
　　　　 |　　　　　|r┬-|　　　　　|　　　　　
　　　　＼　　　 `ー'´ 　　／
　　　　　／　　　　　　　　　　＼
　　　　 (　 |　　　　　　　　　 |　 )
　　　　　＼|　　　　э　　　　|／
　　　　　　 (　　　　,,,,　　　 ,ﾉ
　　　　　　　＼　､(Ｕ)ﾉ　ノ
　　　　　　　　＼／　／　　　　　　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　／　／＼　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ　
　　　　　 ⊂⌒＿＿）＿＿）

**デフォルトの名無しさん** · 2018/09/15(土) 00:39:59.44

>>704
すごいどうやったの？
ちんちんの話じゃなくてトリップどうやったの？
ハッシュ値を総当たり？辞書を片っ端から調べた？
文字種が英数字58文字、文字列長が12だとして70ビットくらいでしょ
ハッシュ値の総当たりでやったとしたらすごい
できるもんなんだね

ちなみにピラフのトリップはこれ
Rembrandt Harmensz. van Rijn
レンブラント・ファン・レイン、画家の名前、すごくおしゃれ

**ピラフ** ◆9Jro6YFwm650 · 2018/09/15(土) 00:48:24.81

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

**デフォルトの名無しさん** · 2018/09/15(土) 01:00:36.26

君はピラフに成りたかったんだね
良いよ、君が今日からピラフだ

**ピラフ** ◆9Jro6YFwm650 · 2018/09/15(土) 01:08:51.59

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

**デフォルトの名無しさん** · 2018/09/15(土) 01:11:03.66

>>708
ピラフの大事なトリップが流出してただと・・・なんだと・・・
じゃあいままでピラフと名乗ってたのは全部・・・

**デフォルトの名無しさん** · 2018/09/15(土) 01:12:16.38

おらーピラフさっさとフラッテンの授業進めろよ

**ピラフ** ◆9Jro6YFwm650 · 2018/09/15(土) 01:24:05.26

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

**デフォルトの名無しさん** · 2018/09/15(土) 01:40:47.98

差し支えなければおパンツの色を教えてもらっても良いでしょうか？

**ピラフ** ◆9Jro6YFwm650 · 2018/09/15(土) 01:42:03.03

なんかしつこそうだから以降は↓で
https://mevius.5ch.net/test/read.cgi/tech/1536155434/

**デフォルトの名無しさん** · 2018/09/15(土) 07:02:45.41

ピラフのパンツ祭りと聞いて

**デフォルトの名無しさん** · 2018/09/15(土) 08:44:28.77

ピラフの自演と聞いて

**デフォルトの名無しさん** · 2018/09/15(土) 12:04:01.66

基地外が居ると聞いて

**ピラフ** ◆9Jro6YFwm650 · 2018/09/15(土) 12:27:29.09

>>714->>716

　　　∩∩∩　　　　　　　 ∩∩∩
　　.∩_:||_:|_:|　　　　　　　　|_:||_:|_:∩
　　│　___　つ　　　　　⊂ 　___　│
　　ヽ　　ノ　　＿＿＿　　ヽ　　ノ
　　／／　　／_ノ　ヽ､_＼　　ヽ＼
　 ( 　く　　 oﾟ(（●）) (（●）)ﾟo　　>　）　　クソレスすんなバーカ
　　＼　｀／::::::⌒（__人__）⌒::::＼'　／
　　　ヽ|　　　　　|r┬-|　　　　　|/
.　　　　＼　　 |　|　 | 　　／
　　　　　　　　　　|　|　 |
　　　　　　　　　　 `ー'´

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/17(月) 21:19:36.46

それじゃあ出題するね。

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

できるかな～？

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/17(月) 23:27:15.68

出てこいや、道場やぶりや！

**デフォルトの名無しさん** · 2018/09/17(月) 23:32:06.06

何に置き換えればいいん？
サンプル書いてもらえると助かる

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/17(月) 23:37:28.77

Sample{{痴漢前}}.txt → Sample{{痴漢後}}.txt

こんな感じで。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/17(月) 23:49:20.44

ファイルの中身に「{{痴漢前}}」があれば、すべて「{{痴漢後})」に置換。
ファイル名もしくはフォルダ名に「{{痴漢前}}」があれば、「{{痴漢後}}」に置換する。

**デフォルトの名無しさん** · 2018/09/18(火) 05:08:54.69

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

**デフォルトの名無しさん** · 2018/09/18(火) 07:47:05.14

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

**デフォルトの名無しさん** · 2018/09/18(火) 07:47:21.61

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

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/18(火) 11:59:05.99

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

**デフォルトの名無しさん** · 2018/09/18(火) 14:13:59.07

フォルダの中にフォルダが存在すると
Call subFolder.Move(destFolder) <-ここでエラーになる
Microsoft VBScript 実行時エラー: 書き込みできません。

**デフォルトの名無しさん** · 2018/09/18(火) 14:14:44.96

そんな面倒な仕様だったかな

**デフォルトの名無しさん** · 2018/09/18(火) 14:18:56.53

んん？あれ？できた、気の所為だったみたい

**デフォルトの名無しさん** · 2018/09/18(火) 15:32:52.88

>>726
フォルダたどるときに再帰呼び出しすればいいですね、ご査収ください
https://gist.github.com/sleeping-marple/512b86feb470296c5a48e00365dd3418

再帰の話が出ました、今度は私からアリさんそしてルビーさんに再帰に関する問題を出します
ちょっと待っててください、問題作るので

**デフォルトの名無しさん** · 2018/09/18(火) 16:50:37.02

準備できました、それでは問題を出します
一次元の配列を元に罫線素片を使用してトーナメント表を出力してください

Array("Ａ","Ｂ","Ｃ","Ｄ","Ｅ","Ｆ","Ｇ","Ｈ","Ｉ","Ｊ")
↑の配列を元に↓の出力を得る
https://light.dotup.org/uploda/light.dotup.org548029.png

**デフォルトの名無しさん** · 2018/09/18(火) 17:15:01.90

　　　　　　 ::　　　　　　　　　　　　　　 .|ﾐ|
　　　　　　　::　　　　　　　　　　　　　.|ﾐ|
　　　　　　　　::　　　　　　　　　　　　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー､　　　　　　　::
　　 ::　　　　　　／　　　,,.-'"　　　　　　ヽ　ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　ヾ (　　　 _,,.-='==-､ヽ　　　　　ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　ヽ　　　　　それでは・・・問題を・・
　　 ::　　 ./ /　　＞＝'''"　￣￣￣　　　　　　　　　ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　／　::
　　　　ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_　　　__ -_'"--''"ニニニニニニニﾆヽ　　 ::
　　　　　　　　｀¨i三彡--''"´　　　　　　　　　　　ヽ　　:: 　
　　　　　　　　　 /　　　　　　　　　　　　　　　　　　ヽ　:: 　　　　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ

**デフォルトの名無しさん** · 2018/09/18(火) 23:19:00.93

>>730
相変わらず中学生レベルの下手くそだな。
新人に「これ、駄目な例ね」って出せるからどんどん書いてよ。下手くそコードを。

**デフォルトの名無しさん** · 2018/09/18(火) 23:45:48.24

後学のために3回読んだ。
進歩の無さに感心する。
あらゆる「駄目」が詰まってる。

ある意味凄い。

**デフォルトの名無しさん** · 2018/09/19(水) 00:13:16.37

>>726
自演乙。

**723** · 2018/09/20(木) 00:37:18.38

>>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.22

Rubyスレでやれや。

**デフォルトの名無しさん** · 2018/09/20(木) 07:28:15.20

Rubyジジイはガチアスペだからね
会話も噛みあわないから始末が悪い

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/20(木) 19:48:35.67

>>731
https://gist.github.com/katahiromz/57e2b01e15497af96e9b59921bfa9ff0

**デフォルトの名無しさん** · 2018/09/20(木) 20:23:41.31

>>739
クラスを作ろうとしって何かしようとした時点で >>731 より少しマシなレベルかもだが、
分不相応なことをやろうとしたせいで圧倒的にクソ。
下から上に書くとか馬鹿じゃね？てか馬鹿だろ。

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

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

センス無いからもう書くな。片山無職MZよ。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/20(木) 20:54:35.14

>>740
向きを変えたよ。
https://gist.github.com/katahiromz/d834f184c4782d607a650541c1cce1f3

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/20(木) 21:22:38.53

>>740
模範解答を求む。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/20(木) 21:39:18.09

>>740
自演乙www

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/20(木) 21:41:58.07

>>740
やあ、ピラフさん。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/20(木) 21:52:31.68

>>740
君、人気者だね！

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/20(木) 21:54:04.98

無職じゃないよ。かなりきつい炭鉱の仕事を続けてるよ。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/20(木) 22:08:06.17

馬鹿と産業スパイには読めない不思議なソースコード

**デフォルトの名無しさん** · 2018/09/20(木) 22:30:48.62

片山は煽りには乗らないと思ってたけどそうでもなかったん？
まあピラフ扱いされたらこうなるのも仕方ないと思う

**デフォルトの名無しさん** · 2018/09/20(木) 22:51:01.73

>>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 が抜けてる。

「トーナメント表を作る」は割と面白げなお題だから書いてみようと思うが、まずは既定から調べんとな。

**デフォルトの名無しさん** · 2018/09/20(木) 22:55:22.59

ちなみに片山のコードは読めない。
斜め読みでなんとなくは分かるが自己中心的な汚さでムンムンなので読む気がしない。
ちょっと真面目に読もうとしたら気分が悪くなる。

**デフォルトの名無しさん** · 2018/09/21(金) 07:37:04.81

>>739
アリさんおはようございます
すごい！完璧です、さすがです

一応出題者として回答例と解説も用意していましたが
必要なかったですね、私の想像を超える形で解決されてます
議論するのは良いですね、思考が広がります

惜しむらくはアリさんとルビーさんと私の3人だけで議論できるといんですけどね
招待された人しか参加できないような議論の場があるといんですけど

最近荒らしがひどくて落ち着いて議論できないんですよね
偽物のピラフも出没します
どれが本物のピラフかはアリさんだったらわかってくださるかと

文面は誤魔化せませんからね、その知性は隠しきれないですからね

**デフォルトの名無しさん** · 2018/09/21(金) 09:38:11.24

ああ、蟻人間は、片山先生か。
ピラフは、偽者が登場してるのかw

トリップが解読されたのか？
5ch は、桁数が少ないのを使っているのかな？
SHA256 じゃないのか？

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/21(金) 14:45:41.92

解説しよう。
https://gist.github.com/katahiromz/57e2b01e15497af96e9b59921bfa9ff0

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

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/21(金) 14:46:08.96

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行目。再帰した結果を用いて新しい仮想画面を構築する。

**デフォルトの名無しさん** · 2018/09/21(金) 16:41:50.49

>>751
お前がキチガイの限りを尽くして荒らしてくれてたからコテを取り上げてやったんだよ
キチガイの割にメンタルは弱いからよくコテと名無しを使い分けて自演してたけど、バカすぎてバレバレだったよな

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/21(金) 19:24:04.09

だれかお題を出してくれ。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/21(金) 19:31:11.44

お題: VBScriptで日本語で「こんにちわ」としゃべらせる。

**デフォルトの名無しさん** · 2018/09/21(金) 20:03:46.12

WScript.Echo("(*∩ω∩)＜こんにちわ～")

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/21(金) 20:04:28.07

>>758
音声だよ。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2018/09/21(金) 20:48:58.88

ヒント: Text-To-SpeechとSAPIを使う。