级联菜单

a =
(
安徽省,滁州市,凤阳县
北京市,北京市,丰台区
北京市,北京市,石景山区
北京市,北京市,海淀区
甘肃省,临夏州,康乐县
甘肃省,临夏州,永靖县
广东省,茂名市,高州市
安徽省,六安市,舒城县
安徽省,六安市,金寨县
广东省,湛江市,坡头区
广东省,湛江市,麻章区
广东省,湛江市,遂溪县
广东省,湛江市,雷州市
安徽省,池州市,贵池区
安徽省,池州市,东至县
安徽省,宣城市,广德县
安徽省,宣城市,泾县
安徽省,宣城市,绩溪县
广东省,河源市,和平县
广东省,河源市,东源县
广东省,韶关市,翁源县
广东省,韶关市,乳源瑶族自治县
广东省,韶关市,新丰县
广东省,广州市,越秀区
广东省,广州市,海珠区
广东省,广州市,白云区
广东省,广州市,黄埔区
广东省,广州市,番禺区
广东省,汕头市,濠江区
广东省,潮州市,潮安县
广西壮族自治区,南宁市,西乡塘区
广西壮族自治区,南宁市,良庆区
广东省,江门市,台山市
广东省,江门市,开平市
广东省,深圳市,南山区
广东省,深圳市,宝安区
广东省,深圳市,龙岗区
广东省,汕头市,潮阳区
广东省,茂名市,电白县
广西壮族自治区,崇左市,宁明县
贵州省,遵义市,湄潭县
贵州省,遵义市,余庆县
贵州省,遵义市,习水县
广西壮族自治区,梧州市,苍梧县
广西壮族自治区,梧州市,藤县
广西壮族自治区,玉林市,陆川县
广西壮族自治区,柳州市,柳城县
广西壮族自治区,柳州市,鹿寨县
广西壮族自治区,柳州市,融安县
广西壮族自治区,北海市,合浦县
广西壮族自治区,桂林市,临桂县
广西壮族自治区,桂林市,灵川县
贵州省,铜仁地区,沿河土家族自治县
贵州省,毕节地区,黔西县
广西壮族自治区,玉林市,博白县
广西壮族自治区,河池市,罗城仫佬族自治县
广西壮族自治区,防城港市,港口区
广西壮族自治区,防城港市,防城区
福建省,宁德市,福安市
浙江省,杭州市,富阳市
浙江省,杭州市,临安市
浙江省,温州市,龙湾区
浙江省,温州市,瓯海区
浙江省,嘉兴市,桐乡市
浙江省,湖州市,吴兴区
福建省,宁德市,福鼎市
浙江省,杭州市,上城区
浙江省,温州市,永嘉县
浙江省,嘉兴市,南湖区
浙江省,嘉兴市,秀洲区
浙江省,宁波市,北仑区
浙江省,宁波市,镇海区
浙江省,宁波市,鄞州区
浙江省,温州市,苍南县
安徽省,六安市,寿县
北京市,北京市,大兴区
北京市,北京市,怀柔区
北京市,密云县,密云县
北京市,延庆县,延庆县
安徽省,合肥市,长丰县
安徽省,合肥市,肥东县
安徽省,安庆市,大观区
安徽省,安庆市,宜秀区
安徽省,安庆市,怀宁县
甘肃省,陇南市,礼县
甘肃省,陇南市,徽县
甘肃省,陇南市,武都区
甘肃省,陇南市,文县
甘肃省,陇南市,宕昌县
甘肃省,甘南州,临潭县
浙江省,嘉兴市,海宁市
浙江省,杭州市,淳安县
浙江省,温州市,平阳县
浙江省,嘉兴市,平湖市
浙江省,杭州市,余杭区
浙江省,杭州市,桐庐县
浙江省,宁波市,象山县
甘肃省,临夏州,广河县
)
b := csv2obj(a)
gui, add, ComboBox, R5 vl1 gl1,
gui, add, ComboBox, R5 vl2 gl2,
gui, add, ComboBox, R5 vl3,
gui, show, , xxx
Gosub, clean1
for k,v in b
	GuiControl, , l1, % k
Return

GuiClose:
ExitApp

clean1:
ControlGet, l, List, Count, ComboBox1, xxx
loop % (StrSplit(l,"`n")).maxindex()
	Control, Delete, 1, ComboBox1, xxx
Return

clean2:
ControlGet, l, List, Count, ComboBox2, xxx
loop % (StrSplit(l,"`n")).maxindex()
	Control, Delete, 1, ComboBox2, xxx
Return

clean3:
ControlGet, l, List, Count, ComboBox3, xxx
loop % (StrSplit(l,"`n")).maxindex()
	Control, Delete, 1, ComboBox3, xxx
Return

l1:
GuiControlGet, l1
Gosub, clean2
if l1
{
	for k,v in b[l1]
	GuiControl, , l2, % k
}
Gosub, clean3
Return

l2:
GuiControlGet, l1
GuiControlGet, l2
Gosub, clean3
if l2
{
	for k,v in b[l1][l2]
	GuiControl, , l3, % k
}
Return


csv2obj(string){
obj := Object()
StringReplace, string, string, `r, , All
StringSplit, var, string, `n
Loop % var0
{
tmp_line := var%A_Index%
if tmp_line 
    {
    tmp_obj := string_2_obj(tmp_line)
    obj := combine_obj(tmp_obj,obj)
    }
}
return obj
}

string_2_obj(string){
global EscapeChar
if (!EscapeChar)
	EscapeChar = ,
obj := object()
StringSplit, var, string, %EscapeChar%
if var0 > 1
    {
    Loop % var0-1
    {
    index := var0-A_index
    index2 := index+1
    obj%index% := object()
    obj%index%[var%index2%] := 0
    }
    Loop % var0-2
    {
    index := var0-A_index-1
    index2 := index+1
    obj%index%[var%index2%] := obj%index2%
    }
    obj[var1] := obj1
    return obj
    }
Else
    {
    obj[var1] := 0
    return obj
    }
}

combine_obj(obj1,obj2){
for k,v in obj1
    {
    if obj2[k]
        {
        if (isobject(obj1[k]) && isobject(obj2[k]))
            obj2[k] := combine_obj(obj1[k],obj2[k])
        Else if (isobject(obj1[k]) && !isobject(obj2[k]))
            obj2[k] := obj1[k]
        }
    Else
        {
        obj2[k] := v
        }
    }
Return obj2
}


给TA捐赠
共{{data.count}}人
人已捐赠
其他

系统信息

2020-3-9 4:43:44

其他

给屏幕罩上一个暗色的gui,方便亮时查看屏幕

2020-3-9 4:47:44

个人中心
购物车
优惠劵
有新私信 私信列表
搜索