(20200512彩色版Release)_制作图片字典工具的试作

vbnet · 发表于 2016-5-21 23:38:39

2016021_3更新

>套索功能

修正在词条的下方有很大的空白

线条再细些

凡人也好 · 发表于 2016-5-22 00:22:14

支持！我有一些不成熟的想法，不知是否可行： 1、（抱歉我可能看得不够仔细，有错请谅解）楼主是不是先选中词条再裁剪图片？是否可以加一种模式，先把图片上所有的词条框选好做上标记，然后在浏览词条时一个一个选。这样可能会提高效率。当然，重要的是为我要说的第二点做准备。 2、众所周知，mdx的词条是没有分级的，但对于汉语词典来说，字以及其下的词之间还是有联系的。为何不在截图时加上分级系统？即在截图时，按住某个键，那么此时截得图就被记录为主图的一个分图（生成个文件，专门记录图片间分级关系），这样在处理文本时，可方便调用（如：①在字的词条下生成词的超链接。②高度模板化，做一个引用模板，在字的词条下也调用对应的词，不过通过代码实现折叠现实，就像oald9那样。③系统性存好分级关系，让制作者自己发挥）。不仅汉语词典，在截图时把每个大的分级都标上号，便可实现安原书顺序浏览词条了（加超链接实现，或最后做完后安编号顺序排列源文件，用最新版mdxbuild生成）。 3、待续…… 最后还是感谢楼主的付出。待工具完善后，用mdict看图片版词典就太完美了，没有这工具制作都是大问题！我表达的可能有些混乱了，实现不了也无伤大雅，毕竟楼主把工具做成现在这样已经是非常大的福利了，我们这些享受奉献的没有权利要求奉献者按我们的意思来！

chigre3 · 发表于 2016-5-22 00:52:34

解压ZIP：

TEST.html 可以用浏览器查看一下效果
TEST.MDX 只能用 GoldenDict 查看不完全效果，即“红色标识”的显隐性不成功，有谁懂点JS的帮忙给出个主意！
不然图片下方的词条，因为版面高度关系会因为没有“标识提示”而变得难找了！！！

chigre3 · 发表于 2016-5-22 00:53:49

vbnet 发表于 2016-5-21 11:39
8 a7 H& k" Q+ G+ T( Q单纯给出坐标7 K( f6 T5 u5 B0 j; B7 u
比如& v$ x3 j- {! }6 Z; Q6 I
offering#20,400

我回复啦，是个测试文件，需要用GoldenDict加载MDX，HTML浏览器里倒是可以显隐“红色位置标识”

chigre3 · 发表于 2016-5-22 00:58:34

纵坐标百分比 = 取两位小数 ( 词条纵坐标 / 图片宽度 * 100 )
margin-top = 纵坐标百分比%
------------------------
注意，不是除以图片高度，是除以图片宽度！！！！

chigre3 · 发表于 2016-5-22 01:24:02

