關(guān)于VB.net中讀取Excel數(shù)據(jù)存入數(shù)組后的再讀取問(wèn)題

因?yàn)镋xcel表的左上角的單元格都是以第一行第一列

為原平等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及原平網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為成都做網(wǎng)站、成都網(wǎng)站建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)、原平網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

MsgBox(LBound(arr, 1)) '一維最小下標(biāo)

MsgBox(LBound(arr, 2)) '二維最小下標(biāo)

測(cè)試：用上面函數(shù)（LBound）得到的結(jié)果都是1

vb.net程序需要將一些參數(shù)保存到外部文件中，那么保存到什么文件比較方便

保存的方法有挺多的，比如保存到數(shù)據(jù)庫(kù)中，保存到ini文件里，保存到注冊(cè)表里，保存到自定義文件中等等。如果就是一些設(shè)置參數(shù)，直接保存到ini文件中即可（或者自己自定義的文件）。比較重要的可以保存到數(shù)據(jù)庫(kù)里，除了設(shè)置自己開(kāi)機(jī)啟動(dòng)，注冊(cè)服務(wù)等一般不把東西存如注冊(cè)表，以免被某些注冊(cè)表清理軟件當(dāng)垃圾給清理掉。

VB.NET讀取TXT文件數(shù)據(jù)保存為數(shù)組

VB.NET編程讀取txt文本文檔中的數(shù)據(jù)，并把數(shù)據(jù)保存為數(shù)組，代碼如下：

'寫(xiě)配件文件

Private?Sub?saveIni(ByVal?filePath?As?String,?ByVal?str?As?String)

Dim?sw?As?StreamWriter?=?New?StreamWriter(filePath,?True)?'true是指以追加的方式打開(kāi)指定文件

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()'讀取當(dāng)前行

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

vb.net編寫(xiě)程序時(shí)如何存儲(chǔ)設(shè)置參數(shù)？

比較專業(yè)的做法是在項(xiàng)目中添加微軟的Application Settings類(lèi)，詳細(xì)幫助文檔：

使用極其簡(jiǎn)單，假設(shè)在settings1.settings設(shè)置一個(gè)項(xiàng)目，名稱：IP，類(lèi)型：String，范圍：用戶，值：192.168.1.1

調(diào)用：Dim sIP As String = setting.IP

獲取缺省值：Dim sIP As String = Settings1.Default.IP

保存： setting.IP = "192.168.1.30" : setting.Save()

vb.net如何打開(kāi)選定文件夾下所有TXT文件，讀取數(shù)據(jù)，寫(xiě)入數(shù)據(jù)，并保存數(shù)據(jù)至新的文件

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(文件))?'讀取數(shù)據(jù)

My.Computer.FileSystem.WriteAllText(文件,?"數(shù)據(jù)",?False)?'寫(xiě)入數(shù)據(jù)

Next

End?If

End?Using

vb.net保存數(shù)據(jù)

都是用SQL語(yǔ)句完成的

寫(xiě)入數(shù)據(jù)庫(kù)

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();