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

[jumay]

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

[asa5880]

动态数字为Dim dn as Long

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

不知道是不是你要的那个

• 打赏
• 举报

回复 赞

[asa5880]

更改:


动态数字为Dim dn as Long

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

不知道是不是你要的那个

• 打赏
• 举报

回复 赞

[ZOU_SEAFARER]

不回答了！

• 打赏
• 举报

回复 赞

[jumay]

我的意思是一个数字文本（text.text=2647.35）,没有固定位数，下次运行又会变为另一个数，最后得出结果是text1.text=5,text2.text=3,text3.text=".",text4.text=7,text5.text=4,text6.text=6,text7.text=8

• 打赏
• 举报

回复 赞

[jumay]

text7.text=2

• 打赏
• 举报

回复 赞

[vbman2003]

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)

• 打赏
• 举报

回复 赞

[vbman2003]

急着下班了，上面写乱了：

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]

晕死，还有错：

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

• 打赏
• 举报

回复 赞

[of123]

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]

还是没有达到我想要的结果，如果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

• 打赏
• 举报

回复 赞

[vbman2003]

晕死，总出错：

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

• 打赏
• 举报

回复 赞

[jumay]

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

• 打赏
• 举报

回复 赞