环球微头条丨[Mabinogi]excel读取指定角色包裹数据的VBA
snowmirai前段时间更新后可以将角色包裹数据保存到本地，但是每个角色的包裹数据都是单独保存的，需要找东西要逐个打开比较笨重。所以花了一下午时间看了下VBA，写了个可以读取选定角色包裹（单选多选均可）的功能。保存模块之后在工作表添加一个按钮用于加载脚本就行了。
EXCEL VBA个人感觉是难懂还难用。。。
Sub Import_Item_TXT()
(资料图片)
ActiveSheet.Unprotect Password:="mabinogi"
Dim objStream, StrData, Arr1, i As Long
'Dim rows_num
Dim full_info As String
Dim string_searchResult
Dim item_name As String, item_other As String, item_id As String
Dim item_id_key As String, item_otherinfo_key As String
Dim pathX As String, item_Code As String, N As Long
Dim String_reading As String
String_reading = "已导入文本"
Dim pathCollection As String
With Application.FileDialog(msoFileDialogFilePicker)
'////////////////打开文件/////////////
With .Filters
.Clear
.Add "txt_File", "*.txt"
End With
.AllowMultiSelect = True
.Show
'/////////////////////////////////////
'////////////////清除原有数据////////////
ActiveSheet.UsedRange.ClearContents
ActiveSheet.Cells.Interior.Pattern = xlNone
'////////////////////////////////////////
N = 3
'rows_num = 1
For lngcount = 1 To .SelectedItems.Count
j = 1
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-16"
objStream.Open
objStream.LoadFromFile (.SelectedItems(lngcount))
StrData = objStream.readtext()
Arr1 = Split(StrData, vbCrLf)
objStream.Close
Set objStream = Nothing
ActiveSheet.Rows(N).Interior.Color = 65535
Range("D" & N) = .SelectedItems(lngcount)
For i = 0 To UBound(Arr1)
string_searchResult = 0
full_info = Arr1(i)
'////////////////截取字符串////////////
' item_id_key , item_otherinfo_key
item_id_key = "ClassID"
item_otherinfo_key = "Color"
'//////////////////////////////////////
'////////////////查找字符串///////////
If (InStr(full_info, item_id_key)) Then
string_searchResult = 1
End If
'///////////////////////////////////
If full_info <> "" Then
If (string_searchResult) Then
item_name = Mid(full_info, 10, InStr(full_info, item_id_key) - 11)
item_other = Mid(full_info, InStr(full_info, item_otherinfo_key) - 1)
item_id = Mid(full_info, InStr(full_info, item_id_key) - 1, Len(Mid(full_info, InStr(full_info, item_id_key) - 1)) - Len(item_other))
Range("B" & N) = item_name
Range("C" & N) = item_id
Range("D" & N) = item_other
Else
Range("A" & N) = full_info
End If
End If
N = N + 1
string_searchFault = 0
Next
Next lngcount
'MsgBox String_reading
End With
ActiveSheet.Protect Password:="mabinogi"
End Sub
