VB的TXT操作

我用VB想这样操作TXT   在TXT中插入文本  奇数行中文提示名称   偶数行显示网址
用TEXTBOX读取的时候只显示中文 点击中文连接到对应的网址
也就是浏览器的收藏夹功能

答案：应该用ListBox（ComboBox也可），不要用TextBox，这样点击网址才方便：
 
Dim u() As String
 
Private Sub Form_Load()
Dim s As String
List1.Clear
Open "e:\tmp\url.txt" For Input As #1
Do Until EOF(1)
    Line Input #1, s
    If EOF(1) Then Exit Do
    List1.AddItem s
    Line Input #1, s
    ReDim Preserve u(List1.NewIndex)
    u(List1.NewIndex) = s
Loop
Close #1
End Sub
 
Private Sub List1_Click()
MsgBox "你点击的网址是" & u(List1.ListIndex)
'打开网址的操作就自己去完成了
End Sub

其他：这样不好，你应该存在的时候 名称和网址用符号分开，然后你把数据全部读进来，用你定义的符号进行分割一下。保存到数组里面

上一个：vb 小白询问一个问题
下一个：vb2008 字符串转控件名称