扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
#读取上次检查到的行数
网站建设哪家好，找成都创新互联公司！专注于网页设计、网站建设、微信开发、小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了巧家免费建站欢迎大家使用！
last_line=`cat ./mailinfo`
echo "上次行数："$last_line
#算出本次alert日志的行数
current_line=`wc -l $alert_log|awk '{print $1}'`
echo "本次行数："$current_line
#取上次行数和本次行数之间的alert日志内容，然后把ORA错误及上下三行放到mailinfo中
Dim a As Double, b As Single
a = 3.1415926
b = a '直接赋值即可，VB会自动转换的
b = CSng(a) '如果你不放心，那么也可以这样转换
就是用Val，没错的。
Val不是单单变整数的，它是将字符型转换为数值型。注意：整型和浮点型都属于是数值型。
你可以试试
Dim a As String
Dim f As Double
a = "1.6533555"
f = Val(a)
Print f
这样打印出的结果就是 1.6533555。
我的电脑上VB6.0测试成功。
Dim s As String = "你的字符串"
Dim si As Single = CType(Val(s), Single)
MsgBox(si)
程序里测试通过 你试试看。
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
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网