正文
vb.net参数保存读取,vb 保存数据
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
关于VB.net中读取Excel数据存入数组后的再读取问题
因为Excel表的左上角的单元格都是以第一行第一列
MsgBox(LBound(arr, 1)) '一维最小下标
MsgBox(LBound(arr, 2)) '二维最小下标
测试：用上面函数（LBound）得到的结果都是1
相关问答
Q1: vb.net程序需要将一些参数保存到外部文件中，那么保存到什么文件比较方便
保存的方法有挺多的，比如保存到数据库中，保存到ini文件里，保存到注册表里，保存到自定义文件中等等。如果就是一些设置参数，直接保存到ini文件中即可（或者自己自定义的文件）。比较重要的可以保存到数据库里，除了设置自己开机启动，注册服务等一般不把东西存如注册表，以免被某些注册表清理软件当垃圾给清理掉。
Q2: VB.NET读取TXT文件数据保存为数组
VB.NET编程读取txt文本文档中的数据，并把数据保存为数组，代码如下：
'写配件文件
Private Sub saveIni(ByVal filePath As String, ByVal str As String)
Dim sw As StreamWriter = New StreamWriter(filePath, True) 'true是指以追加的方式打开指定文件
sw.WriteLine(str)
sw.Flush()
sw.Close()
sw = Nothing
End Sub
'读配件文件
Private Function readIni(ByVal filePath As String)
Dim iniDt As New DataTable
iniDt.Columns.Add("text")
iniDt.Columns.Add("value")
Try
Dim sr As StreamReader = New StreamReader(filePath, System.Text.Encoding.Default)
Dim line As String = ""
While Not sr.EndOfStream
Dim str = sr.ReadLine()'读取当前行
iniDt.Rows.Add(New String() {
str(0),
str(1)
})
End While
sr.Close()
sr = Nothing
Catch ex As Exception
End Try
Return iniDt
End Function
Q3: vb.net编写程序时如何存储设置参数？
比较专业的做法是在项目中添加微软的Application Settings类，详细帮助文档：
使用极其简单，假设在settings1.settings设置一个项目，名称：IP，类型：String，范围：用户，值：192.168.1.1
调用：Dim sIP As String = setting.IP
获取缺省值：Dim sIP As String = Settings1.Default.IP
保存： setting.IP = "192.168.1.30" : setting.Save()
Q4: vb.net如何打开选定文件夹下所有TXT文件，读取数据，写入数据，并保存数据至新的文件
Using FolderBrowserDialog As New FolderBrowserDialog
If FolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim 资料夹 As String() = System.IO.Directory.GetFiles(FolderBrowserDialog.SelectedPath, "*")
For Each 文件 In 资料夹
MsgBox(My.Computer.FileSystem.ReadAllText(文件)) '读取数据
My.Computer.FileSystem.WriteAllText(文件, "数据", False) '写入数据
Next
End If
End Using
Q5: vb.net保存数据
都是用SQL语句完成的
写入数据库
strSQL="INTO TABLENAME （OPTION1,OPTIN2）VALUES(VALUE1,VALUE2)";
cmd.Connection = conn;
cmd.CommandText = strSQL;
cmd.Parameters.Add(paramrs[i]);
try
{
conn.Open();
}
catch(Exception ex)
{
throw ex;
}
finally
{
cmd.Parameters.Clear();
cmd.CommandText = null;
cmd.Dispose();
conn.Close();
}
读取值
strSQL ="SELECT OPTION1，OPTION2 FROM TABLENAME";
cmd.CommandText = strSQL;
cmd.Connection = conn;
DataSet ds = new DataSet();
try
{
conn.Open();
SqlDataAdapter da = new SqlDataAdapter(cmd);
da.Fill(ds);
}
catch (Exception ex)
{
throw ex;
}
finally
{
cmd.Dispose();
conn.Close();
}
TextBox2.text = ds.Tables[0].rows[0][0].value.tostring();
