Foxtable(狐表)用户栏目专家坐堂 → 在指定列指定字符后面插入符号


  共有5287人关注过本帖树形打印复制链接

主题:在指定列指定字符后面插入符号

帅哥哟,离线,有人找我吗?
kevin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:359 积分:3403 威望:0 精华:0 注册:2011/8/2 20:53:00
在指定列指定字符后面插入符号  发帖心情 Post By:2012/4/30 3:49:00 [只看该作者]

 在指定列指定字符后面插入符号
例如”型号列“的字符串是”1234567890“
需要:
在3的后面插入 ”-“
在6的后面插入 ”/“
在9的后面插入 ”#"
形成:”123-456/789#0“
请问应该怎么做?

 回到顶部
帅哥,在线噢!
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4638 积分:33840 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2012/4/30 8:29:00 [只看该作者]

Dim s As String = "1234567890"
s = s.Insert(3,"-")
s = s.Insert(7,"/")
s = s.Insert(11,"#")
Output.Show(s)

类如此通

 回到顶部
帅哥哟,离线,有人找我吗?
FoxMan
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:302 积分:1860 威望:0 精华:0 注册:2012/4/27 11:34:00
  发帖心情 Post By:2012/4/30 8:35:00 [只看该作者]

Dim Ls1 As String() ={"3","6","9"}
Dim Ls2 As String() ={"-","/","#"}
For each dr as Datarow in DataTables("A").Select("B >''")
     For n1 as integer =0  to Ls1.Length-1
         dr("B")=dr("B").Replace(Ls1(n1),ls1(n1) & Ls2(n1))
         n1+=1
     Next
Next


 回到顶部
帅哥哟,离线,有人找我吗?
foxyuan
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:299 积分:2563 威望:0 精华:0 注册:2018/2/3 10:48:00
  发帖心情 Post By:2019/9/29 21:02:00 [只看该作者]

n1+=1是笔误?什么意思,验证了一下,好象有这个结果不对,去掉这行结果是对的。

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107028 积分:544371 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/29 21:12:00 [只看该作者]

n1+=1就是n1= n1 +1的意思,没有问题

 回到顶部