- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 删除固话代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183186)
-- 发布时间：2022/10/27 16:50:00
-- 删除固话代码
老师我一个字段“电话”里面内容如： 0375-3507610,0371-67902162,0375-3507611,15836945365,15290763237
手机号和固话。怎么写代码删除这里面的固话，仅保留手机号
[此贴子已经被作者于2022/10/27 16:51:03编辑过]
-- 发布时间：2022/10/27 17:04:00
--
根据逗号拆分为数组，然后判断不是1开头的数据删除掉
-- 发布时间：2022/10/27 19:30:00
--
老师这个代码不执行，为啥
For Each dr As DataRow In DataTables("线索").DataRows
If dr.IsNull("更多电话") = False Then \'如果工号列不为空
Dim nms() As String = dr("更多电话").Split(",") \'将工号列内容拆分成数组
For Each nm As String In nms \'遍历参与加工此产品的每个工号
If nm.StartsWith("1") = False Then
dr("更多电话") = dr("更多电话").Trim(nm)
End If
Next
End If
Next
-- 发布时间：2022/10/27 20:22:00
--
dim lst as new list(of string)(10)
For Each dr As DataRow In DataTables("线索").DataRows
If dr.IsNull("更多电话") = False Then \'如果工号列不为空
Dim nms() As String = dr("更多电话").Split(",") \'将工号列内容拆分成数组
For Each nm As String In nms \'遍历参与加工此产品的每个工号
If nm.StartsWith("1") Then
lst.add(nm)
End If
Next
dr("更多电话") = string.join(",",lst.toarray)
lst.clear
End If
Next
-- 发布时间：2022/11/2 10:37:00
--
老师根据上面代码我想达到下方格式，就是把电话号码中间的,号替换为换行。并在停靠窗口中如下显示，代码怎么加？
此主题相关图片如下：微信截图_20221102103537.png
-- 发布时间：2022/11/2 10:50:00
--
dr("更多电话") = string.join(vbcrlf,lst.toarray)
-- 发布时间：2022/11/2 10:56:00
--
谢谢，蓝老师。在停靠窗口双击某个电话号码，现在就选中了，我想双击选择并直接复制此电话号码到剪贴板。这个代码呢？
此主题相关图片如下：微信截图_20221102105446.png
-- 发布时间：2022/11/2 12:06:00
--
http://www.foxtable.com/webhelp/topics/2069.htm
-- 发布时间：2022/11/2 15:27:00
--
老师在备注类型的停靠窗口双击只复制被选中的这一个电话号码不会弄？我知道双击复制某个单元格内容
-- 发布时间：2022/11/2 16:07:00
--
这个没有办法。可以自己设计一个窗口，添加文本框控件绑定备注列，可以在文本框控件里获取选中的字符