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

jumay 2007-12-10 04:41:17
前个贴子问错了,改为从右向左取数,用VB编程,取其中任何有一组动态数字,从右向左,取第三位、第四位、第五位.............第N位,请问VB代码如何写
...全文
152 12 打赏 收藏 举报
写回复
12 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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基础类

7637

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2007-12-10 04:41
社区公告
暂无公告