#讀取上次檢查到的行數(shù)
為興慶等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計(jì)制作服務(wù),及興慶網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)、興慶網(wǎng)站設(shè)計(jì),以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求,就會(huì)得到認(rèn)可,從而選擇與我們長(zhǎng)期合作。這樣,我們也可以走得更遠(yuǎn)!
last_line=`cat ./mailinfo`
echo "上次行數(shù):"$last_line
#算出本次alert日志的行數(shù)
current_line=`wc -l $alert_log|awk '{print $1}'`
echo "本次行數(shù):"$current_line
#取上次行數(shù)和本次行數(shù)之間的alert日志內(nèi)容,然后把ORA錯(cuò)誤及上下三行放到mailinfo中
就是用Val,沒錯(cuò)的。
Val不是單單變整數(shù)的,它是將字符型轉(zhuǎn)換為數(shù)值型。注意:整型和浮點(diǎn)型都屬于是數(shù)值型。
你可以試試
Dim a As String
Dim f As Double
a = "1.6533555"
f = Val(a)
Print f
這樣打印出的結(jié)果就是 1.6533555。
我的電腦上VB6.0測(cè)試成功。
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)
程序里測(cè)試通過 你試試看。