13518219792
因为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();
