金山词霸字典转换工具
有个牛人制作的 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上）
