Tweetのハッシュタグ認識 | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
#ifndef __HasyuTag__
#define __HasyuTag__
#include "kernel32.as"
#module
//--------------------------------------------------------------------------------------------------
/*
%index
Tag
ツイートの解析
%prm
p1,p2,p3
p1 = 文字列 ; 解析結果が入ります
p2 = 文字列 : 解析するツイート
p3 = 文字列 : 解析したハッシュタグが代入されます
%
%*/
//--------------------------------------------------------------------------------------------------
#deffunc Tag var p1, str p2, var p3
miku = p2
value = instr(miku, , "#") + 1
getstr buf, miku, value, , instr(miku, value, "」")
MultiByteToWideChar 0, 0, varptr(buf), -1, 0, 0
if stat<3 {
    
    getstr buf, miku, value, , instr(miku, value, "-")
    MultiByteToWideChar 0, 0, varptr(buf), -1, 0, 0
    if stat<3 {
        
        getstr buf, miku, value, , instr(miku, value, "【")
        MultiByteToWideChar 0, 0, varptr(buf), -1, 0, 0
        if stat<3 {
            getstr buf, miku, value, , instr(miku, value, "?")
            MultiByteToWideChar 0, 0, varptr(buf), -1, 0, 0
            if stat<3 {
                getstr buf, miku, value, , instr(miku, value, "!")
                MultiByteToWideChar 0, 0, varptr(buf), -1, 0, 0
                if stat<3 {
                    getstr miku, alt, value, , instr(miku, value, " ")
                    MultiByteToWideChar 0, 0, varptr(buf), -1, 0, 0
                    if stat<3 {
                    }
                }
            }
        }
    }
;この時点で[buf]にはハッシュタグのみが入っています
p3 = buf
split miku,"#",tweet1,tweet2,tweet3
kome="!#"+buf+"!";ハッシュタグの処理
bad=tweet1+kome
;ハッシュの処理
split miku,"#",mes1,mes2
;mes2に基本的に#以降が入る
split mes2," ",me1,me2
a=0;←こいつで判断
;分割ハッシュタグ以降を切り取る
if strlen(me2)=0 {
    split mes2,"」",m1,m2
    a++
    if strlen(m2)=0 {
        split mes2,"-",ai,sou
        a++
        if strlen(sou)=0 {
            split mes2,"「",itibann,takara
            a++
            if strlen(takara)=0 {
                split mes2,"☆",yui,yuri
                a++
                if strlen(yuri)=0 {
                    split mes2,"★",hinata,otonasi
                    a++
                    if strlen(otonasi)=0 {
                        split mes2,"?",a1,a2
                        a++
                        if strlen(a2)=0 {
                            split mes2,"【",a3,a4
                            a++
                            if strlen(a4)=0 {
                                split mes2,"!",a5,a6
                                a++
                            }
                        }
                    }
                }
            }
        }
    }
}
if a=1 : op="」" : mes2=m2
if a=0 : op=" "  : mes2=me2
if a=2 : op="-"  : mes2=sou
if a=3 : op="「" : mes2=takara
if a=4 : op="☆" : mes2=yuri
if a=5 : op="★" : mes2=otonasi
if a=6 : op="?"  : mes2=a2
if a=7 : op="【" : mes2=a4
if a=8 : op="!"  : mes2=a6
angel=bad+op+mes2
p1=angel
return stat
#global
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX