以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于字符串替换问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5346)

--  作者:ybmjy
--  发布时间:2009/12/8 22:14:00
--  关于字符串替换问题
如511521198709080910,
判断第16位,如果是1替换为0,也就是替换指定位置的字符串.如何写这个代码.

--  作者:czy
--  发布时间:2009/12/8 22:33:00
--  
Dim s As String ="511521198709080110"
if s.Length > 15 Then
    Output.Show(s.SubString(0,15) & iif(s.SubString(15,1) = "1","0",s.SubString(15,1)) & s.SubString(16))
End If

--  作者:ybmjy
--  发布时间:2009/12/8 22:46:00
--  
谢谢