重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
因为Excel表的左上角的单元格都是以第一行第一列
为原平等地区用户提供了全套网页设计制作服务,及原平网站建设行业解决方案。主营业务为成都做网站、成都网站建设、成都外贸网站建设、原平网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
MsgBox(LBound(arr, 1)) '一维最小下标
MsgBox(LBound(arr, 2)) '二维最小下标
测试:用上面函数(LBound)得到的结果都是1
保存的方法有挺多的,比如保存到数据库中,保存到ini文件里,保存到注册表里,保存到自定义文件中等等。如果就是一些设置参数,直接保存到ini文件中即可(或者自己自定义的文件)。比较重要的可以保存到数据库里,除了设置自己开机启动,注册服务等一般不把东西存如注册表,以免被某些注册表清理软件当垃圾给清理掉。
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
比较专业的做法是在项目中添加微软的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()
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
都是用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();