vb.net文本導(dǎo)入 vb導(dǎo)入文本框中的代碼并執(zhí)行

VB.net 怎樣將richtextbox中帶格式的文本和圖片導(dǎo)入到word中？

別那么費(fèi)事,

呂梁網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),呂梁網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為呂梁超過(guò)千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站制作要多少錢(qián)，請(qǐng)找那個(gè)售后服務(wù)好的呂梁做網(wǎng)站的公司定做！

直接用?richbox?的?save方法把內(nèi)容存放在一個(gè)臨時(shí)的?rtf文件

RichTextBox1.SaveFile("e:\temp.rtf")?'因?yàn)閣ord是可以直接打開(kāi)rtf文件的

然后用?Documents打開(kāi)這個(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

如何將已有的txt格式的文件數(shù)據(jù)導(dǎo)入VB.NET程序中，（也就是在VB.NET中讀取所需的txt文

一個(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打開(kāi)文本文件

Dim s As String

TextBox1.Text = ""

Do While r.Peek -1 '是否到文件尾

s = r.ReadLine '從打開(kāi)的文件中讀取一行內(nèi)容

TextBox1.Text = TextBox1.Text s vbCrLf '添加到文本框TextBox1.Text的后面并回車(chē)

Loop

r.Close() '關(guān)閉對(duì)象

End Sub

End Class

VB.NET中怎么導(dǎo)入TXT文本里的數(shù)據(jù)

比如說(shuō)用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

VB.NET怎樣實(shí)現(xiàn)導(dǎo)入導(dǎo)出文本文件

用System.IO.StreamReader類(lèi)可以讀各類(lèi)文本文件，用System.IO.StreamWriter 類(lèi)則可以寫(xiě)各類(lèi)文本文件，從而實(shí)現(xiàn)導(dǎo)入導(dǎo)出文本文件功能。這兩個(gè)類(lèi)均支持各類(lèi)編碼格式（默認(rèn)的是Unicode和UTF-8）。

新聞名稱(chēng)：vb.net文本導(dǎo)入 vb導(dǎo)入文本框中的代碼并執(zhí)行
地址分享：http://muchs.cn/article22/docdicc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、App設(shè)計(jì)、網(wǎng)站制作、自適應(yīng)網(wǎng)站、品牌網(wǎng)站設(shè)計(jì)、ChatGPT

廣告

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