新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
#读取上次检查到的行数
为兴庆等地区用户提供了全套网页设计制作服务,及兴庆网站建设行业解决方案。主营业务为成都网站制作、成都网站设计、兴庆网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
last_line=`cat ./mailinfo`
echo "上次行数:"$last_line
#算出本次alert日志的行数
current_line=`wc -l $alert_log|awk '{print $1}'`
echo "本次行数:"$current_line
#取上次行数和本次行数之间的alert日志内容,然后把ORA错误及上下三行放到mailinfo中
就是用Val,没错的。
Val不是单单变整数的,它是将字符型转换为数值型。注意:整型和浮点型都属于是数值型。
你可以试试
Dim a As String
Dim f As Double
a = "1.6533555"
f = Val(a)
Print f
这样打印出的结果就是 1.6533555。
我的电脑上VB6.0测试成功。
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Function Str2Single(s As String) As Single
If LenB(s) 4 Then s = s String(4, 0)
CopyMemory Str2Single, ByVal (StrPtr(s)), ByVal 4
End Function
Dim s As String = "你的字符串"
Dim si As Single = CType(Val(s), Single)
MsgBox(si)
程序里测试通过 你试试看。