正文
vb.net读取int vbnet config文件读取
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
vb.net中的int
Dim n As Integer = Integer.Parse(Command.ExecuteScalar("select count(sno) from student").ToString())
ExecuteScalar 返回vb.net读取int的是 object 类型
关于VB.net取整的问题
double是双精度 有效数值位52位 表示成指数的形式 即指数11位 即表示成
所以180.89305用2进制表示是10110100.1110010010011110111011001011111110110001010110110101
即
180.89305在double中存在的实际数值是
1.01101001110010010011110111011001011111110110001010110110101 *2^7
取小数点后 52位有效值后 等于10进制的180.893049999999998
所及加最后变成vb.net读取int了 1808930.99999999998
第一次当然输出近似值1808931
第二次int函数去掉vb.net读取int了小数点后的数int就是只取整数的部位的不是四舍五入 所以少了1
用vb.net读取指定单元格的值到变量
很简单vb.net读取int,看代码vb.net读取int:
Dim objexcelfile As Excel.Application = New Excel.Application
objexcelfile.DisplayAlerts = False
Dim objworkbook As Excel.Workbook = objexcelfile.Workbooks.Open("D:\1.xlsx") 'Excel文件路径
Dim objimportsheet As Excel.Worksheet = objworkbook.Sheets(1) '读取第一个Sheet
Dim intRow As Integer = objimportsheet.UsedRange.Rows.Count '获取总行数
Dim prod As String = objimportsheet.Cells(j, i).value '读取单元格vb.net读取int的值(i是列vb.net读取int,j是行)
'释放Excel文件
objworkbook.Close()
objworkbook = Nothing
objexcelfile.Quit()
注意需要添加 Microsoft.Office.Interop vb.net读取int的引用。
VB.net窗体设计中,如何读取.txt文件中的数据?
1、新建一个标准的VB EXE工程,只有一个Form,Form上有两个按钮:Command1和Command2。
2、双击Command1添加如下代码
Private Sub Command1_Click()
Dim strFile As String
Dim intFile As Integer
Dim strData As String
strFile = "c:\学生成绩.txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
3、按F8开始单步调试代码,点击Command1,进入单步调试功能,
4、多次按下F8或直接按下F5运行完成,就完成了读取文本文件内容并输出到立即窗口。
vb.net2008读取INT配置文件
总体思路,当文本文件读,system中有一个io.file对象,可以用readalltext读取txt文件,读完了过后再用string.split函数一个个进行解析,赋值。不过真没听说过INT配置文件,不是INI吗?
求大神指点 vb.net 怎么读 ini 配置呢
VB.NET读写INI配置文件
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim path As String
path = Application.StartupPath + "\Send.ini"
TextBox1.Text = GetINI("Send", "Send1", "", path)
TextBox2.Text = GetINI("Send", "Send2", "", path)
Dim IsSms As Integer = GetINI("Send", "IsSms", "", path)
If (IsSms = 1) Then
Me.RadioButton1.Checked = True
ElseIf (IsSms = 0) Then
Me.RadioButton2.Checked = True
End If
End Sub
Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String
Dim Str As String = LSet(Str, 256)
GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)
Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)
End Function
Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long
WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName)
End Function
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim path As String
path = Application.StartupPath + "\Send.ini"
WriteINI("Send", "Send1", TextBox1.Text, path)
WriteINI("Send", "Send2", TextBox2.Text, path)
If (Me.RadioButton1.Checked = True) Then
WriteINI("Send", "IsSms", 1, path)
ElseIf (Me.RadioButton2.Checked = True) Then
WriteINI("Send", "IsSms", 0, path)
End If
MsgBox("配置设置已经成功vb.net读取int!vb.net读取int!vb.net读取int!vb.net读取int!")
Catch ex As Exception
MsgBox("错误vb.net读取int!!!!")
End Try
End Sub
关于vb.net读取int和vbnet config文件读取的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。