まめ@Lif @mameta0824@ro-mastodon.puyo.jp

お、連アクセ履歴が出た。
まだ安定して無さそうだけど、B鯖に2.5G買取もいるしこの辺でおちつきそうか？🤔

とりあえず16時過ぎに公式露店価格ツールが更新されるから、履歴があるかが見ものやな

現時点で、連アクセは最低2G以上らしい（B鯖に2G買取がいくつか）

さて、何Gで決着するやら🤔

そうきたか🤔

ツテが無い状態で始めたら、村鯖の場合は、ソロならともかく自分から積極的に行ける人じゃないと、ギルドに入るのは厳しいと思う。

作るにしろ探すにしろ、自分からコミュニケーション取ろうとしないと厳しいし😅

ただ、過疎ってる分、一度は入れれば、ギルドの結束力は高い気がする

そうやって頻繁に話題に出すから、新連アクセの値段が上がるわけで

どうしても欲しいなら話題に出さなきゃいいのに🤔

魔法大会とかTWOも基準になりそ

危ない、13時過ぎるところだった、気付いて良かった😂

新くじの開幕直後に引くのと同じように、今くじの終了直前に引きたいのだが、気が付いたら5分過ぎてたとかになりそうで「終了直前」を何分前にするかすごく悩む🤔

買）+7あざケロ 4.5G

カード挿しは気軽にご相談ください😉

@kousaka_mil
見づらくてごめんなさい。
コードをtxtで保存したものや、excelも添付できない拡張子でした😂

少しでも役立ったら嬉しいです☺️
excelにどう組み込んで良いか分からなかったら聞いてくださいね～

どんだけ私を過大評価されてるんですかｗ大して変わらないと思いますよｗ

それと、綺麗な作りにすることも大事ではありますけど、それよりも期待通りの動作をすることや、時間をかけ過ぎないことも大事なので、今くらいで丁度良いと思いますよ～

やったー！

皆の装備が色々更新されてることもあって、猫だけじゃないPTでもパスタ倒せた！！😍

@kousaka_mil

'IDの含まれる文字列から、正規表現でアイテムIDのみ取得する
Dim regex As Object
Dim matches As Variant
Dim itemId As String

Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = ".+\[([0-9]+)].+"
regex.Global = True
Set matches = regex.Execute(onmouseover)
itemId = matches(0).submatches(0)


'ブラウザを閉じる
ie.Quit

GetItemId = itemId
End Function

@kousaka_mil

Set doc = ie.document
Set h2 = doc.getElementsByTagName("h2")(0)
Set span = h2.getElementsByTagName("span")(0)
onmouseover = span.getAttribute("onmouseover")

@kousaka_mil
Function GetItemId(ByVal itemName As String)
'unitrixの該当ページをブラウザで表示する
Dim ie As New InternetExplorer

ie.Visible = False
ie.navigate "http://unitrix.net/?w=Noatun&i=" & itemName


'ページが表示完了されるまで待つ
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE


'表示したHTMLからIDの含まれる文字列を取得する
Dim doc As New HTMLDocument
Dim h2, span As Object
Dim onmouseover As String

@kousaka_mil
Sub GetItemIdStart()
Dim itemName As String
Dim iRow As Integer
iRow = 5

Do Until Cells(iRow, 2).Value = ""
itemName = Cells(iRow, 2).Value
itemId = GetItemId(itemName)
Cells(iRow, 3).Value = itemId
iRow = iRow + 1
Loop

MsgBox ("処理が完了しました")
End Sub

@kousaka_mil
超久しぶりにVBAしてみて、ID取れたので、超適当なコードですが一応共有します

添付機能にテキストファイル使え無かったので、文字数の関係上、3つくらいに分割して貼り付けますね（苦笑）

@kousaka_mil
excelにはっつけてやるなら、ExcelのVBA使ってunitrixをスクレイピングすればいけそう

@kousaka_mil
全然簡単じゃないけど現時点で思いつくのは、以下2つくらいかなぁ。

このどっちかをスクレイピングさせれば、（ツール作る手間はあるけど）自動化はできる気がする。

1. 公式の露店取引情報で該当アイテムのページ開いてURLからIDを取得する

2. unitrixで該当アイテムのページ開いて、ソースからIDを取得する

@kousaka_mil
今後も追加等あるでしょうから、メンテの楽さは非常に重要ですよね！データ形式公開しておけば、データ提供もあるかもしれませんね。

アイテムやエンチャのIDはゲーム内のアイテムID使用しておくと、他ツールとも連携できるのでいいですよね～♪

ツール作ろうかと考え、5秒で「面倒だからいいや」となる私からすると、実際に作ってしまう行動に移せるそらさんは尊敬です☺️ アイデアを出すのが誰であろうと、作った人が一番偉いのです