乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 113|回复: 3

ArcPad的VBScript

[复制链接]

33

主题

267

帖子

213

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
197
发表于 2017-8-13 10:39:55 | 显示全部楼层 |阅读模式
这里是否有人使用VBS来自定义Arcpad以进行数据收集?
我一直在使用它来收集树数据。
有没有人有一个示例来分析文本字符串中的数字,运行计算并替换字符串中的结果?
谢谢

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

18

主题

1529

帖子

973

银币

中流砥柱

Rank: 25

铜币
649
发表于 2017-8-13 17:28:36 | 显示全部楼层
我不知道Arcpad,但这里有一个VBS的例子,若要测试代码,请使用。vbs扩展名,然后双击该文件。    Dim InP,matches,newVal,oldVal,reg。
inp = InputBox("输入带数字的文本")。
Set reg = New RegExp。
reg,模式= "\d+\,?\d+(?=\D*)" '更改" \ "如果需要,转换为“,”号。。
Set matches = reg,执行(输入)。
如果0 匹配,然后数数。
oldVal = matches(0),值。
newVal = oldVal + 15 '加15,无需将oldVal转换为数字或将newVal转换为字符串,。
MsgBox(Replace(inp,oldVal,newVal,1,1))。
否则。
MsgBox("未找到号码")。
结束If。
回复

使用道具 举报

33

主题

267

帖子

213

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
197
发表于 2017-8-14 10:00:35 | 显示全部楼层
谢谢我能够通过使用数组计算出我需要什么
增加胸径
子DBHPLUS
<div>昏暗的目标层、目标窗体、目标窗体和目标窗体、strDBH、aa、ub</div>
设置objTheLayer=Application.Map.Layers.item(1)
设置objTheForm=objTheLayer.Forms(1)
设置objEditFormCtrls=objTheForm.Pages(“PAGE1”)。控件
If(objEditFormCtrls(“txtDBH”)。值=),然后
objEditFormCtrls(“txtDBH”)。值=1
其他
“获取表单字段中的DBH字符串”
strDBH=objEditFormCtrls(“txtDBH”)。值
删除所有空格
strDBH=Replace(strDBH,“,”,1,-1)
“使用逗号delimeter创建数组
aa=split(strDBH,,,-1,1)
<div>获取数组的od上限
ub=ubound(aa)
“将最后一个条目转换为整数并添加一个
aa(ub)=1+cint(aa(ub))
<div>通过添加逗号从数组中重建字符串
strDBH=Join(aa,“,”
“将新字符串传递给表单字段
objEditFormCtrls(“txtDBH”)。值=strDBH
如果
自由对象
设置aa=nothing
设置ub=nothing
设置strDBH=Nothing
设置objEditFormCtrls=Nothing
设置objTheForm=Nothing
设置objTheLayer=Nothing
末端接头

回复

使用道具 举报

18

主题

1529

帖子

973

银币

中流砥柱

Rank: 25

铜币
649
发表于 2017-8-14 11:12:56 | 显示全部楼层

有趣的一点。我真的不知道。我已经为excel使用了类似的东西,并且需要类型转换,所以我想我在这里需要它。我相信我已经读到JOIN返回一个字符串,无论输入如何,所以我认为不需要CStr。我需要在没有Cint的情况下进行测试才能看到。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-6-28 18:49 , Processed in 2.378994 second(s), 61 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表