用java怎么获得一张图片上的一个文字的坐标点 求高手解答

Posted 2023-05-08

比如 我想获取这张图片中的这个 "问" 字的坐标, 用java怎么实现?
图片尺寸是1440x900
问题已解决~

//提示：坐标依次打印在命令符窗口
//提示：坐标依次打印在命令符窗口
//提示：坐标依次打印在命令符窗口
//不就是监听鼠标事件吗？
import javax.swing.*;
import java.awt.*;
import java.awt.event.*;
import javax.swing.border.Border;

/**
*我想建立个界面，可以加载本机中图片。
*加载后可以通过鼠标点击获得图片上任意点坐标。
*提问者： sunny929929 - 试用期 一级
*/
public class MyPicture extends JFrame implements MouseListener
 private JLabel tipLabel;

 /**
 *main()
 */
 public static void main(String[] args)
  MyPicture frame = new MyPicture();
   frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
   frame.setVisible(true);
    

/**
    *constructor
    */
    public MyPicture()
  setSize(800, 600);//根据要求调整大小
  setLocation(100,100);
  setTitle("获得图片上任意点坐标");
        setResizable(false);

        Container con=getContentPane();

        ImageIcon bgIcon=new ImageIcon("bgpic.jpg");//注意图片的路径
  ImagePanel backpicPanel=new ImagePanel(bgIcon);
  backpicPanel.addMouseListener(this);
  con.add(backpicPanel,BorderLayout.CENTER);

  tipLabel=new JLabel("--------------------提示：坐标依次打印在屏幕上!--------------------");
  con.add(tipLabel,BorderLayout.SOUTH);
 

/**
 *
 */
 public void mousePressed(MouseEvent e)
  int x=e.getX();
  int y=e.getY();
  String message="("+x+","+y+")";
  tipLabel.setText(message);
  System.out.println(message);

 

 public void mouseReleased(MouseEvent e)

 

 public void mouseEntered(MouseEvent e)

 

 public void mouseExited(MouseEvent e)

 

 public void mouseClicked(MouseEvent e)

 



/**
 *类ImagePanel，用于添加背景图片
 */
class ImagePanel extends JPanel
 private   Image   img;
    public  ImagePanel (ImageIcon   imageIcon)
     img=imageIcon.getImage();
    

    public  void  paintComponent(Graphics   g)
     super.paintComponent(g);
     g.drawImage(img,0,0,this);
    

追问

不符合题意.
这个字指不定出现在哪个位置, 我要用程序得到这个点,而不是自己用鼠标点击这个字得到这个点. 我要是知道这个点的位置,去点击它获取,何必要这么麻烦哪 随便一个小工具就能搞定.明白?

参考技术A 使用tesseract-ocr 3.0以上，可以识别图片上的汉字，但要再确定坐标，不太现实。
现在图像比对这一块技术还不是很成熟，不好说 参考技术B 答案是什么呢，我也想知道

VBS 关于提取WORD第二行的文字为文件名的方式

如何用VBS代码批量提取WORD第二行内容为文档名，谢谢！！！

有看到用VBS提取WORD文档内容第一行为文档名的代码？第二行怎么提呢？
http://zhidao.baidu.com/question/162828108.html?fr=qrl&cid=1069&index=1
求完整代码？？？ 谢谢！

完整代码：

1、用记事本新建一个文本文件，把它保存为“批量重命名.vbs”（注意不要弄成了“批量重命名.vbs.txt”，也就是要确保其扩展名为“.vbs”）；

2、把下列代码粘贴到这个VBS文件中：
Option Explicit

Const g_strRootPath = "c:\Temp\docs\Word\ToRename\" ' 指定存放所有文件的目录，可以有子目录
Const g_nTitleMaxLen = 16 ' 指定获取文档里面第一段中的前多少个字符来作为文件名
Const g_Line = 2 ' 指定获取文档里面第一段中的第2行
Call Main

' 主函数入口
Sub Main()

Dim fso, oFolder, oWordApp

