微软vbscript下载_使用VBScript更新或添加到Microsoft的custom.dic

微软vbscript下载

Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question

不久前，我在VB Script论坛中看到一个问题，我认为不会花太多时间。 您可以阅读该问题

(Question ID  （问题ID 28455246) Here. The asker wanted some help getting a script to update the custom.dic file for dictionary values in Microsoft Office. I thought no problem, it is just a text file. So I took a look at the code and it looked fine, but then I tried to run it and got the same error. I thought, well, that is strange, it is just a simple text file. Oh, but it is not. 28455246）在这里 。 询问者希望获得帮助，以获取脚本来更新Microsoft Office中字典值的custom.dic文件。 我以为没问题，这只是一个文本文件。 所以我看了一下代码，看起来还不错，但是后来我尝试运行它，并得到了同样的错误。 我认为，这很奇怪，它只是一个简单的文本文件。 哦，但是不是。

When I opened it in Notepad++ I found that the encoding was not the standard utf-8, but rather it showed as UCS-2 Little Endian. I figured it cannot be that hard to write a script to update this file, so I took a whack at it. Needless to say after much searching in the internet and much more time than I had planned to spend on the question, I had nothing. That never feels good.

当我在Notepad ++中打开它时，我发现编码不是标准的utf-8，而是显示为UCS-2 Little Endian。 我认为编写脚本来更新该文件并不难，所以我对此大吃一惊。 不用说，在互联网上进行了大量搜索并且花费了比我计划在该问题上花费的时间更多的时间，我一无所有。 感觉永远不好。

I took a break for the day and came back the next morning. Several ideas I found that should work did not. I had headed down the path of opening the file, saving it as UTF-8, and then opening it again and saving it back out. I found some scripts that could do that process, but all failed when I tried to add text. Eventually I stumbled across the right combination and sequence.

我休息了一天，第二天早上回来。 我发现应该可行的一些想法没有用。 我已经走过打开文件的路径，将其保存为UTF-8，然后再次将其打开并保存回去。 我发现一些脚本可以执行该过程，但是当我尝试添加文本时所有脚本都失败了。 最终，我偶然发现了正确的组合和顺序。

I decided since all the scripts on the internet that I could find to update MS Office’s dictionary assumed the older style file that was UTF-8, I needed to publish what I had found so others would not waste their time as I did.

我决定，因为我可以找到的用于更新MS Office词典的所有Internet脚本都假定使用的是较旧的样式文件UTF-8，所以我需要发布自己发现的内容，以便其他人不会像我那样浪费时间。

First, in my script I wanted to account for the location of the file as Microsoft moved it between versions. I added that into my code. Once I find the file, the concept that worked for me was to open the file using the ADO stream with the Unicode character set. I then update the text and save it off as UTF-8 with the ADO Stream.

首先，在脚本中，我想考虑文件的位置，因为Microsoft在两个版本之间移动了它。 我将其添加到我的代码中。 找到文件后，对我有用的概念是使用带有Unicode字符集的ADO流打开文件。 然后，我更新文本并将其与ADO Stream一起另存为UTF-8。

That way the new text and the old text all have the same encoding at that point. Now here you would think I could just convert the stream to UTF-8, add the text, convert it back and save it with the ADO stream, but I could never get that to work. I ended up saving it as a temp file with the UTF-8 encoding.

这样，新文本和旧文本在那时都具有相同的编码。 现在在这里您会认为我可以将流转换为UTF-8，添加文本，将其转换回并使用ADO流保存，但是我永远无法使它正常工作。 我最终将其保存为具有UTF-8编码的临时文件。

Now I have to get this back to Unicode. Therefore I open the file up with the ADO stream again and this time write it back out with the File System Object using the Unicode flag. Now when I look at the dictionary my new words have been added and the file is in the correct encoding.

现在，我必须将其恢复为Unicode。 因此，我再次使用ADO流打开了文件，这次使用Unicode标志将其写回到文件系统对象中。 现在，当我查看字典时，已经添加了新词，并且文件的编码正确。

Now in the script, you have to tell it what words you want added to the custom dictionary.  You will need to update this code section in the full script:

现在，在脚本中，您必须告诉它要添加到自定义词典中的单词。 您将需要在完整脚本中更新此代码部分：

