有两个问题请教.

Question

(1)有字符串string="北京，上海，天津，石家庄，呼和浩特，秦皇岛，大连"
实现在list控件里加载
    北京
    上海
    天津
    石家庄
    呼和浩特
    秦皇岛
    大连
不要逗号。(2)在没有任何内容的ini文件（没有[SectionName]和KeyName）里假定我要建立SectionName=[Time],keyName=2006.04.10,怎样实现.

Answer 1

Dim arrData() As String,i As Long
string="北京，上海，天津，石家庄，呼和浩特，秦皇岛，大连"
arrData=Split(string,",")
For i=Lbound(arrData) To Ubound(arrData)
    List1.AddItem arrData(i)
Next

Answer 2

变通：Private Sub Command1_Click()
    Open "c:\test.ini" For Output As #1
    Print #1, "[Time]"
    Print #1, "keyName=2006.04.10"
    Close #1
End Sub

Answer 3

对于第二点,可以使用API来实现.
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias _
    "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, ByVal lpString As Any, _
    ByVal lpFileName As String) As LongFlag = WritePrivateProfileString("Time", "keyName", "2006.04.10", "Test.ini")

Answer 4

第一个
Dim Fld_arr() As String,i As Long
string = "北京，上海，天津，石家庄，呼和浩特，秦皇岛，大连"
Fld_arr() = Split(string,",")
For i=0 To Ubound(Fld_arr)
    List1.AddItem Fld_arr(i)
Next