Der Titel lautet beispielsweise: Tencent QQ2006 Polyps Integrated Version V4.5B
Nach Word -Segmentierung: [Dieses Ressourcenschlüsselwort: Tencent QQ Polyps Integration]
Machen Sie Schlüsselwörter zu speziellen Themen und Sie können zu verwandte Verbindungen für jede Inhaltsseite generieren.
Verwenden Sie CSW Chinese Word -Segmentierungskomponente
Download: http://www.vgoogle.net/product_csw.asp
Unten ist mein ASP -Code, der relativ einfach, aber praktisch ist
Codecsw erhält die Ausgabe der Wortsegmentierungsergebnisse. In der Montage befindet sich eine ASP -Datei. Sie können erkennen, wie Sie die Ergebnisse der Wortsegmentierung auf einen Blick erhalten. Ich werde nicht auf Details eingehen.
Die Codekopie lautet wie folgt:
fcon = split (htm, "")
fcs = ubund (fcon)
forfci = 0tofcs
IFFCIMOD2 = 0Then
fcn = fcn & fcon (fci) & "$ fc^#$" 'Ich benutze $ fc^#$, um jede Wortsegmentierung hier zu teilen
anders
fcw = fcw & fcon (fci) & "$ fc^#$"
Endif
nächste
fcn = links (fcn, len (fcn) -12) 'Entfernen Sie die erste $ fc^#$
fcw = links (fcw, len (fcw) -6) entfernen Sie die letzte $ fc^#$
Don = split (fcn, "$ fc^#$")
donn = split (fcw, "$ fc^#$")
dos = ubund (Don)
fordoi = 0todos
fcname = don (doi) 'Partizip
fcsx = donn (doi) 'das Wort Partizipattribut erhalten
'Das Folgende ist zu beurteilen, dass Partizip im Einklang mit den von mir vorgeschlagenen Attributen wie Substantiven, Substantiven, Verben usw. ohne Ziffern, Abakus und Konjunktionswörter.
IFFCSX = "/B" orfcsx = "/nz" orfcsx = "/n" orfcsx = "/an" orfcsx = "/nx" orfcsx = "/f" orfcsx = "/i" orfcsx = "/l" orfcsx = "/////I. ng "orfcsx ="/nr "orfcsx ="/nns "orfcsx ="/nt "orfcsx ="/nz "orfcsx ="/v "orfcsx ="/vn "orfcsx ="/s "orfcsx ="/g "dann
iflen (fcname)> 1thhen
ifInstr (fcName1, fcName & "$") dann
anders
IFFCNAME <> "" und fcName <> "" dann
fcName = ersetzen (ersetzen (ersetzen (trimm (fcName), chr (10), ""), chr (13), ""), chr (10) & chr (13), "") 'Entfernen Sie den Wort Partizip -Zeilenumbruch und geben Sie die Taste ein
iflen (fcname)> 1thhen
'Dies ist die Wortsegmentierungsbibliothek. Meine Wortsegmentierungsbibliothek enthält nur drei Felder, automatische ID, Wortsegmentierungsname und Inhalts -ID, zu der die Wortsegmentierung gehört
SetRs = createObject ("adodb.recordset")
Sql = "selectTop1*fromFcWherefcName = '" & fcName & "'" "
Rs.opensql, Conn, 1,3
ifrs.eofthen
rs.addnew
Endif
RS ("fcName") = fcName
ifinstr (rs ("Mid"), "," & id & ", dann")
anders
RS ("Mid") = RS ("Mid") & "," & id & ",", ",", ",", ",", ","
Endif
Rs.Update
rs.close
setrs = nichts
'Das Wort Partizip endet
Endif
Endif
response.writeFcName & "(" & fcsx & ") <br>"
MFC = MFC & FCNAME & ",", ","
Endif
fcname1 = fcname1 & fcname & "$"
Endif
Endif
nächste
'Hier fügt die Inhaltstabelle Partizip hinzu. In der Inhaltstabelle habe ich nur ein Partizipfeld MFC hinzugefügt
IFright (MFC, 1) = "$" thenmfc = links (MFC, Len (MFC) -1)
SetRs = createObject ("adodb.recordset")