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

因為Excel表的左上角的單元格都是以第一行第一列

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

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

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

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

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

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

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

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

'寫配件文件

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

vb.net編寫程序時如何存儲設置參數(shù)？

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

使用極其簡單，假設在settings1.settings設置一個項目，名稱：IP，類型：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如何打開選定文件夾下所有TXT文件，讀取數(shù)據(jù)，寫入數(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)?'寫入數(shù)據(jù)

Next

End?If

End?Using

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

都是用SQL語句完成的

寫入數(shù)據(jù)庫

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

名稱欄目：vb.net參數(shù)保存讀取,vb 保存數(shù)據(jù)
鏈接地址：http://jinyejixie.com/article4/dssscoe.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、網(wǎng)站建設、微信公眾號、云服務器、移動網(wǎng)站建設、網(wǎng)站內(nèi)鏈

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)