从右向左依次取数,在线等待!

jumay 2007-12-10 04:41:17
前个贴子问错了,改为从右向左取数,用VB编程,取其中任何有一组动态数字,从右向左,取第三位、第四位、第五位.............第N位,请问VB代码如何写
...全文
93 点赞 收藏 12
写回复
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
jumay 2007-12-11
还是没有达到我想要的结果,如果text9.text=getNumber("2647.35",9),不够位时,text9.text=0,我想要的结果是不够位时,text9.text=“”。谢谢上面的兄弟,再帮我看看
回复
vbman2003 2007-12-11
晕死,总出错:



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

回复
vbman2003 2007-12-11
还是没有达到我想要的结果,如果text9.text=getNumber("2647.35",9),不够位时,text9.text=0,我想要的结果是不够位时,text9.text=“”。谢谢上面的兄弟,再帮我看看
------------------------------------------------------------


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


回复
of123 2007-12-11
Text0 = "2647.35"

Dim strTmp As String

strTmp = Right(Space(9) & Text0, 9)
Text1 = Right(strTmp, 1)
Text2 = Mid(strTmp, 8, 1)
Text3 = Mid(strTmp, 7, 1)
Text4 = Mid(strTmp, 6, 1)
Text5 = Mid(strTmp, 5, 1)
Text6 = Mid(strTmp, 4, 1)
Text7 = Mid(strTmp, 3, 1)
Text8 = Mid(strTmp, 2, 1)
Text9 = Left(strTmp, 1)
回复
vbman2003 2007-12-10

晕死,还有错:

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) '右边第一位


回复
vbman2003 2007-12-10
急着下班了,上面写乱了:


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)



回复
vbman2003 2007-12-10

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)

回复
jumay 2007-12-10
text7.text=2
回复
jumay 2007-12-10
我的意思是一个数字文本(text.text=2647.35),没有固定位数,下次运行又会变为另一个数,最后得出结果是text1.text=5,text2.text=3,text3.text=".",text4.text=7,text5.text=4,text6.text=6,text7.text=8
回复
ZOU_SEAFARER 2007-12-10
不回答了!
回复
asa5880 2007-12-10
更改:


动态数字为Dim dn as Long

第N位为CInt(Mid(CStr(dn),Len(CStr(dn))- N + 1,1))

不知道是不是你要的那个
回复
asa5880 2007-12-10
动态数字为Dim dn as Long

第N位为CInt(Mid(CStr(dn),CStr(dn)- N + 1,1))

不知道是不是你要的那个
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告