如何用VBA将1.1.1转换成1010101
答案:1 悬赏:60 手机版
解决时间 2021-03-13 15:57
- 提问者网友：凉末
- 2021-03-12 21:14
如何用VBA将1.1.1转换成1010101
最佳答案
- 五星知识达人网友：旧脸谱
- 2021-03-12 21:23
行用split函数切分字符串，再根据单个字符串生成所要求的字符串。
Dim str As String
Dim strs() as string
strs()= Split( str , ".") 根据点来切分
dim result as string=nothing
if strs.length=1 then result="101" 切分完成后只有一个字符串时表示为第一层
if strs.length>1 then
for i=1 to strs.length-1
if strs(1)="1" then result = result & "01"
if strs(1)="11" then result = result & "11"
end for
end if
大概是这样，你自己改改吧，语法可能不太对，VBA用的少。
Dim str As String
Dim strs() as string
strs()= Split( str , ".") 根据点来切分
dim result as string=nothing
if strs.length=1 then result="101" 切分完成后只有一个字符串时表示为第一层
if strs.length>1 then
for i=1 to strs.length-1
if strs(1)="1" then result = result & "01"
if strs(1)="11" then result = result & "11"
end for
end if
大概是这样，你自己改改吧，语法可能不太对，VBA用的少。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