Re: 不正ISBN一覧(不明分) ← 素晴らしい〜!大変ですよね!×1869610221 → ○1869610202 かな?

[掲示板: SSSサイト に関する掲示板 -- 最新メッセージID: 1767 // 時刻: 2024/6/26(18:38)]

管理用 HELP LOGIN    :    :



上へ上へ | 前のメッセージへ前のメッセージへ | 次のメッセージへ次のメッセージへ | ここから後の返答を全表示ここから後の返答を全表示 | 返答を書き込む返答を書き込む | 訂正する訂正する | 削除する削除する

[喜] 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について解説してあるページを紹介しました

「調子に乗って、こんなところで雑談 」なんかじゃなかったと、本当に思っています (^_^)
今回もためになるお話、ありがとうございます。

ではでは


タイトル一覧へ(返答順)(B)

タイトル一覧へ(日付順)


Maintenance: SSS 事務局
KINOBOARDS/1.0 R7.3: Copyright © 1995-2000 NAKAMURA, Hiroshi.