平均权值.txt

来自「这是一个原创的文章信息自动标引和分类小程序。可以用于文本分析。功能还在不断完善中」· 文本 代码 · 共 24 行

Private Type record
   rid As String
   rtimes As Integer
   rnum As Double
End Type
Dim stype(List2.ListCount) As record

For i = 0 To List2.ListCount - 1
  Erase stype
  j = 0
  stype(j).rid = Left(List2.List(0), 4)
  If (Left(List2.List(i), 1) = Left(stype(j).rid, 1)) Then
    j = j + 1
    stype(j).rid = Left(List2.List(i), 4)
     stype(j).rtimes = Val(Right(List2.List(i), Len(List2.List(i)) - 4))
     Dim sql As String
     sql = "select 权值 from 关联词表 where 编号=" & stype(j).rid
     rs.open sql, cn, 2, 3
     stype(j).rnum = rs.Fields(0)
     rs.Close
    Set rs = Nothing
     cn.Close
     Set cn = Nothing
  End If