添加spire.doc.dll為引用,在vb.net中讀取指定word文檔的內(nèi)容到?txt文件,代碼示例如下:
靖安網(wǎng)站制作公司哪家好,找創(chuàng)新互聯(lián)公司!從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、APP開(kāi)發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)等網(wǎng)站項(xiàng)目制作,到程序開(kāi)發(fā),運(yùn)營(yíng)維護(hù)。創(chuàng)新互聯(lián)公司從2013年成立到現(xiàn)在10年的時(shí)間,我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn),來(lái)保證我們的工作的順利進(jìn)行。專(zhuān)注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)公司。
'加載Word文檔
Dim doc As Document = New Documentdocument.LoadFromFile("測(cè)試文檔.docx")
'使用GetText方法獲取文檔中的所有文本
Dim s As String = doc.GetText
File.WriteAllText("文本1.txt", s.ToString)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.IO.Directory.CreateDirectory("C:\我的文件夾") '創(chuàng)建目錄,路徑就自己改吧,如果路徑存在,就沒(méi)必要?jiǎng)?chuàng)建了
System.IO.File.Create("C:\我的文件夾\我的文件.doc") '在指定目錄下創(chuàng)建word文檔
End Sub
Dim?newfile?As?New?List(Of?String)
For?Each?line?As?String?In?System.IO.File.ReadAllLines("TextFile1.txt")
If?Not?line.StartsWith("3")?Then?newfile.Add(line)
Next
System.IO.File.WriteAllLines("TextFile1.txt",?newfile)
建個(gè)集合,用System.IO.File的ReadAllLines讀出所有內(nèi)容,逐個(gè)判斷,如果是需要的加入集合,如果是要?jiǎng)h除的什么都不做,最后用WriteAllLines寫(xiě)入即可。
這里說(shuō)明一下,上面那個(gè)代碼是用來(lái)刪除所有以3開(kāi)頭的文本行。
第一步,新建項(xiàng)目。
1
打開(kāi)vb.net,也就是打開(kāi)Microsoft visual studio 2010,第一次使用的時(shí)候設(shè)置為basic語(yǔ)言就行。新建項(xiàng)目--打開(kāi)excel。
2
新建成功。
END
第二步,添加引用。
1
“項(xiàng)目”--“添加引用”。
2
添加Microsoft Excel 14.0 Object Library。
END
第三步,添加打開(kāi)文件對(duì)話(huà)框工具。
1
工具箱--對(duì)話(huà)框--openfiledialog。
2
添加成功。
END
第四步,添加命令按鈕控件。
1
工具箱--公共控件--button。
在控件上右擊鼠標(biāo),進(jìn)入屬性設(shè)置。
2
text屬性設(shè)置為“打開(kāi)excel”。
3
name屬性也設(shè)置為“打開(kāi)excel”。
END
第五步,編寫(xiě)程序。
1
鼠標(biāo)雙擊命令按鈕,進(jìn)入編程界面,編寫(xiě)程序。
END
第六步,運(yùn)行程序。
1
鼠標(biāo)單擊啟動(dòng)調(diào)式圖標(biāo),程序開(kāi)始運(yùn)行。
2
單擊打開(kāi)excel命令按鈕,調(diào)用打開(kāi)文件對(duì)話(huà)框,選擇自己要打開(kāi)的excel文件。
END
第七步,保存程序。
第一次程序運(yùn)行完,關(guān)閉程序,出現(xiàn)關(guān)閉項(xiàng)目提示,選擇保存。
2
選好自己要保存的位置。