请教取某部份的数据

Question

dim i as integer
i=instr(a,",")
b=left$(a,i-1)
c=right$(a,len(a)-i+1)

Answer 1

gddd,得好好学下字符串处理呀！

Answer 2

公布源代码以前还得再问一个问题...免得别人下载了我直接压缩的代码说用不了...(最怕这个,下载以后还得自己调试不可以直接再开发的东西)chatlist.txt文件有如下内容
碧海银沙,http://202.96.140.93:1600
碧海银沙II,http://202.96.140.93:1900
海阔天空,http://202.96.140.93:1601
海阔天空II,http://202.96.140.93:1901
椰风细雨,http://202.96.140.93:1609
椰风细雨II,http://202.96.140.93:1909要求是
1要读出左边的室名到combo1.combobox(下拉列表)  已得到代码解决
如下:
Function Loadchatlist()
Dim p As Integer
Dim TextLine
p = 0
'SuiH.Clear
Open "chatlist.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, TextLine
    Combo1.AddItem Left$(TextLine, InStr(TextLine, ",") - 1)
Loop
Combo1.ListIndex = 0
Close #1
End Function
2要读取后边的网址到text1.text的单行文本框控件里.要求是.按下拉列表的时候,TEXT1.TEXT会自动变换出相应的网址先解释吧..解决了再下载就没什么问题了呵呵...谢谢