读取配置文件的问题,如何查询有没有这个值?
本帖最后由 l4ever 于 2009-8-4 19:03 编辑CityCode.dat文件是这样的
[城市]
深圳=1
北京=2
....=....
想输入城市返回对应的数字,但是当输入的城市没有的时候,返回其他值.怎么写?
我是这样写的,感觉似乎不是很完美
msgbox(32,"",_city2id("深圳"))
func _city2id($city)
$ReadCityid = IniReadSection("CityCode.dat", "城市")
If @error Then
MsgBox(4096, "", "读取数据库失败")
Else
For $i = 1 To $ReadCityid
Select
case $ReadCityid[$i] = $city
return $ReadCityid[$i]
EndSelect
Next
return "没有这个城市"
EndIf
EndFunc 正确的结果。
页:
[1]