金山词霸字典转换工具

有个牛人制作的 KSDcrack.exe －－金山词霸的DIC词典导出程序v0.11(命令行版)

大家可以试试其他版本。
下载地址：http://free5.ys168.com/?dwing
作者主页：http://www.wex.cn/dwing/

我用词霸2005的词典解开成功。但是得到的是几个奇怪文件：
*.da0
*.da1
*.da2
*.da3
*.xml
其中*为自己指定的名称。
该软件没有说明文件。不知道得到这个又该咱办呢？

明白了。直接用文本编辑器打开*.da3就是了。是XML文件。
我的E盘已经放出三个转换出的字典（未净化）
http://free.ys168.com/?pkmaster


在处理前先打开*.DA3文件，在头部加入：
<?xml version="1.0" encoding="gb2312"?>
<ROOT>
在尾部加入（按Ctrl+End）：
</ROOT>
下面是将DA3文件转换为TAB文本文件的VB代码：
Private Declare Function GetTickCount Lib "kernel32" () As Long

Dim DE As Long
Private Sub Command1_Click()
Dim XDoc As New DOMdocument50
Dim XRoot As IXMLDOMElement

Dim xNodes1 As IXMLDOMNodeList
Dim xNode1 As IXMLDOMElement

Dim fso As New FileSystemObject
Dim ts As TextStream

Screen.MousePointer = 11

XDoc.Load "D:\PowerWord 2005\DICTS\英汉双解计算机词典\PWDNNJSJda3.xml"

Debug.Print XDoc.parseError.srcText


Set XRoot = XDoc.documentElement

Set xNodes1 = XRoot.selectNodes("//单词项")

Debug.Print xNodes1.length

DE = GetTickCount

On Error Resume Next

Set ts = fso.CreateTextFile(App.Path & "\jsjSJ.txt")
For Each xNode1 In xNodes1


If GetTickCount > 500 + DE Then
DE = GetTickCount
DoEvents
End If

ts.WriteLine xNode1.childNodes(0).Text & vbTab & xNode1.childNodes(1).Text

Next
ts.Close

Screen.MousePointer = 0

MsgBox "OK"

End Sub


另外，如果处理过程出现错误，则先用EmEditor或UE打开DA3文件，在“替换”对话框里用正则表达式查找：[^\]]]>替换为：]]>

转换20M左右的DA3文件的时间大概是15分钟吧！（在我的AMD 64上）

简明英汉词典 457542 简明汉英词典 120245 美国传统词典 96283 美国传统词典[双解] 96281 新词词典 1032 英文相关词典 7209 汉语相关词典 7688 现代英汉综合大辞典 125728 现代英汉词典 40306 英汉双解计算机词典 21138 英汉图解词典 2068 国际标准汉字大字典 20901 高级汉语词典 8758 数字反查词典 472 用法词典 5276 新日汉大辞典 102062 实用汉日辞典 25754

http://vayn.cn/sundries/files/stardict-dict.htm这里有很多的词库下载

转载于:https://www.cnblogs.com/xioxu/archive/2008/03/29/1128385.html