主页

从右向左依次取数，在线等待！

jumay 2007-12-10 04:41:17

前个贴子问错了，改为从右向左取数，用VB编程，取其中任何有一组动态数字，从右向左，取第三位、第四位、第五位.............第N位，请问VB代码如何写

...全文

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

社区成员

19.7w+

社区内容

VB 基础类

申请成为版主

社区公告

暂无公告