#!/usr/bin/env python! W% L* w1 J" V% c
# -*- coding: utf-8 -*-* M; \6 R9 U% p6 k; n
from Tkinter import *
% G+ q; _. _6 i8 @* r4 R3 E
from tkFileDialog import askopenfilename: w, I( `( x! P5 |
from PIL import Image, ImageTk5 E+ _4 X6 h( X6 e5 f% ~( G# f
. _% N" c+ p0 M! y; h
if __name__ == "__main__":7 L8 E+ I& m) Q9 a X3 ~
root = Tk()+ k, J+ F) o9 n" u6 N/ w' }
#setting up a tkinter canvas with scrollbars
2 B8 k' o1 I. ^9 {
frame = Frame(root, bd=2, relief=SUNKEN)# @* x! S3 g* O5 B% J Q3 R
frame.grid_rowconfigure(0, weight=1)7 \6 I1 [; {0 t! }. L
frame.grid_columnconfigure(0, weight=1)
# F7 Z3 P) D4 R6 P7 @+ Q
xscroll = Scrollbar(frame, orient=HORIZONTAL). q, @6 {$ S" _4 {( K2 [3 H
xscroll.grid(row=1, column=0, sticky=E+W)1 m- i6 e* x" y% W$ P
yscroll = Scrollbar(frame)0 _. U/ J" `1 y) V
yscroll.grid(row=0, column=1, sticky=N+S)4 f9 a5 M: U6 E E
canvas = Canvas(frame, bd=0, xscrollcommand=xscroll.set, yscrollcommand=yscroll.set)
% e/ D6 @, f0 ?# L# g( B
canvas.grid(row=0, column=0, sticky=N+S+E+W)9 W g$ V1 v8 f% C) D+ D4 F
xscroll.config(command=canvas.xview)+ E* P3 g- w9 V, Z
yscroll.config(command=canvas.yview)
0 E2 N2 `1 n$ V5 E+ d
frame.pack(fill=BOTH,expand=1)
; c0 v; E1 O f8 f4 b+ M
( {7 i) t' Q. X- Q$ ? y0 h
#adding the image+ ?' J$ t" a' _4 g1 R' K
File = askopenfilename(parent=root, initialdir="C:/Users/dell/Desktop/意汉词典/_ok",title='Choose an image.')
X4 f# f8 I! g3 D0 W
img = ImageTk.PhotoImage(Image.open(File))
! P4 ?+ x2 m( }- x, l
canvas.create_image(0,0,image=img,anchor="nw")& n9 S, ?9 w; M' [/ i7 _3 p
canvas.config(scrollregion=canvas.bbox(ALL))
4 |$ S7 ^ P) _: C% ^/ s
% L# B) Z& L4 O: t) {( u5 p1 z5 @* B
#function to be called when mouse is clicked, S3 I/ z7 }/ t3 N) D. Q
def printcoords(event):
% b: n, ~: ~$ {7 `
#outputting x and y coords to console
- V; n) X2 t8 d7 z
canvas = event.widget
% C+ U+ f3 Y$ s6 D( q
x = canvas.canvasx(event.x), T8 E- T5 A' a4 N
y = canvas.canvasy(event.y)% k" B* e* f( K" U. n. @
oval = canvas.create_oval(x-8, y-8, x+8, y+8, fill="red")
' E9 `) e$ {) W" \( L2 w: R3 z4 ~; b6 V
print x,y& ~3 n& ]6 D. ] j4 e
f = open('_coords.txt','a')# l; E, v: d1 v$ B& h) Y9 u& n" k
f.write('X: %s\tY: %s\n' % (x,y))0 ~. x P( e* z$ |# T" S5 N
f.close()
: Q3 {' T4 p+ d9 |
! W9 ^ H0 W& S6 K* M- t
#mouseclick event
j( d2 k! F2 M% B
canvas.bind("<Button 1>",printcoords)
6 L: u$ w. c& A
root.mainloop()" a- U/ N" @- c% ~0 A. B5 X

复制代码

来源处：
http://stackoverflow.com/questio ... ck-coordinate-on-it

vbnet · 发表于 2016-5-22 08:09:10

chigre3 发表于 2016-5-22 00:52( E0 ^, u8 j, h, ~- v/ j
解压ZIP：+ ^. _6 h, M3 ^, t7 t
: c# g$ D& _( k
TEST.html 可以用浏览器查看一下效果

基本了解
css position margin-top

vbnet · 发表于 2016-5-22 08:18:45

本帖最后由 vbnet 于 2016-5-22 08:51 编辑

chigre3 发表于 2016-5-22 00:586 l) ~; z2 s# u5 h( x! A8 D
纵坐标百分比 = 取两位小数 ( 词条纵坐标 / 图片宽度 * 100 )* j* |4 }* m v' L
margin-top = 纵坐标百分比%
" d5 W1 }! s0 i7 I7 X0 W6 s7 D' j( ~------------- ...

3200x5000
y=2500
margin-top=2500/3200*100=78.12%

不知道如何理解这78.12%?

margin-left的算法?

lwangls · 发表于 2016-5-22 09:28:09

词典有固定的两栏或三栏，一般扫描的版本定位足够准确
比如两栏的词典：
1）输入分栏的三条竖线位置，估计只有个别页面需要调整
2）只需手工画出词与词之间的分割横线。
再自动化一点，只需鼠标在每两个词之间点击一下，自动画横线，与固定的分栏竖线构成矩形
3）每章划分词条完毕，一次性切割图形

fedor · 发表于 2016-5-22 10:05:55

本帖最后由 fedor 于 2016-5-25 13:00 编辑

vbnet 发表于 2016-5-21 23:02
>固定框无法向图片下方移动。

固定框无法移动的情况是：打开的图片上下高度较长时，也就是当前电脑屏幕不是显示整个页面时，看下面的页面需要按右侧的滚动条向下滚动，滚动后显示出的这部分页面，固定框是移动不过来的。

vbnet · 发表于 2016-5-22 13:19:46

fedor 发表于 2016-5-22 10:059 N Z" i( m$ d8 j2 A+ |9 H
固定框无法移动的情况是：打开的图片上下高度较长时，也就是当前电脑屏幕不是显示整个页面时，看下面的页 ...

改好了，等更新

vbnet · 发表于 2016-5-22 13:41:32

2016022更新

>固定框功能

修正卷轴下拉后，不能往下拖动的情况

vbnet · 发表于 2016-5-22 14:52:39

本帖最后由 vbnet 于 2016-5-22 17:28 编辑

chigre3 发表于 2016-5-21 07:296 Y' p, [# ?& R: x9 }3 m; d
vbnet, 我偷个懒，就只要词条所在的XY坐标，这样查询单词，点击一下，自动滚动到所在的垂直位置。

这样方式如何

开始点左方词头----->点缩图中该词头的位置(x,y)--->取得原图中该词头的位置(x,y)-->写入词头列表(高亮)的右方

点缩图中该词头的位置(x,y)--->左方词头自动往下一格高亮
往后只点图片

还是加入公式算出%?

如果我只单纯想查词时，图片中(x,y)直接拉到(0,0)显示，css,html的写法?

如附件

fedor · 发表于 2016-5-22 19:38:27

vbnet 发表于 2016-5-22 13:41
$ `* a b% M& m& i3 \2016022更新
# Y1 t5 D M' A/ {' t& Q& q, {0 T
>固定框功能

完全正常了，效率好高，大赞赞赞赞！！！
期待下一个功能能够开发出来，也就是同时选定多个词条，定位一个截图。

chigre3 · 发表于 2016-5-23 02:42:55

vbnet 发表于 2016-5-22 14:52; K/ T5 a: N. V; K7 I' X% U" ?
这样方式如何
3 W/ X) K+ }3 S) E+ x* Y0 P% c) }1 q' r" F
开始点左方词头----->点缩图中该词头的位置(x,y)--->取得原图中该词头的位置(x,y)--> ...

整页面的词条，点击序号跳到当前页所在垂直位置，点击单词链接该单词，方便查询其他词库

vbnet · 发表于 2016-5-23 15:27:36

fedor 发表于 2016-5-22 19:38$ E1 `' {4 J! [ p' ~
完全正常了，效率好高，大赞赞赞赞！！！
' Z) C- r- v' X7 m8 A9 [$ p期待下一个功能能够开发出来，也就是同时选定多个词条，定位一 ...

想法
a,b,c,d指向同一张图
a词存图，设a为跳转目标，b,c,d指向a
------产生对照表---------------
b#a
c#a
d#a
--------------------------------------------------------
寻找:
(^.*)#(.*$)
取代为:
\1\r\n@@@LINK=\2\r\n</>
-------------------------------
b
@@@LINK=a
</>
c
@@@LINK=a
</>
d
@@@LINK=a
</>

chigre3 · 发表于 2016-5-23 18:31:48

vbnet 发表于 2016-5-22 14:52' ~9 p( i! n5 u7 z
这样方式如何 w' O/ q! K% L4 D+ r8 ]7 U; _# q

* f& ~1 i# T# Q: ~) ^0 Z7 t" Z开始点左方词头----->点缩图中该词头的位置(x,y)--->取得原图中该词头的位置(x,y)--> ...

这个可以测试吗？

chigre3 · 发表于 2016-5-23 18:58:33

vbnet 发表于 2016-5-22 14:52
" C9 K$ ~5 C- z这样方式如何0 k" H7 i3 b- d* e

$ X. o, f8 Y2 h开始点左方词头----->点缩图中该词头的位置(x,y)--->取得原图中该词头的位置(x,y)--> ...

默认的情况下就是你说的这样。
之前的测试文件还在吧？
输入YHCD_001，你会看到完整的该页词头索引，按照左右两列区分开的。
单击这儿的数字，会自动跳到垂直位置
单击这儿的单词，查询该单词

chigre3 · 发表于 2016-5-23 19:00:25

vbnet 发表于 2016-5-22 14:52, G4 `( T/ t" g. I. ?6 \ S* _
这样方式如何& J3 C3 k8 t# v9 w3 x3 `
5 n7 v" F: j0 Z( K/ M+ }, X9 i
开始点左方词头----->点缩图中该词头的位置(x,y)--->取得原图中该词头的位置(x,y)--> ...

最初加载的words列表如果也有极少的缺词可以手工加入吗？

vbnet · 发表于 2016-5-23 19:11:41

chigre3 发表于 2016-5-23 18:31
! l1 I+ n4 X" M这个可以测试吗？

用法如上所述

vbnet · 发表于 2016-5-23 19:14:34

chigre3 发表于 2016-5-23 19:00
7 \. y! ?: D& P/ `' Q3 @最初加载的words列表如果也有极少的缺词可以手工加入吗？

要等更新
用插入的方式

chigre3 · 发表于 2016-5-23 19:16:54

vbnet 发表于 2016-5-23 19:11
& |2 B. M2 q* y [6 c用法如上所述

万分感谢！这样超好用！

vbnet · 发表于 2016-5-23 19:19:11

chigre3 发表于 2016-5-23 18:58
$ o; I" o+ i: X3 L# Y! ?默认的情况下就是你说的这样。
; T4 y' j. s+ q. L& ^# Y' s( J之前的测试文件还在吧？( n: G( L$ @& g5 k: B
输入YHCD_001，你会看到完整的该页词头索引，按 ...

等你实际做几页，看看效果如何

chigre3 · 发表于 2016-5-23 19:23:09

vbnet 发表于 2016-5-23 19:11, Z% Y( k, ?: @; V2 y1 e
用法如上所述

打开的图片文件名是否可以写入？
这样方便后期编辑。
----------

fedor · 发表于 2016-5-23 19:27:44

vbnet 发表于 2016-5-23 15:27( F* {* o ?9 I- b$ I0 T
想法+ v+ b' m) I7 Q; q3 q' {% U
a,b,c,d指向同一张图: D n& A R; ~
a词存图，设a为跳转目标，b,c,d指向a

想法好！集成到程序自动完成就超级棒了。
不过自己手工试做了一个图片，三个词条的，但是第二个和第三个词条不显示图片啊，不知问题在哪里。图片和txt文本见附件。

		自动登录	找回密码
密码			免费注册

[工具] (20200512彩色版Release)_制作图片字典工具的试作

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源