7,785
社区成员




function getNumber(byval s as string,byval n as integer) as string
if n>len(s) then
getNumber=vbnullstring
exit function
else
's 原文本 n右向左数第n位
s=strreverse(s)
getNumber=mid(s,n,1)
end if
end function
function getNumber(byval s as string,byval n as integer) as string
if n>len(text1) then
getNumber=vbnullstring
exit function
else
's 原文本 n右向左数第n位
s=strreverse(s)
getNumber=mid(s,n,1)
end if
end function
晕死,还有错:
function getNumber(byval s as string,byval n as integer) as integer
's 原文本 n右向左数第n位
s=strreverse(s)
getNumber=val(mid(s,n,1))
end function
text1=getNumber("2647.35",1) '右边第一位
function getNumber(byval s as string,byval n as integer) as integer
's 原文本 n右向左数第n位
s=strreverse(s)
getNumber=val(mid(s,n,1))
end function
text1=getNumber(1)
function getNumber(byval s as string,byval n as integer) as integer
's 原文本 n右向左数第n位
dim i as integer
dim tmp() as integer
redim tmp(1 to len(s))
s=strReverse(s)
for i=1 to len(s)
tmp(i)=val(mid(s,i,1))
next
getNumber=tmp(n)
end function
text1=getNumber(1)