- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 根据联系电话号码，知道是那个城市的 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=68001)
-- 发布时间：2015/5/7 20:59:00
-- 根据联系电话号码，知道是那个城市的
有个电话号码联系表，要根据电话号码知道是那个城市的，想要用下面的代码实现，就是不行，请哪位高手指点一下，谢谢。
Dim a As String = "01055556666"
Dim b As String
Select Case a
Case a Like "010*"
b = "北京"
Case a Like "021*"
b = "上海"
Case a Like "0755*"
b = "深圳"
Case Else
b = "未知城市"
End Select
Output.Show(b)
[此贴子已经被作者于2015/5/7 20:59:42编辑过]
-- 发布时间：2015/5/7 21:07:00
--
必须用If Else EndIf
Dim a As String = "02155556666"
Dim qhs As String = "010,021,0755"
Dim css As String = "北京,上海,深圳"
Dim ary1() As String = qhs.Split(",")
Dim ary2() As String = css.Split(",")
Dim idx As Integer = Array.IndexOf(ary1, a.SubString(0,3))
If idx > -1 Then
msgbox(ary2(idx))
Else
idx = Array.IndexOf(ary1, a.SubString(0,4))
If idx > -1 Then
msgbox(ary2(idx))
Else
msgbox("没有")
End If
End If
-- 发布时间：2015/5/7 21:32:00
--
但是if好像要嵌套，而且嵌套的比较多，比较烦，有没有什么好的方法，谢谢
[此贴子已经被作者于2015/5/7 21:32:13编辑过]
-- 发布时间：2015/5/7 21:38:00
--
没有办法，2楼的代码不需要嵌套啊
-- 发布时间：2015/5/7 22:06:00
--
但是号码很多，需要全部加上面吗，谢谢指点
-- 发布时间：2015/5/7 22:08:00
--
如果号码很多，建议弄成一个表来存储，然后查询即可
看这个例子，同样的道理
http://www.foxtable.com/help/topics/1459.htm
-- 发布时间：2015/5/7 23:11:00
--
这个和根据身份证自动识别出生地是一样的原理,用一个表储存数据,然后查询对应的数据,这个就是数据库查表原理
-- 发布时间：2015/5/8 0:31:00
--
给个文件，您这样逐个判断确实太累！
-- 发布时间：2015/5/8 1:27:00
--
请以后不要做不提交示例文件的懒人，这样是在浪费别人的时间：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:电话属地.table |
-- 发布时间：2015/5/8 9:40:00
--
谢谢