[掲示板: SSSサイト に関する掲示板 -- 最新メッセージID: 1767 // 時刻: 2024/11/23(20:19)]
上へ | 前のメッセージへ | 次のメッセージへ | ここから後の返答を全表示 | 返答を書き込む | 訂正する | 削除する
398. Re: 不正ISBN一覧(不明分) ← 素晴らしい〜!大変ですよね!×1869610221 → ○1869610202 かな?
お名前: まりあ@SSS http://www.buhimaman.jp/
投稿日: 2004/5/10(23:06)
------------------------------
ひつじさん、今晩は。 まりあです。
〉先頭9桁から10桁目を計算なんて、誰もやらないと思っていたんですが、やっぱり
〉やっている方もいらっしゃったんですね...まりあさんは特別??
書店店頭や図書館などでISBNチェックしてきた本が、なかなか
探せないときとか、「ISBN間違えたかな?」って思うじゃないですか。
もう一度本を見に行くより、チェックした方が早いと思うから、
しこしこやるんですよ。
〉で、今回は約5000冊くらい一気にチェックしようと思ったので、エクセルのヘルプ見ながら
〉長〜い計算式を入力してチェックしました。
〉A1 に文字列(!)として ISBN が入っている場合に
〉B1 で =MOD(VALUE(MID(A1,1,1))*10+VALUE(MID(A1,2,1))*9+...+VALUE(MID(A1,9,1))*2,11)
〉なんて計算をしてその後 C1 で「10桁目になるべき1文字」を計算(?)。それを
〉A1 の 10 桁目と比較して不一致のものには "NG" を表示すると言う感じで "NG" 部分を
〉拾ったのがこのツリーの最初の不正ISBN一覧です。
〉#チェックするだけならもうちょっと短く書けるはずなのですが...
なるほど! あんなにたくさんチェックされたということは、
何か秘密兵器を使っただろうな、と思って、この機会を捉えて
教えて頂こうと思ったのです。昔は自分で一生懸命マクロを手書き
したりしましたが(あぁ、あの頃私も若かった!)、最近スクリプト
が主流になって完全に置いてきぼりをくっています。もっぱら
若い人に教えて貰うことに...厚かましくなっているんですね。
〉既に、くまくまさんから便利なページのご紹介があったので自力で計算する機会もないかと
〉思いますが何かのご参考に...ならないか(^^;
「A列に1文字ずつ入力して計算」とかやるのって素人丸出しで
恥ずかしいじゃないですか。上記の計算法で出来る、と知ると
大手を振って歩ける気分??になれるという利益がありましたよ。
ありがとう。
上へ | 前のメッセージへ | 次のメッセージへ | ここから後の返答を全表示 | 返答を書き込む | 訂正する | 削除する
401. Re: 不正ISBN一覧(不明分) ← 素晴らしい〜!大変ですよね!×1869610221 → ○1869610202 かな?
お名前: 成雄
投稿日: 2004/5/11(21:55)
------------------------------
〉ひつじさん、今晩は。 まりあです。
ひつじさん、まりあさん、こんばんは。成雄です。
〉〉先頭9桁から10桁目を計算なんて、誰もやらないと思っていたんですが、やっぱり
〉〉やっている方もいらっしゃったんですね...まりあさんは特別??
〉 書店店頭や図書館などでISBNチェックしてきた本が、なかなか
〉探せないときとか、「ISBN間違えたかな?」って思うじゃないですか。
そうそう!
〉もう一度本を見に行くより、チェックした方が早いと思うから、
〉しこしこやるんですよ。
え〜っと、この投稿をする前に、
新たに、くまくまさん紹介のページなどの仕組みを
新規書評登録のフォームのどこかにリンクして欲しいと、投稿しました。
私も、私だけではないと思いますが、新規に書評を登録する時に
とても緊張するのは、ISBNの数字とXを入れる時です。
こればっかりは誤入力すると、完全にエラーになり、
この間、データの修復作業で問題になっている二重登録や、誤登録につながります。
私は、数字だけをメモ帳にタイプして、それをコピーして、アマゾンで検索をかけます。
そこで該当本がヒットしたら、ISBNの空欄にそのまま貼り付けるということで、
対応してきました。
〉〉で、今回は約5000冊くらい一気にチェックしようと思ったので、エクセルのヘルプ見ながら
〉〉長〜い計算式を入力してチェックしました。
〉〉A1 に文字列(!)として ISBN が入っている場合に
〉〉B1 で =MOD(VALUE(MID(A1,1,1))*10+VALUE(MID(A1,2,1))*9+...+VALUE(MID(A1,9,1))*2,11)
〉〉なんて計算をしてその後 C1 で「10桁目になるべき1文字」を計算(?)。それを
〉〉A1 の 10 桁目と比較して不一致のものには "NG" を表示すると言う感じで "NG" 部分を
〉〉拾ったのがこのツリーの最初の不正ISBN一覧です。
〉〉#チェックするだけならもうちょっと短く書けるはずなのですが...
〉 なるほど! あんなにたくさんチェックされたということは、
〉何か秘密兵器を使っただろうな、と思って、この機会を捉えて
〉教えて頂こうと思ったのです。昔は自分で一生懸命マクロを手書き
〉したりしましたが(あぁ、あの頃私も若かった!)、最近スクリプト
〉が主流になって完全に置いてきぼりをくっています。もっぱら
〉若い人に教えて貰うことに...厚かましくなっているんですね。
えっ?
まりあさん、すご〜い!
自分と比べるというのは、とてもおこがましく恐縮ですが、私はマクロも書けません(今も昔も)…
〉〉既に、くまくまさんから便利なページのご紹介があったので自力で計算する機会もないかと
〉〉思いますが何かのご参考に...ならないか(^^;
ひつじさん、そんなことないですよ。
こういうのって、発想がポイントなんじゃないですか?
まりあさんも「ぷち鼻高々」みたいですが、知らない者にとっては
『へぇ〜、エクセルでも同じようにできるんだぁ〜』となるし、
考え方を知るというのは、とても有意義だと思います(作れるかどうかは無関係に)。
# そう思って、ISBNについて解説してあるページを紹介しました
「調子に乗って、こんなところで雑談 」なんかじゃなかったと、本当に思っています (^_^)
今回もためになるお話、ありがとうございます。
ではでは