在一组字符串中找出符合要求的字符,并取出其中的非汉字部分
在一组字符串中找出符合要求的字符,并取出其中的非汉字部分
比如:
变压器1,1层2架2排4位,Q2层4架6排7位,变压器2,变压器3,备品,15层14架26排71位,备品,组合屏AA,组合屏BB
现在是这些值依次都会赋给一个变量StrText,问题就是,当StrText值为
x层y架z排k位 情况时,取出其中 "层 " "架 " "排 " "位 "以外的非汉字部分,变成x-y-z-k
[解决办法]
dim a as integer
dim b as integer
dim c as integer
dim d as integer
dim x as string
dim y as string
dim z as string
dim k as string
dim ok as string
a=Instr(StrText, "层 ")
b=Instr(StrText, "架 ")
c=Instr(StrText, "排 ")
d=Instr(StrText, "位 ")
x=left(strtext,a-1)
y=mid(strtext,a+1,b-1)
z=mid(strtext,b+1,c-1)
k=mid(strtext,c+1,d-1)
ok= "x- " & x & "y- " & y & "z- " & z & "k- " & k
[解决办法]
x = Left(StrText, a - 1)
y = Mid(StrText, a + 1, b - a - 1)
z = Mid(StrText, b + 1, c - b - 1)
k = Mid(StrText, c + 1, d - c - 1)
这样才行
