以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么读取文件夹下全部doc文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193235)
--  作者：spartak
--  发布时间：2024/8/28 17:27:00
--  [求助]怎么读取文件夹下全部doc文件
怎么读取文件夹下全部doc文件，并获取文件内型号后的内容
--  作者：有点蓝
--  发布时间：2024/8/28 17:36:00
--  
参考：http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70797&skin=0
--  作者：spartak
--  发布时间：2024/8/28 18:07:00
--  
上述方法可以找到关键字，比如关键字是ABC，文件里有ABC-111和ABC-2222，怎么能输出这两个字符串
--  作者：有点蓝
--  发布时间：2024/8/29 8:40:00
--  
ABC-111和ABC-2222后面是还有其它字符？还是有空格，逗号等？如果是空格等符号，取ABC后面的字符串，直接取到空格等符号即可
--  作者：spartak
--  发布时间：2024/8/31 1:12:00
--  
后面是空格或直接结束了。能帮忙写个例子吗，我现在没有思路
--  作者：有点蓝
--  发布时间：2024/8/31 9:09:00
--  
比如

dim range  = Doc.Content
if doc.Content.Find.Execute(FindText:="ABC") then
dim s as string = range.Paragraphs(1).Range.Text
dim a as integer = s.indexof("ABC")
id a > -1
msgbox(s.substring(a))
dim b as integer = s.indexof(" ",a)
if b > -1
msgbox(s.substring(a, b-a + 1))
end if
end if
end if