十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
添加spire.doc.dll为引用,在vb.net中读取指定word文档的内容到 txt文件,代码示例如下:
创新互联是一家专注于成都网站制作、做网站、外贸营销网站建设与策划设计,田阳网站建设哪家好?创新互联做网站,专注于网站建设十载,网设计领域的专业建站公司;建站业务涵盖:田阳等地区。田阳做网站价格咨询:18982081108
'加载Word文档
Dim doc As Document = New Documentdocument.LoadFromFile("测试文档.docx")
'使用GetText方法获取文档中的所有文本
Dim s As String = doc.GetText
File.WriteAllText("文本1.txt", s.ToString)
给你一个遍历所有盘符下的文件夹的例子
加一个遍历文件的就可以了。
TreeNode node = new TreeNode("我的电脑");
treeView.Nodes.Add(node); //加入一个我的电脑节点
string[] drivesName = System.IO.Directory.GetLogicalDrives() //取得驱动器列表的集合
foreach(string name in drivesName) //用foreach遍历集合
{
TreeNode drivesNode = new TreeNode(name);
node.Nodes.Add(drivesNode); //加到我的电脑节点下
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = "c:\windows\system"
For Each ws In My.Computer.FileSystem.GetFiles(a)
Dim kzm As String = ws.Substring(InStrRev(ws, "."), ws.Length - InStrRev(ws, ".")) '定义扩展名变量
If kzm = "mp4" Or kzm = "avi" Or kzm = "flv" Then '这里一定要注意扩展名的大小写,如aviAVI的
Me.ListBox1.Items.Add(ws)
End If
Next
End Sub
vb.net:
Dim
path
=
System.IO.Directory.GetFiles("D:\Log\abc",
"*.txt",
SearchOption.AllDirectories):搜索该路径下的所有txt类型的目录及子目录
path.AddRange(path)
Dim
_RecordInfo
As
String
Dim
_Reader
As
StreamReader
_Reader
=
New
StreamReader(file,
System.Text.Encoding.Default):'以Default编码的形式读取file文件(文件写入的编码要与读取的编码一致)