Question

vba打开一个文本文件后，怎么按行查找并提取文本中的包含特定格式字符串的内容

譬如aaa.txt里面是这样的
<objectgroup name="PATH">
<object name="P1" x="0" y="216"/>
<object name="P2" x="216" y="216"/>
<object name="1O1" x="288" y="72" width="72" height="72"/>
<object name="P3" x="216" y="288"/>
<object name="S1" x="0" y="288" width="216" height="216"/>
怎么查找出所有P+数字的一行，如含有P1，P2，P3的一行，读取这一行的x的值，y的值
（最终目的是读出P1和最后面的一个P所对应的x，y，因为长度不一定是P1，2，3，有可能到P10或者更多）
譬如这个aaa.txt，需要读的是P1的x和y的值，以及P3的x和y的值

Answer 1

提取出来的两个点的坐标放在哪里，是用对话框显示还是放在EXCEL表格里边？
还有P1、P2、P3…………先后顺序有规律还是乱的？

追问

坐标提出来了放在哪里是小事，txt或者xls里都行。
P1，P2，P3,....Pn顺序是乱的，但是从P1到Pn的都是全的

追答

详见附件。将附件放在文本文件相同的文件夹内再打开文件。运行后在A列得到点号 P1、P2、P3等，B列显示X坐标，C列显示Y坐标

追问

感激不尽，但是怎样才能只提取出最小的p1和最大的pn呢。

因为要把譬如P1的x，y放在B1格，Pn的x，y放在C1格（以“-”连接）的。
（因为具体的要求是提取多个txt的P1和Pn-1的x、y的值，所以是每个txt的提取数据存储在一行，因此得在A列存txt序号，B列存P1，C列存Pn-1）（Pn只是终点符，有效数据只到Pn-1）

追答

没弄明白你的意图，最好发一个完整的txt文件，并把要的结果放在单元格里，没有样本不好理解。截图也行。