[過去ﾛｸﾞ] VBSで便利なプログラムを作れスレ (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

724(1): 2018/09/18(火)07:47 ID:/fJcssx/(1/7) AAS
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
省12

---

725(1): 2018/09/18(火)07:47 ID:/fJcssx/(2/7) AAS
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)
省9

---

727: 2018/09/18(火)14:13 ID:/fJcssx/(3/7) AAS
フォルダの中にフォルダが存在すると
Call subFolder.Move(destFolder) <-ここでエラーになる
Microsoft VBScript 実行時エラー: 書き込みできません。

---

728: 2018/09/18(火)14:14 ID:/fJcssx/(4/7) AAS
そんな面倒な仕様だったかな

---

729: 2018/09/18(火)14:18 ID:/fJcssx/(5/7) AAS
んん？あれ？できた、気の所為だったみたい

---

730(1): 2018/09/18(火)15:32 ID:/fJcssx/(6/7) AAS
>>726
フォルダたどるときに再帰呼び出しすればいいですね、ご査収ください
外部ﾘﾝｸ:gist.github.com

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

---

731(3): 2018/09/18(火)16:50 ID:/fJcssx/(7/7) AAS
準備できました、それでは問題を出します
一次元の配列を元に罫線素片を使用してトーナメント表を出力してください

Array("Ａ","Ｂ","Ｃ","Ｄ","Ｅ","Ｆ","Ｇ","Ｈ","Ｉ","Ｊ")
↑の配列を元に↓の出力を得る
画像ﾘﾝｸ[png]:light.dotup.org

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.049s