领星动网编程开发之爆炸小宇宙

cnitblog.com/lxasp - - 有一种信念叫做编程
posts - 61, comments - 34, trackbacks - 0, articles - 0

 

Procedure.s cleanEten(r$)

  v$
=StringField(r$, 1,"e")
  c$
=StringField(r$, 2,"e")
  
  v$
=RemoveString(v$, ".")

  cn
=Val(c$)
  
  
If Abs(cn)>17
    ProcedureReturn r$
  EndIf
  
  
If cn<0
    cn
=Abs(cn)
    vl$
=Left(v$,1)
    vr$
=Mid(v$,2)
    
    z$
="0."+RSet("", cn-1"0")
    
    vo$
=vl$+z$+vr$
    
  
Else
    cn
=cn+2
    vl$
=Left(v$,cn)
    vr$
=Mid(v$,cn+1)
    
    vo$
=vl$+"."+vr$
    
  EndIf
  
  l
=Len(vo$)
  
For i=To 1 Step -1
    
If Mid(vo$, i, 1)<>"0"
      Break
    EndIf
  
Next
  vo$
=Left(vo$,i)
  
If Right(vo$,1)="."
    vo$
=Left(vo$,Len(vo$)-1)
  EndIf
  
  ProcedureReturn vo$
  
EndProcedure

Feedback

# re: 将“科学计数法”表示的字符串转换为普通计数方式(PureBasic)  回复  更多评论   

2010-06-12 11:47 by 快播
比较简单,感谢分享。
只有注册用户登录后才能发表评论。