数组问题

Question

请看我现在的部份源码
Dim pat, xxc
pat = Label1.Caption
xxc = Right(pat, 4)
If xxc = ".doc" Or xxc = ".xls" Or xxc = ".pdf" Then
****
end if因为文件格式很多，我想改为读取ini，然后进行判断，比如ini内有txt=.txt;.ini;.inf 这一段，分割符我用的;号，随便都行然后程序里用GetIni读取这个段，再判断这个段里有没有符合的文件类型类似于If xxc =GetIni("sys", "txt", "") then   这样很菜，不知道该怎么写，那位大侠能帮我写下代码，谢谢！突然发现没分了，最后35分、、、

Answer 1

可以用split函数dim a() as stringa=split(right("txt=.txt;.ini;.inf",4),";") 

Answer 2

组合使用split、instr、instrrev、mid、left等字符串函数。

Answer 3

If InStr(LCase(GetIni("sys", "txt", "")),LCase(xxc))>0 then