本棚に入りきらずに段ボールに入れてあった本（ほとんどマンガ）をようやっと処分しました。ずいぶん昔に，ブックオフに引き取りにきてもらったときは，その場で査定してくれて値段がつかないものは置いていってくれたので，今回もお願いしようかと思ったの…

JIVEさん Option Explicit Const ForReading = 1 Const ForWriting = 2 Const input = "isbn.txt" Const output = "prices.txt" Sub WaitForLoad(browser) Do While browser.Busy WScript.Sleep 100 Loop End Sub Dim file_sys Set file_sys = WScript.Creat…