LotusScript替换英文双引号

dengweitao

于 2020-09-15 15:12:16 发布

阅读量131

点赞数

本文链接：https://blog.csdn.net/dengweitao/article/details/108599401

版权

还是直接上代码吧，不过大家要根据实际来进行替换，也欢迎大家指出错误,单引号也是差不多的代码。

dim deStr as String
dim dev as variant
dim i as Integer,num as Integer
dim returnStr as String
deStr = |"这是一对英文的双引号"，'这是一对英文的单引号'|
returnStr = ""
if instr(deStr,|"|) > 0 then
    dev = split(deStr,|"|)
    for i = 0 to ubound(dev)
        if i = 0 then
           returnStr = dev(i)
        else
           num = i Mod 2
           if num = 1 then
              returnStr = returnStr+"“"+dev(i)
           else
             returnStr = returnStr+"”"+dev(i)
           end if
       end if
   next
end if