以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在指定列指定字符后面插入符号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19171)

--  作者:kevin
--  发布时间:2012/4/30 3:49:00
--  在指定列指定字符后面插入符号
 在指定列指定字符后面插入符号
例如”型号列“的字符串是”1234567890“
需要:
在3的后面插入 ”-“
在6的后面插入 ”/“
在9的后面插入 ”#"
形成:”123-456/789#0“
请问应该怎么做?

--  作者:y2287958
--  发布时间: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
--  发布时间: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
--  发布时间:2019/9/29 21:02:00
--  
n1+=1是笔误?什么意思,验证了一下,好象有这个结果不对,去掉这行结果是对的。
--  作者:有点蓝
--  发布时间:2019/9/29 21:12:00
--  
n1+=1就是n1= n1 +1的意思,没有问题