词频统计程序1

 

 

'词频统计程序1
'2019-01-17
' VB6 程序 编译 成功

Public mp
Public c(10000)  '词空间
Public j

Private Sub Form_Load()
mp = "C:\vb\a53\cp\"
End Sub

Private Sub Command1_Click()

Open mp + "02_2.txt" For Output As 2
Open mp + "02.txt" For Input As 1       '整理 2 字词
j = 0
While Not EOF(1)
Input #1, e

el = Len(Trim(e))
If el > 2 Then
'Print e

For i = 1 To el - 1
e2 = Mid(e, i, 2)

c(j) = e2
Print #2, e2, Str(j)

j = j + 1
Next i

End If

Wend
Close 1
Close 2

Print j '排序
For i = 1 To j - 1
  For k = 1 To j - i
     If c(k) >= c(k + 1) Then
      t = c(k + 1)
      c(k + 1) = c(k)
      c(k) = t
      End If
    Next k
 Next i

Open mp + "02_2_p.txt" For Output As 2
For i = 1 To j
'Print c(i)
Print #2, c(i) ', Str(i)
Next i
Close 2
End Sub

Private Sub Command2_Click()
Cls
'Open mp + "dj190_o2_p.txt" For Output As 2
'Open mp + "dj190_o2.txt" For Input As 1
Open mp + "02_2_p2.txt" For Output As 2
Open mp + "02_2_p.txt" For Input As 1

u = ""
ul = 0

While Not EOF(1)
Input #1, e
If u = e Then
'u = e
'ul = ul + 1

Else
Print u, ul

N = 5
ull = Len(u)

s = Mid(Str(ul), 2, 9)
ull = Len(s)

For q = 1 To N - ull
s = "0" + s
Next q

Print #2, "@" + s + "@" + u

u = ""
ul = 0
End If
u = e
ul = ul + 1

'Print #2, e + "@" + Mid(Str(ul), 2, 9)
'Print #2, e + "@" + ul

Wend
Close 1
Close 2
End Sub

Private Sub Command3_Click()

'Open mp + "01_o2_p3.txt" For Output As 2
Open mp + "02_2_p2.txt" For Input As 1
j = 0
While Not EOF(1)
Input #1, e

c(j) = e
j = j + 1

Wend
Close 1
'Close 2
Print j
Print j '排序
For i = 1 To j - 1
  For k = 1 To j - i
     If c(k) >= c(k + 1) Then
      t = c(k + 1)
      c(k + 1) = c(k)
      c(k) = t
      End If
    Next k
 Next i

Open mp + "02_2_p3.txt" For Output As 2
For i = 1 To j
'Print c(i)
Print #2, c(i) ', Str(i)
Next i
Close 2
End Sub