我在C盤目錄下有個InsertTags.txt文本,里面有三行文字,分別是bbb,aaa,ccc
我在界面有個Combobox,我想去讀InsertTags.txt這個文本里面的每一行內容,然后放到Combobox里面去,可是我想排序后放進去
Private Sub UserForm_Initialize()
Dim myString As String, FileInQuestion As String
Dim tagFile As String
FileInQuestion = Dir("C:\InsertTags.txt")
If FileInQuestion = "" Then
MsgBox "Please make sure InsertTags file is in C:!"
Else
MsgBox "File exists!"
End IftagFile = "C:\InsertTags.txt"
Open tagFile For Input As #1
Do
Line Input #1, myString
ComboBox1.AddItem myString
Loop While Not EOF(1)
Close #1
ComboBox1.BoundColumn = 0
ComboBox1.ListIndex = 0
'combobox1.
End Sub
我現在 這樣做能讀到數據放到ComboBox里去了,但是還沒有排序,我原本想用ArrayList遍曆一下文本里面的數據,但是我找不到AaaryList,.net里面就有,請各位大蝦們幫我看看,用哪個方法可以排序后再放入ComboBox呢?感激不盡!頂者有分~~~~~把代碼幫我補充完整
我在界面有個Combobox,我想去讀InsertTags.txt這個文本里面的每一行內容,然后放到Combobox里面去,可是我想排序后放進去
Private Sub UserForm_Initialize()
Dim myString As String, FileInQuestion As String
Dim tagFile As String
FileInQuestion = Dir("C:\InsertTags.txt")
If FileInQuestion = "" Then
MsgBox "Please make sure InsertTags file is in C:!"
Else
MsgBox "File exists!"
End IftagFile = "C:\InsertTags.txt"
Open tagFile For Input As #1
Do
Line Input #1, myString
ComboBox1.AddItem myString
Loop While Not EOF(1)
Close #1
ComboBox1.BoundColumn = 0
ComboBox1.ListIndex = 0
'combobox1.
End Sub
我現在 這樣做能讀到數據放到ComboBox里去了,但是還沒有排序,我原本想用ArrayList遍曆一下文本里面的數據,但是我找不到AaaryList,.net里面就有,請各位大蝦們幫我看看,用哪個方法可以排序后再放入ComboBox呢?感激不盡!頂者有分~~~~~把代碼幫我補充完整
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货