connecting...
Google translation for articles :
40 NEMBER donated to you!!

今日現在のnemscore順位を調べてみたよ!

nem573xem (40) 2029 53 10

本日2019年1月17日午後14時ごろ時点でのnemscore順位発表

 

※これは1月時点のもので現在とはスコアの計算方法も違っています

最新版はhttps://nemlog.nem.social/search/nemlogscoreで調べてみてね!

 

みなさんこんにちは。

Twitter上で、nemlogユーザー登録数が3400人を超えた。なんていう投稿を見たので、調べてみたら現状3436番目までプロフィールはあるようですね。

https://nemlog.nem.social/profile/1

ここの、数字の部分が登録順番みたいです。

 

これ、スクレイビング?してみたら順位もすぐに出せるんじゃないか?と思って調べてみました。

 

じゃじゃん(スマホで見ると凄いスクロール必要になってるけど直し方わからない。)

順位 NO. 名前 スコア
1 1 nemlog 1000
2 116 ZEM🐳ZEM 996
3 6 えっさん&小梅ちゃん🐷自称nemlogコメンテーター 873
4 2777 姉崎あきか 659
5 441 oratamah 632
6 11 XEMBook 607
7 347 sasuke0025 561
8 547 shinobu 492
9 596 7zoesan 491
10 163 トレスト 437
11 2873 YUTO 436
12 3022 matsuno 409
13 2 しゅう 357
14 110 のののん 343
15 126 DEM 325
16 43 やそ 305
17 15 狂タヌ尊 304
18 25 かのん@中身はおっさん 286
19 619 ワッケ 286
20 29 がく 278
21 193 nemjin 272
22 416 目指せ北海道 228
23 466 nemHome(ネムホーム) 225
24 36 ねむぐま 224
25 2664 Kumako 224
26 106 マクト 223
27 114 patapiron 222
28 44 ふかつ 215
29 55 mikun 211
30 82 KATAKUNA 206

nemlogは運営なので1000だとしても、

ZEMZEMさん凄い!

 

私は16位でした。

 

方法は、以下のコードをエクセルのマクロで実行してソートかけただけです。

Sub nemlog()
Dim number As Long, score As Long
Dim http As Object
Dim URL As String, check_txt As String, user_name As String
Dim st_point As String, ed_point As Long 
Dim waitTime As Variant

Set http = CreateObject("MSXML2.XMLHTTP")

number = 1

Do Until number > 3436
continue:
URL = "https://nemlog.nem.social/profile/" & number

' HTML形式で読み込む
http.Open "GET", URL, False
http.setRequestHeader "If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT"
http.send
If http.Status <> 200 Then Exit Sub 'リクエスト失敗で終了

check_txt = "<div class=""message-header""><p class=""fs12"">"

st_point = InStr(1, http.responsetext, check_txt) + Len(check_txt)
ed_point = InStr(st_point, http.responsetext, "</p>")

user_name = Mid(http.responsetext, st_point, ed_point - st_point)
If Len(user_name) > 100 Then
number = number + 1
GoTo continue
Else
ActiveSheet.Cells(number, 1) = user_name
End If

check_txt = "nemlog score</div>"
st_point = InStr(ed_point, http.responsetext, check_txt) + Len(check_txt)
check_txt = "<div class=""column"">"
st_point = InStr(st_point, http.responsetext, check_txt) + Len(check_txt)
check_txt = "<div class=""fw7"">"
st_point = InStr(st_point, http.responsetext, check_txt) + Len(check_txt)
ed_point = InStr(st_point, http.responsetext, "</div>")
score = Mid(http.responsetext, st_point, ed_point - st_point)
If score > 1000 Then
Else
ActiveSheet.Cells(number, 2) = score
End If

number = number + 1 ' 次の行

waitTime = Now + TimeValue("0:00:01")

Loop

Set http = Nothing

End Sub

ほんとプログラミングって、僕分かるのはhtmlが少しと、エクセルのマクロが少しくらいなもんですけれども

便利ですよねぇ。

 

こんなの手作業じゃできませんぜ。

もし、もっとスマートな記述方法あるよ!ってのわかる人は教えてください!

全然プログラミング分からんので!

 

それにしても、nemlogのスコアって最低4なんですね。

記事を書いてても4て人もいるので、やっぱり投げNEMの有無なんでしょうねえ。

 

そして、調べてる最中で気づいたんですが、686番から2655番まで欠番なんですね。

びっくり爺さんの話で一時停止していた時の分なんでしょうか??

もしもその中にいるよ!って方がいらっしゃれば教えてください。

 

結局、登録総数は現状1401人。秘密鍵を忘れての重複ユーザーも考えれば1000人ほどかな?

スコア4の人が713人いますからね。

 

スコア200以上で30人

100以上にしても70人。

 

実際の熱心なユーザーは100人いってないってところでしょうか。

 

皆さん、スコア50以上目指して頑張りましょう!

それだけで上位130人。割合にしてユーザー数の上位10%です。

Why don't you get crypt currency 'nem' by posting your blog article?

nemlog is blog posting service which has donation feature by crypt currency nem.
nemlog was launched to create environment which can be donated nem among NEMbers via blog articles.
Let's get nem by posting good blogs.

Nem prize event is being held frequently, Please join us on this opportunity!

nemlog registration from here
Register
Comments from NEMber
やそ
2019-05-09 06:17:04ID:114948

>>ともニャン::さん
この時と今のスコアは計算式が違ってますんで、一概に比較はできないです。
2月末のこちらもご参考していただければ。
https://nemlog.nem.social/blog/15657

フェザー級とか〇〇級とかそういうので一つでもランキングが上がれば立派な上位グループであることに変わりはないのですが。。

ともニャン
2019-05-08 22:34:43ID:114815

へえ~そうだったんですね。
nemlogって思ってたよりも、ずっとちっちゃい規模だったんですねw

始めてから1ヶ月の、ともニャンがスコア149だから、すでに上位グループになるんかニャw

やそ
2019-03-22 13:19:59ID:86739

>>ちきゅう::さん
無理に絡まなくても良いですよー。
でもきっと仲良くなれそうな気もしてます。違ったら双方ごめんなさい。

ちきゅう
2019-03-22 12:46:30ID:86730

ちきゅうのID217お前の後輩や

物愚者に絡んできて怒らせたらオメーのせーだゾー!❢

やそ
2019-03-03 06:47:49ID:70686

>>ちょこたろ先生(農民垢)::さん
そうですフェザー級とかそういう横に書いてある数字のことです。
ただ、ここに書いてあるスコアは、この記事書いた数日後に計算式が変わってしまっているのですけれども。
https://nemlog.nem.social/blog/15657
こっちが2月末での最新データだったりします。最低スコアも50前後になっていました。

ちょこたろ先生(農民垢)
2019-03-02 22:17:51ID:70391

ここで書いてるスコアってプロフィールのなんとか級って書いてる横の数字スコアのことですか?

フェザー級になってる〜。

やそ
2019-02-11 07:14:29ID:50779

>>ねっむ@のびるラッコ::さん
それくらいで良い気がします!

Xem応援隊
2019-01-24 13:50:45ID:33230

>>やそ::さん
その気持ちで長ーく楽しめるようにやっていきたいです!
よろしくお願いします!

やそ
2019-01-24 13:34:35ID:33219

>>Xem応援隊::さん
半年間の活動数だとしゅう様が言っていたので、まずは1-2ヶ月とスコアなんて気にせず続けていくところからが良いんじゃないかと想います!

NEMber who posted this article

投げNEMしてますか?溜め込んでると爆発するって何処かで聞きましたよ。
11074
0