以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  SPLIT命令用法请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56092)

--  作者:若水三千
--  发布时间:2014/8/29 10:23:00
--  SPLIT命令用法请教
我有一个姓名列 然后有一个说谎指标列

有一段字符串“4分,诚实可靠%3分,不诚实可靠%6分,不诚实可靠”

想用SPLIT命令以"%"为分隔符将上面字符串内的值随机赋值给姓名列 该怎么办

例如

张三  4分,诚实可靠
李四  3分,不诚实可靠


--  作者:jspta
--  发布时间:2014/8/29 10:25:00
--  
dim  arr() as string = s.split("%")
arr(0)


--  作者:有点甜
--  发布时间:2014/8/29 10:26:00
--  

 例子发上来,随机参考

 

 http://www.foxtable.com/help/topics/0349.htm

 


--  作者:若水三千
--  发布时间:2014/8/29 14:05:00
--  
不是生成随机数 
是 例如有列名“说谎指标”有100行  定义一个字符串“1分,2分,3分,4分,5分”以“,”为分隔符按顺序填写到“说谎指标”列的所有行中

--  作者:有点甜
--  发布时间:2014/8/29 14:37:00
--  

Dim s As String ="1分,2分,3分,4分"

Dim ary() As String = s.Split(",")

Dim i As Integer = 0
For Each r As Row In Tables("表A").Rows
        r("第二列") = ary(i)
    If i >= ary.Length - 1 Then
        i = 0
    Else
        i += 1
    End If
Next