以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]判断电话号码的运营商  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90522)

--  作者:js4222
--  发布时间:2016/9/15 2:43:00
--  [求助]判断电话号码的运营商
有一批手机号码,设置窗口,可以导入txt文件,导入后,按钮归类移动,联通,电信号码,用foxtable可以实现吗?如何写代码?大神来帮忙
[此贴子已经被作者于2016/9/15 14:09:11编辑过]

--  作者:js4222
--  发布时间:2016/9/15 2:43:00
--  
感觉用foxtable可以实现,但是不知道从何弄起
--  作者:js4222
--  发布时间:2016/9/15 14:08:00
--  
没人看到吗?顶一下下
--  作者:js4222
--  发布时间:2016/9/15 16:08:00
--  
来人啊,大神们都放假了吗


--  作者:狐狸爸爸
--  发布时间:2016/9/15 18:04:00
--  

用帮助的知识解决:
http://www.foxtable.com/webhelp/scr/0328.htm

http://www.foxtable.com/webhelp/scr/0760.htm
http://www.foxtable.com/webhelp/scr/0331.htm

http://www.foxtable.com/webhelp/scr/0344.htm

http://www.foxtable.com/webhelp/scr/1338.htm

 

 

选择文件的代码,自己写

e.Form.Controls("TextBox1").Value = Filesys.ReadAllText(选择的文件,.....)

With e.Form.Controls("TextBox1")

    For i As Integer = 0 To .Lines.Length - 1
        if .Lines(i).length > 3 Then

           Select case .Lines(i).SubString(0,3)

               case "136","137","138","139"

                   移动的哦

               case "130","132"

                  联通的哦

           End Select

        End if
   
Next
End
With

 

[此贴子已经被作者于2016/9/15 18:04:37编辑过]

--  作者:js4222
--  发布时间:2016/9/15 23:36:00
--  
以下是引用狐狸爸爸在2016/9/15 18:04:00的发言:

用帮助的知识解决:
http://www.foxtable.com/webhelp/scr/0328.htm

http://www.foxtable.com/webhelp/scr/0760.htm
http://www.foxtable.com/webhelp/scr/0331.htm

http://www.foxtable.com/webhelp/scr/0344.htm

http://www.foxtable.com/webhelp/scr/1338.htm

 

 

选择文件的代码,自己写

e.Form.Controls("TextBox1").Value = Filesys.ReadAllText(选择的文件,.....)

With e.Form.Controls("TextBox1")

    For i As Integer = 0 To .Lines.Length - 1
        if .Lines(i).length > 3 Then

           Select case .Lines(i).SubString(0,3)

               case "136","137","138","139"

                   移动的哦

               case "130","132"

                  联通的哦

           End Select

        End if
   
Next
End
With

 

[此贴子已经被作者于2016/9/15 18:04:37编辑过]

还是晕晕的,先试试。谢谢狐狸爸爸