- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]只提取数字 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178043)
-- 发布时间：2022/6/15 17:58:00
-- [求助]只提取数字
第一列两行值分别为：
面积=0.662 ㎡
面积=2133800.000 ｍ㎡
求助1、当第一列最后结束是㎡
第二列值录入0.662
求助2、当第一列最后结束是ｍ㎡
第三列值录入2133800.000
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:are面积只提取数字.foxdb |
[此贴子已经被作者于2022/6/15 19:05:00编辑过]
-- 发布时间：2022/6/16 8:37:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:are面积只提取数字.zip |
-- 发布时间：2022/6/16 8:49:00
-- 回复：（有点蓝）[upload=zip,are面积只提取数字.zip]...
蓝主，我的版本不能升级了，帮忙转2022年2月之前的版本，或把代码发上来，谢谢
-- 发布时间：2022/6/16 9:14:00
--
购买升级服务
-- 发布时间：2022/6/16 14:45:00
-- 回复：（有点蓝）购买升级服务
高级开发版本，升级太贵了，计划明年再升级。
辛苦蓝主，帮忙把代码发上来了
-- 发布时间：2022/6/16 15:56:00
--
注意ｍ㎡这个字符是特殊符号，在网页里显示不正确，需要自己到单元格里复制
If e.DataCol.Name = "are区域面积" Then
If e.DataRow.IsNull("are区域面积") Then \'如果没有输入出生日期
e.DataRow("第二列") = Nothing \'则清空年龄
e.DataRow("第三列") = Nothing \'则清空年龄
Else
Dim s As String = e.DataRow("are区域面积")
If s.EndsWith("ｍ㎡") Then
e.DataRow("第三列") = s.Replace("面积=", "").Replace("ｍ㎡", "")
elseIf s.EndsWith("㎡")
e.DataRow("第二列") = s.Replace("面积=", "").Replace("㎡", "")
End If
End If
End If