以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]求助指定位置的字符替换  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180820)
--  作者：miaoqingqing
--  发布时间：2022/10/17 9:39:00
--  [求助]求助指定位置的字符替换
求助列，指定位置的字符批量替换

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:求助指定位置的字符替换.foxdb
--  作者：有点蓝
--  发布时间：2022/10/17 9:43:00
--  
dim r as row = tables("biaoA").current
r("第二列") = r("第二列").replace("3","三")
--  作者：miaoqingqing
--  发布时间：2022/10/17 10:07:00
--  回复：（有点蓝）dim r as row = tables("biaoA").cur...
蓝总，不是replace3这个字符替换为xx，要实现的是从左到右的第x个字符，替换为xx
要实现窗口控制

Dim r As Row = Tables("表A").current
Dim w As String = e.Form.Controls("ComboBox1").text
Dim t As String = e.Form.Controls("ComboBox2").text
r("第二列") = r("第二列").replace.length("w","t")
--  作者：有点蓝
--  发布时间：2022/10/17 10:20:00
--  
Dim w As integer = e.Form.Controls("ComboBox1").text
r("第二列") = r("第二列").Remove(w, 1).Insert(w, t)