b=Mid(a,11,2) //取最后面的那两位,mid A 从第11位开始,取2个,现在B=10
c = b + 1 //加1,C=11,但是是作为数值型相加的,这里也可以减,减1等于9啦
d=cstr(c) //把C转换为字符型,D=“11”
e = mid(a, 1, 10) //取前面的,mid A 从第1位开始,取10个,E="1921681"
f = e + d //加起来,f=“192168111”
======
当然还有一行的
b=mid(a,1,10)+cstr(mid(a,11,2)+1)xxx = "123R321R21R3213R21"
mmm = split(xxx, "R")
mmm(3)=Replace(mmm(3),"21","XX")
For Each n In mmm
TracePrint n
NextFunction Spl_Odd(Int)
Spl_Odd="":Te = Split(Int, "R")
For itemp = 0 To Ubound(Te) Step 2
Spl_Odd=Spl_Odd&Te(iTemp)&"RR"
Next
Spl_Odd = Left(Spl_Odd, Len(Spl_Odd) - 2)
End Function
将以上代码复制到脚本的任意位置,即可使用“Spl_Odd({被分割的字符串})”返回结果,例如:
这个是简化的 示范你得自己看得懂自己去修改 分隔符 和导入文本路径读取
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)