'**************************************
' Add Your Text That is to be inserted into the Dictionary
'**************************************
strText = objOriginalFile.ReadText
strText = strText  & "Test1" & vbcrlf
strText = strText  & "Test2" & vbcrlf
'**************************************

strText = Replace(strText, "WordToReplace" & vbcrlf, "")

' ExpertExchange 
' Expert: ltlbearand3 [http://www.experts-exchange.com/M_2469312.html]
'
' Add a value or values to Microsoft's Custom.Dic via script
' The file encoded in UCS-2 Little Endian (according to notepad++)
' Must open the file convert to UTF-8, add your words, and convert back

Option Explicit
' --------------------------------------------------------------------------------
'  Set Up Variables, Define Constants and Instantiate objects
' --------------------------------------------------------------------------------
Dim objFSO, objOriginalFile, objTempFile, objNetwork, objNewFile, objShell
Dim strPath1, strPath2, strFile, strTempFile, strText

' Set Constants
Const adTypeText   = 2   
Const adSaveCreateOverWrite = 2
Const ForWriting = 2
Const TristateTrue = -1 'Opens Files as Unicode
Const DICTIONARYNAME = "CUSTOM.DIC"

' Instantiate Objects
Set objNetwork = CreateObject("WScript.Network")
Set objFSO = CreateObject( "Scripting.FileSystemObject" )
Set objShell = CreateObject("WScript.Shell")
Set objOriginalFile = CreateObject("ADODB.Stream")  
Set objTempFile = CreateObject("ADODB.Stream")
Set objNewFile = CreateObject("ADODB.Stream")  

' --------------------------------------------------------------------------------
'  Set up the File Location (Microsoft Office moves this file around based on version)
' --------------------------------------------------------------------------------
' Set Values for possible file location based on MS Office Version
strPath1 = "C:\Users\" & objNetwork.UserName & "\AppData\Roaming\Microsoft\Spelling\en-US\"
strPath2 = "C:\Users\" & objNetwork.UserName & "\AppData\Roaming\Microsoft\UProof\"

' Find the location of the Dictionary file as it changes based on version
If objFSO.FileExists (strPath1 & DICTIONARYNAME) Then
	strFile = strPath1 & DICTIONARYNAME
ElseIf objFSO.FileExists (strPath2 & DICTIONARYNAME) Then
	strFile = strPath2 & DICTIONARYNAME
Else
	Wscript.Echo DICTIONARYNAME & " was not found."
	wcript.quit
End If

' Set Temp File
strTempFile = objShell.ExpandEnvironmentStrings("%TEMP%") & "\" & "TempDictionary.Dic"

' --------------------------------------------------------------------------------
' Open in ADO Stream to convert to UTF-8 and save in Temp File
' --------------------------------------------------------------------------------
' Open original File
objOriginalFile.Type = adTypeText
objOriginalFile.Charset = "unicode"
objOriginalFile.open
objOriginalFile.LoadFromFile strFile

'**************************************
'**************************************
' Add Your Text That is to be inserted into the Dictionary
'**************************************
strText = objOriginalFile.ReadText
strText = strText  & "Test1" & vbcrlf 
strText = strText  & "Test2" & vbcrlf
'**************************************
'**************************************

' Save as UTF-8 File
objTempFile.Type = adTypeText   
objTempFile.Charset = "utf-8"
objTempFile.Open 
objTempFile.WriteText strText
objTempFile.SaveToFile strTempFile, adSaveCreateOverWrite

' Close the Files
objOriginalFile.Close
objTempFile.Close

' --------------------------------------------------------------------------------
' Now Open the UTF-8 file and use the File System Object to save it back as Unicode(UCS-2 Little Endian)
' --------------------------------------------------------------------------------
objNewFile.Type = adTypeText
objNewFile.Charset = "utf-8"
objNewFile.Open
objNewFile.LoadFromFile strTempFile
objFSO.OpenTextFile(strFile, ForWriting, True, TristateTrue).Write objNewFile.ReadText
objNewFile.Close

' --------------------------------------------------------------------------------
' Clean Up
' --------------------------------------------------------------------------------
Set objFSO = Nothing
Set objNetwork = Nothing
Set objNewFile = Nothing
Set objOriginalFile = Nothing
Set objTempFile = Nothing

Wscript.Echo strFile & " has been updated."

翻译自: https://www.experts-exchange.com/articles/14075/Using-VBScript-to-Update-or-Add-To-Microsoft's-custom-dic.html

微软vbscript下载