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

Question

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", "sa", "s", "she", "sh", "s", "wan", "wa", "w", "zhuan 专", "zhua", "zhu", "zh", "z")
这样子太麻烦了，而且这只是我文本文档里的一部分，我不可能把所有的拼音全给写进来的，有没有直接读取我拼音所在的文本文档的方法，简洁一些的~~~请教各位了
还有就是排序完了，怎么让它自己自动进行换行就是每个拼音和拼音后跟的文字占一行.

Answer 1

Dim hFile As Integer
Dim bytes() As Byte
Dim arr() As StringhFile = FreeFile()
Open "C:\1.txt" For Binary Access Read As #hFile
ReDim bytes(0 To (LOF(hFile) - 1))
Get #hFile, , bytes
Close #hFile'假定文件中每个拼音占一行，分隔符就是 vbCrLf
arr = Split(StrConv(bytes, vbUnicode), vbCrLf)