(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
, S9 G z4 n# P: [1 `, W单纯给出坐标
5 ^5 j1 N$ Y; E( S& V比如
- I7 i% Y A; h5 yoffering#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 python8 a5 d2 X2 N0 C) z
# -*- coding: utf-8 -*-! U( n! M3 \) R
from Tkinter import *
/ `" s' v+ E$ J: l" W4 J
from tkFileDialog import askopenfilename2 m, D- M z& |
from PIL import Image, ImageTk
Y; j1 R: W( t! g2 {4 {
. U8 E+ [. \( T% c, J
if __name__ == "__main__":
& I+ x, U5 L. B4 U3 Q
root = Tk()
- W7 g8 ]) X9 X. f( s* E, W& }
#setting up a tkinter canvas with scrollbars, }7 w7 i0 j+ ]% o# e+ e0 l
frame = Frame(root, bd=2, relief=SUNKEN)
! c( |+ U1 R7 ^; c
frame.grid_rowconfigure(0, weight=1): D0 m$ G. Z9 N
frame.grid_columnconfigure(0, weight=1)
, h; R( Q2 n# t |; Z
xscroll = Scrollbar(frame, orient=HORIZONTAL)! g* ]- F6 e& h; `$ u8 t
xscroll.grid(row=1, column=0, sticky=E+W)7 q! B6 u/ f5 J# |: m( R& A1 Y
yscroll = Scrollbar(frame); V7 R( \1 o" q) G( k: o" A
yscroll.grid(row=0, column=1, sticky=N+S)2 r7 h% S" C7 `" |8 t M# S: j
canvas = Canvas(frame, bd=0, xscrollcommand=xscroll.set, yscrollcommand=yscroll.set)
5 y& r! ]! o& L% k1 t+ \" C
canvas.grid(row=0, column=0, sticky=N+S+E+W)
9 O1 S+ s% b$ D% f# t% d
xscroll.config(command=canvas.xview)
0 W, |4 T( ~& R* c* I
yscroll.config(command=canvas.yview)
) ~! {& L: ?: F% h8 O+ \) Q& `
frame.pack(fill=BOTH,expand=1)
4 j b% w. f, O* a8 S/ c7 @# o; c
; Q4 [' P1 _- R. S
#adding the image
2 L: T& X$ f8 Z ?# ?( ^& {* T
File = askopenfilename(parent=root, initialdir="C:/Users/dell/Desktop/意汉词典/_ok",title='Choose an image.')
% w" m! f" ~. o! W' r
img = ImageTk.PhotoImage(Image.open(File))1 I1 \0 T% t C) y
canvas.create_image(0,0,image=img,anchor="nw")5 e" W! \: ^/ E# g9 C
canvas.config(scrollregion=canvas.bbox(ALL))
2 S1 s6 L* ^ G7 ~- m' v9 d) p# E; c
9 [% A2 ^/ b/ @" N. w
#function to be called when mouse is clicked
9 q4 ]7 J. k8 d* j/ {0 p5 u7 q7 U2 r
def printcoords(event):
: V& F/ E t$ {0 j! R) _ S
#outputting x and y coords to console
8 d* f: Z4 j% d p) Q
canvas = event.widget
9 f$ j. B+ c% J
x = canvas.canvasx(event.x)) j) ] F( h3 w& T4 t' S# h5 y
y = canvas.canvasy(event.y)
; [) I/ q; S* c2 O
oval = canvas.create_oval(x-8, y-8, x+8, y+8, fill="red")2 a# m1 b/ J, O- b. u% U; E9 ]5 l( V
print x,y* V- Y& _$ B. S/ c; C" J) L! S
f = open('_coords.txt','a')) P" q/ m& H* T3 x# s G5 D: l$ l
f.write('X: %s\tY: %s\n' % (x,y))7 X, B. T3 P, X- h( K
f.close(); r! E8 T1 P5 p- F N; m! z9 d( W# R
8 v. \# E7 E6 Z. s6 A8 Y. q+ I
#mouseclick event# ]6 `% [: P: X* T& D
canvas.bind("<Button 1>",printcoords)
# A# J3 d- y, J) Q* Z ~4 D" J
root.mainloop()
T, g+ y% b9 N' \

复制代码

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

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

chigre3 发表于 2016-5-22 00:52
7 T" k( }7 m+ _解压ZIP：
[4 s: F, K7 w8 G4 Y( p) s; O' M* F* c
TEST.html 可以用浏览器查看一下效果

基本了解
css position margin-top

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

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

chigre3 发表于 2016-5-22 00:58( H# ?' ~) n& j9 \6 T
纵坐标百分比 = 取两位小数 ( 词条纵坐标 / 图片宽度 * 100 )6 i! b2 c. |+ V( S0 Y
margin-top = 纵坐标百分比%5 i5 b7 h- z" _" \( {
------------- ...

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
3 t. O' J# \1 h* I/ I/ `; L>固定框无法向图片下方移动。

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

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

fedor 发表于 2016-5-22 10:05
8 Z. t. N( _* a固定框无法移动的情况是：打开的图片上下高度较长时，也就是当前电脑屏幕不是显示整个页面时，看下面的页 ...

改好了，等更新

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:29
4 ]3 y1 k' L5 f8 r9 hvbnet, 我偷个懒，就只要词条所在的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% c1 P- `* K9 s) J N$ f
2016022更新
R6 F2 d5 ~% Y( D; U8 _. {7 |9 ^3 T# i) e, Q" a
>固定框功能

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

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

vbnet 发表于 2016-5-22 14:52; }7 o+ ]+ D5 }" d# u0 P
这样方式如何) L3 I( ?" N+ R3 e" [# l
: G! R5 q' H7 g: r6 {! q) M
开始点左方词头----->点缩图中该词头的位置(x,y)--->取得原图中该词头的位置(x,y)--> ...

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

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

fedor 发表于 2016-5-22 19:38
+ F2 O6 k- }' [' g' ^/ d完全正常了，效率好高，大赞赞赞赞！！！
' e/ ^) P1 W) l* H# r% P& T2 W期待下一个功能能够开发出来，也就是同时选定多个词条，定位一 ...

想法
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+ f- P+ E. H: h! S, x8 {
这样方式如何+ D# B7 V% U7 ]2 L1 s3 \* z5 c7 W, e
& f7 c; {3 U; S( f6 Q- j
开始点左方词头----->点缩图中该词头的位置(x,y)--->取得原图中该词头的位置(x,y)--> ...

这个可以测试吗？

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

vbnet 发表于 2016-5-22 14:52
* U8 Q( }: a) [! U. j这样方式如何; u; X# p C5 j/ L, F! V0 N. D8 W" M

$ ]# {9 a: c' y1 f) G) W$ X: P开始点左方词头----->点缩图中该词头的位置(x,y)--->取得原图中该词头的位置(x,y)--> ...

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

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

vbnet 发表于 2016-5-22 14:52 `: x5 g: n0 ^. W" C6 N
这样方式如何, N/ z9 o# _. P4 T
# e" |% T8 x/ \# U' c( ?
开始点左方词头----->点缩图中该词头的位置(x,y)--->取得原图中该词头的位置(x,y)--> ...

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

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

chigre3 发表于 2016-5-23 18:31( Z# ^2 q P1 t8 q6 M3 I+ i* I
这个可以测试吗？

用法如上所述

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

chigre3 发表于 2016-5-23 19:00% y% }; m$ k6 A3 }
最初加载的words列表如果也有极少的缺词可以手工加入吗？

要等更新
用插入的方式

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

vbnet 发表于 2016-5-23 19:11* a& Z: Z8 J6 H1 Y* C7 v( `
用法如上所述

万分感谢！这样超好用！

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

chigre3 发表于 2016-5-23 18:58; Z* F o" e) \* \7 c- i
默认的情况下就是你说的这样。
2 l" d1 l6 W8 o' I$ G8 h9 w8 F之前的测试文件还在吧？
5 z. S/ B5 t3 y4 A' e$ p% [输入YHCD_001，你会看到完整的该页词头索引，按 ...

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

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

vbnet 发表于 2016-5-23 19:11
8 w* L# U: n! |用法如上所述

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

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

vbnet 发表于 2016-5-23 15:27+ U/ }: l* \0 m; e( N% }
想法
9 V! g, X* c3 v0 B; P( l1 `a,b,c,d指向同一张图
4 j# \" T2 Q- ^* y7 q0 @a词存图，设a为跳转目标，b,c,d指向a

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

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

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

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源