用System.IO.StreamReader類可以讀各類文本文件,用System.IO.StreamWriter 類則可以寫各類文本文件,從而實(shí)現(xiàn)導(dǎo)入導(dǎo)出文本文件功能。這兩個(gè)類均支持各類編碼格式(默認(rèn)的是Unicode和UTF-8)。
創(chuàng)新互聯(lián)建站網(wǎng)絡(luò)公司擁有10多年的成都網(wǎng)站開發(fā)建設(shè)經(jīng)驗(yàn),近千家客戶的共同信賴。提供網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)、網(wǎng)站開發(fā)、網(wǎng)站定制、賣友情鏈接、建網(wǎng)站、網(wǎng)站搭建、自適應(yīng)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)師打造企業(yè)風(fēng)格,提供周到的售前咨詢和貼心的售后服務(wù)
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é)果。
別那么費(fèi)事,
直接用?richbox?的?save方法把內(nèi)容存放在一個(gè)臨時(shí)的?rtf文件
RichTextBox1.SaveFile("e:\temp.rtf")?'因?yàn)閣ord是可以直接打開rtf文件的
然后用?Documents打開這個(gè)臨時(shí)對(duì)象
Documents.Open?("e:\temp.rtf")
最后再另存為?word文件
ActiveDocument.SaveAs?("newname.doc",100,?False,?"",?True,?"",False,?False,False,?False,?False)
'注意第二個(gè)參數(shù)是100?表示doc格式
完整代碼如下:
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
Dim?doc?As?Object,?docword?As?Object
RichTextBox1.SaveFile("e:\1.rtf")
Doc?=?CreateObject("Word.Application")
DocWord?=?doc.Documents.Open("e:\1.rtf")
doc.ActiveDocument.SaveAs("newname.doc",?100,?False,?"",?True,?"",?False,?False,?False,?False,?False)
doc.quit()
doc?=?Nothing
docword?=?Nothing
End?Sub
比如說用Richtext控件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim file As String = "f:/x.txt"
RichTextBox1.LoadFile(file)
MsgBox("ok")
End Sub
一個(gè)按鈕,一個(gè)文本框,把文本框設(shè)置成多行顯示。
代碼如下:
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim r As New StreamReader(Application.StartupPath "\ABC.txt", System.Text.Encoding.Default) '用StreamReader打開文本文件
Dim s As String
TextBox1.Text = ""
Do While r.Peek -1 '是否到文件尾
s = r.ReadLine '從打開的文件中讀取一行內(nèi)容
TextBox1.Text = TextBox1.Text s vbCrLf '添加到文本框TextBox1.Text的后面并回車
Loop
r.Close() '關(guān)閉對(duì)象
End Sub
End Class
第一種情況:兩張照片在同一界面
當(dāng)你點(diǎn)擊一行的時(shí)候,獲取一個(gè)ID,然后根據(jù)ID從數(shù)據(jù)庫講這條數(shù)據(jù)查詢出來。讀取出來直接綁定到文本框中。第二種情況:兩張照片不在同一界面:當(dāng)你點(diǎn)擊一行的時(shí)候,獲取一個(gè)ID,將這個(gè)ID賦值給一個(gè)公開的靜態(tài)變量,然后在第二章照片窗體加載事件中根據(jù)那個(gè)靜態(tài)變量查詢出數(shù)據(jù)記錄,然后讀取出來綁定到文本框中。
分享標(biāo)題:vb.net導(dǎo)入文本 vb導(dǎo)入數(shù)據(jù)庫文件
分享地址:http://muchs.cn/article8/docohop.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供軟件開發(fā)、自適應(yīng)網(wǎng)站、網(wǎng)站設(shè)計(jì)、網(wǎng)站內(nèi)鏈、標(biāo)簽優(yōu)化、外貿(mào)網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)
移動(dòng)網(wǎng)站建設(shè)知識(shí)