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


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

主题：在指定列指定字符后面插入符号
帅哥哟，离线，有人找我吗？
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


加好友 发短信
等级：狐神 帖子：4751 积分：34563 威望：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


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

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

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


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

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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询