以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]字符缩减  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60150)

--  作者:易服
--  发布时间:2014/11/19 10:58:00
--  [求助]字符缩减
有一列字符型有9-10个汉字,仅需保留最后3个汉字。怎么做?
--  作者:jialihaha
--  发布时间:2014/11/19 11:00:00
--  
字符串截取  SubString
--  作者:Bin
--  发布时间:2014/11/19 11:01:00
--  
dim str as string="XXXXXXXXXXXXXXXXX"
messagebox.show(str.substring(str.length-3,3))

--  作者:有点甜
--  发布时间:2014/11/19 11:02:00
--  
For Each r As Row In Tables("表A").Rows
    If r("第四列").length >= 3 Then
        r("第四列") = right(r("第四列"), 3)
    End If
Next

--  作者:易服
--  发布时间:2014/11/19 11:17:00
--  
从第四列提取最后3个汉字填充到第三列
--  作者:jialihaha
--  发布时间:2014/11/19 11:19:00
--  
For Each r As Row In Tables("表A").Rows
    If r("第四列").length >= 3 Then
        r("第三列") = right(r("第四列"), 3)
    End If
Next