读取一个已经存在的txt中内容，输出其中大写字母P在txt中所处的行数和列数
下面是我的思路，求大神指点
Dim temp as String
Open "\test.text" For Input As #1
Open "\output.text" For Output As #3
For i = 1 To 9 '行数   
    Line Input #1, temp  '读取1行
    For j = 1 To 9  '列数
    ...
    中间少了几行不知道怎么写
    。
    If arr(i, j) = "P" Then
    Print #3, i & "," & j
    End If
next j
next i
Close #1

数据大致是这样的

..P.PPP....
.P.P..PP...
..P.PPPP..
..PPPP.PP..
...P...P...
.P..PPP....

输出为所有P的坐标，(1,3)，(1,5)，(1,6)，(1,7)，(2,2)，...

Open App.Path + "\3.txt" For Input As #1
While Not EOF(1)
Line Input #1, arr(i, j)
For i = 1 To 10  
For j = 1 To 10
If arr(i, j) = "P" Then
Print #3, arr(i, j)  
End If
Next j
Next i
Wend
         
Close #1
Close #3

万分感谢