Set oWordApp = CreateObject("Word.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(g_strRootPath)

RenameDocFilesUnderFolder oWordApp, fso, oFolder

oWordApp.Quit
Set oWordApp = Nothing

MsgBox "完成！"

End Sub

' 重命名指定文件夹（递归）下面的所有Word文件，按照文件里面的第一句可见的文字命名
Sub RenameDocFilesUnderFolder(oWordApp, fso, oFolder)

Dim oSubFolder, oFile, oDoc
Dim strTitle, strFileName

For Each oSubFolder In oFolder.SubFolders
RenameDocFilesUnderFolder oWordApp, fso, oSubFolder
Next

For Each oFile In oFolder.Files
Set oDoc = oWordApp.Documents.Open(oFile.Path)
strTitle = GetFirstVisibleTextContent(oDoc)
oDoc.Close
Set oDoc = Nothing

If Len(strTitle) <> 0 Then
strFileName = fso.BuildPath(fso.GetParentFolderName(oFile.Path), strTitle & "." & fso.GetExtensionName(oFile.Path))
strFileName = GetUniqueFileName(fso, strFileName)
fso.MoveFile oFile.Path, strFileName
End If
Next

End Sub

' 获取指定文档第二行可见文字
Function GetFirstVisibleTextContent(oDoc)

Dim oParagraph
Dim strContent
Dim i
For Each oParagraph In oDoc.Paragraphs
strContent = GetSafeFileName(oParagraph.Range.Text)
If Len(strContent) <> 0 Then
i = i + 1
If i = g_Line Then
GetFirstVisibleTextContent = strContent
Exit Function
End If
End If
Next

GetFirstVisibleTextContent = ""

End Function

' 过滤文件名里面的无效字符
Function GetSafeFileName(strFileName)

Dim arrUnsafeCharacters, strUnsafeChar
Dim nIndex

arrUnsafeCharacters = Array("\", "/", ":", "*", "?", """", "<", ">", "|")

For nIndex = 0 To &H2F
strFileName = Replace(strFileName, Chr(nIndex), "")
Next

For Each strUnsafeChar In arrUnsafeCharacters
strFileName = Replace(strFileName, strUnsafeChar, "")
Next

GetSafeFileName = Left(Trim(strFileName), g_nTitleMaxLen)

End Function

' 获取不重复的文件名，如果有重名则在文件名后面附加“_1”、“_2”……
Function GetUniqueFileName(fso, strFullName)

Dim strParentFolder, strBaseName, strExtensionName
Dim nIndex

If Not fso.FileExists(strFullName) Then
GetUniqueFileName = strFullName
Exit Function
End If

strParentFolder = fso.GetParentFolderName(strFullName)
strBaseName = fso.GetBaseName(strFullName)
strExtensionName = fso.GetExtensionName(strFullName)

nIndex = 0

While fso.FileExists(strFullName)
nIndex = nIndex + 1
strFullName = fso.BuildPath(strParentFolder, strBaseName & "_" & nIndex & "." & strExtensionName)
Wend

GetUniqueFileName = strFullName

End Function

3、修改代码中开始部分的三个设置，即：存放等待重命名的Word文件的根目录，第几行，以及获取文档第一段内容时最多保留多少个字符。

4、保存这个VBS文件，在资源管理器中双击运行它，直到看见“完成”！

5、检查所有文件是否已自动重命名。

注意：如果有两个以上的文档依据其内容提取出来的文字相同，则会自动在文件名后面附加“_1”、“_2”、“_3”……。

如果有什么问题，请和我联系。 参考技术A 针对文档内二级标题提取和格式修改的说明：
第一，确定每个标题是否为同一样式。方法：选中标题后右键可查看；
若不是统一的样式，可用格式刷刷成统一的样式。
第二步，选中任一二级标题后，右键→点击“选择格式相似的文本”，即可选中所有二级标题，这样就可以对所有二级标题进行复制提取和格式修改了。
针对多个文章标题的提取除了复制外暂无更好办法 参考技术B lily_blues确实是高手
你只要把这段修该成这样就行了

Function GetFirstVisibleTextContent(oDoc)

Dim oParagraph
Dim strContent

useful_line_count=0 '///////////////////有效行数////////////////////

For Each oParagraph In oDoc.Paragraphs
strContent = GetSafeFileName(oParagraph.Range.Text)
If Len(strContent) <> 0 Then
GetFirstVisibleTextContent = strContent
useful_line_count=useful_line_count+1

If useful_line_count=2 Then Exit Function ' ///////////////////第n行对应把=2 改为n即可

End If
Next

GetFirstVisibleTextContent = ""

End Function追问

如何利用VBA提取word页眉文字为文件名？？？