#讀取上次檢查到的行數(shù)
成都創(chuàng)新互聯(lián)公司專注于鹽湖網(wǎng)站建設服務及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供鹽湖營銷型網(wǎng)站建設,鹽湖網(wǎng)站制作、鹽湖網(wǎng)頁設計、鹽湖網(wǎng)站官網(wǎng)定制、微信平臺小程序開發(fā)服務,打造鹽湖網(wǎng)絡公司原創(chuàng)品牌,更為您提供鹽湖網(wǎng)站排名全網(wǎng)營銷落地服務。
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錯誤及上下三行放到mailinfo中
Dim s As String = "你的字符串"
Dim si As Single = CType(Val(s), Single)
MsgBox(si)
程序里測試通過 你試試看。
VB使用CSng 函數(shù)可將整數(shù)型數(shù)據(jù)類型轉(zhuǎn)換成單精度浮點數(shù)據(jù)類型。
CSng 函數(shù)示例
本示例使用 CSng 函數(shù)將一整型數(shù)值轉(zhuǎn)換為 Single。
Private?Sub?Command1_Click()
Dim?MyInteger?As?Integer
Dim?MySingle?As?Single
MyInteger?=?7534
MySingle?=?CSng(MyInteger)
Debug.Print?MySingle
Debug.Print?LenB(MyInteger)
Debug.Print?LenB(MySingle)
End?Sub
Debug.Print LenB(MyInteger)輸出為2,是Integer數(shù)據(jù)類型的字節(jié)數(shù)。
Debug.Print LenB(MySingle)輸出為4,是Single數(shù)據(jù)類型的字節(jié)數(shù)。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim aa(3) As Byte
Dim f As Single
aa(0) = H0
aa(1) = H0
aa(2) = H80
aa(3) = H3F
'CopyMemory(f, aa, 4)
f = BitConverter.ToSingle(aa, 0)
TextBox1.Text = f
End Sub
End Class