成人午夜视频全免费观看高清-秋霞福利视频一区二区三区-国产精品久久久久电影小说-亚洲不卡区三一区三区一区

vb.net讀取文本 vb讀寫文本文件

VB.net 讀取文本文件

Imports?System.IO

創(chuàng)新互聯(lián)是專業(yè)的綏濱網(wǎng)站建設(shè)公司,綏濱接單;提供成都網(wǎng)站制作、成都做網(wǎng)站,網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行綏濱網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!

Public?Class?Form1

Private?Sub?Form1_Load(sender?As?System.Object,?e?As?System.EventArgs)?Handles?MyBase.Load

Dim?sr?As?New?StreamReader("d:\test.csv")

Dim?arr1(),?arr2(),?arr3(),?arr4()?As?Integer

Dim?a1,?a2,?a3,?a4?As?New?ArrayList

Do?Until?sr.EndOfStream

Dim?str?As?String?=?sr.ReadLine

Dim?s()?As?String?=?str.Split(",")

a1.Add(Convert.ToInt32(s(0)))

a2.Add(Convert.ToInt32(s(1)))

a3.Add(Convert.ToInt32(s(2)))

a4.Add(Convert.ToInt32(s(3)))

ListBox1.Items.Add(s(0))

Loop

arr1?=?CType(a1.ToArray(GetType(Integer)),?Integer())

arr2?=?CType(a2.ToArray(GetType(Integer)),?Integer())

arr3?=?CType(a3.ToArray(GetType(Integer)),?Integer())

arr4?=?CType(a4.ToArray(GetType(Integer)),?Integer())

sr.Close()

End?Sub

End?Class

vb.net怎么實(shí)現(xiàn)讀取指定WORD文檔中的內(nèi)容

添加spire.doc.dll為引用,在vb.net中讀取指定word文檔的內(nèi)容到?txt文件,代碼示例如下:

'加載Word文檔

Dim doc As Document = New Documentdocument.LoadFromFile("測(cè)試文檔.docx")

'使用GetText方法獲取文檔中的所有文本

Dim s As String = doc.GetText

File.WriteAllText("文本1.txt", s.ToString)

VB.net窗體設(shè)計(jì)中,如何讀取.txt文件中的數(shù)據(jù)?

1、新建一個(gè)標(biāo)準(zhǔn)的VB EXE工程,只有一個(gè)Form,F(xiàn)orm上有兩個(gè)按鈕:Command1和Command2。

2、雙擊Command1添加如下代碼

Private Sub Command1_Click()

Dim strFile? ? ?As String

Dim intFile? ? ?As Integer

Dim strData? ? ?As String

strFile = "c:\學(xué)生成績.txt"

intFile = FreeFile

Open strFile For Input As intFile

strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

Debug.Print strData

Close intFile

End Sub

3、按F8開始單步調(diào)試代碼,點(diǎn)擊Command1,進(jìn)入單步調(diào)試功能,

4、多次按下F8或直接按下F5運(yùn)行完成,就完成了讀取文本文件內(nèi)容并輸出到立即窗口。

VB.net 讀取文本文件?

1、實(shí)現(xiàn)上傳按鈕方法代碼。

2、判斷圖片對(duì)象是否為空代碼。

3、取得數(shù)據(jù)庫字段 dt.Rows(0)("Pic")方法代碼。

4、字節(jié)數(shù)組轉(zhuǎn)換為Image類型方法代碼。

5、處理SQL中操作Image類型方法代碼。

6、實(shí)現(xiàn)的上傳結(jié)果。

當(dāng)前題目:vb.net讀取文本 vb讀寫文本文件
文章分享:http://jinyejixie.com/article32/dodddsc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站制作、外貿(mào)網(wǎng)站建設(shè)、外貿(mào)建站網(wǎng)站排名、定制開發(fā)、網(wǎng)站策劃

廣告

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

成都app開發(fā)公司
来凤县| 昭通市| 江都市| 梓潼县| 铜山县| 南澳县| 甘孜| 泗阳县| 洛宁县| 瑞金市| 儋州市| 两当县| 蓬安县| 旌德县| 乌兰察布市| 海淀区| 平利县| 邵阳县| 泗阳县| 石楼县| 监利县| 前郭尔| 江门市| 库尔勒市| 团风县| 兴海县| 北安市| 永福县| 龙胜| 池州市| 察雅县| 迁安市| 光泽县| 西华县| 楚雄市| 香港| 嘉禾县| 鹿泉市| 阿荣旗| 苏尼特左旗| 即墨市|