VB把程序改成直接读取文本的

来源：百度知道 编辑：UC知道 时间：2024/05/24 05:06:55
Dim arr
Dim brr
brr = Array("b", "ban", "b", "chua", "chu", "ch", "c", "con", "co", "c", "co", "c", "l", "sa", "s", "she", "sh", "s", "wan", "wa", "w", "zhuan 专", "zhua", "zhu", "zh", "z")
arr = qucf(brr)
For i = 0 To UBound(arr)
Next
For i = 0 To UBound(arr) - 1
For j = i + 1 To UBound(arr)
If arr(i) > arr(j) Then a = arr(i): b = arr(j): arr(i) = b: arr(j) = a
Next
Next
For i = 0 To UBound(arr)
s = s & arr(i) & vbCrLf
Next
Text3.Text = s
把这个brr = Array("b", "ban", "b", "chua", "chu", "ch", "c", "con", "co", "c", "co", "c", "l"

首行文本文件内容格式是什么样的,这里要求是一个词占一行!
Dim brr
Public i As Integer, t As String
Private Sub Form_Load()
i = 0
Open "wls.txt" For Input As #1
While Not EOF(1)
Input #1, t
i = i + 1
Wend
Close #1
'以上得出文本文件的总行数,也就是词的总个数
ReDim brr(i - 1)
i = 0
Open "wls.txt" For Input As #1
While Not EOF(1)
Input #1, brr(i)
i = i + 1
Wend
Close #1
End Sub
当然,也可以直接用控件读到文本文件的总行数,但要另外加载控件,不如这样简单!

Open "wls.txt" For Input As #1
redim brr(EOF(1) - 1)
While Not EOF(1)
Input #1, brr(i)
i = i + 1
loop
Close #1