strTypeEx = ReadIniFile("Type", "Type", App.Path & "\set.ini") strTypeEx = Split(strTypeEx, ";") For i = LBound(strTypeEx) To UBound(strTypeEx) CboType.AddItem Trim(strTypeEx(i)) Next i
VB识别分隔符
原文：http://www.cnblogs.com/blossomwei/p/6922939.html
