FIX-修正VS2010剪貼程式碼時中文夾雜亂碼問題
19 |
Abstract: VS2010 RTM has a bug. When copying code and pasting it to Word, Excel, Powerpoint, Outlook, there are one or two redundent characters following the non-ASCII characters. I wrote a tool as a workaround.
許多人應該都發現了, VS2010在處理程式碼剪貼時有個明顯Bug--將含顏色標示的程式碼貼到Office(Word, Excel, PowerPoint, Outlook)時,中文部分會夾雜亂碼。例如: "每個中文字後會連著一到兩個多餘字元"會變成"每LC個O中?文a字r後a會P|連s著gU一@到Li兩La個O多h餘l字r元¡M"。
這實在是個惱人的問題,像我常需要將程式碼貼在Word或Outlook中。原本在VS2008裡,選取並複製程式碼,在Office裡貼上時,可保留語法中的不同顏色標記,美觀又大方。但到了VS2010,貼成RichText格式時中文部分會有夾雜亂碼的問題,但貼上為純文字時則正常。原本兩個動作可以完成的任務,現在要嘛得手動將多餘字元刪掉,不然就得仰賴其他Syntax Highlight機制,十分不便。
研究了一下這個問題,發現是放進Clipboard裡的內容出現多餘字元,於是我用C#寫了一個小工具,取出剪貼內容,用Regex修改後再貼回去,就可修正這個問題囉!
程式原理很簡單,用Clipboard.GetDataObject()取出RTF剪貼內容,用Regex把有問題的部分換掉(Regular Expression好威呀!),再把修正後的結果放進剪貼簿,如此而已,幾行程式就搞定了: (.NET好威呀!)
//每個中文字後會連著一到兩個多餘字元
private void btnFix_Click(object sender, EventArgs e)
{
//取得剪貼簿內容
IDataObject dataObject = Clipboard.GetDataObject();
if (dataObject.GetDataPresent(DataFormats.Rtf))
{
//取出RTF格式
string rtf = dataObject.GetData(DataFormats.Rtf) as string;
//以Regex.Replace去除多餘字元(註: 不管是否有問題,一律強制處理)
string fixedRtf =
Regex.Replace(rtf, @"\\uinput2(?<uc>\\u-?\d*)\s..",
(m) =>
{
return m.Groups["uc"].Value + "?";
});
//另建新DataObject物件
DataObject newDataObject = new DataObject();
//RTF格式用修正後的字串,其餘依原值
foreach (String t in dataObject.GetFormats())
newDataObject.SetData(t,
t == "Rich Text Format" ? fixedRtf :
dataObject.GetData(t));
//將修正後內容寫入剪貼簿
Clipboard.SetDataObject(newDataObject, true);
}
}
有需要的朋友可以下載回去使用,或是DIY自行編譯上述程式碼。(下載格式為.7z,請使用7-Zip解壓縮;因只有VS2010的使用者會需要,所以我編譯成.NET 4.0)
若覺得好用請幫忙按個"讚"(其實沒地方可以按,開玩笑的 XD),並歡迎留言回饋指教!
Comments
# by Ruddy Lee
恭喜! 年度最快速解決方案供獻獎! ....(提名)
# by Morris
讚
# by 阿尼
讚
# by bauann
讚,推到twitter ~
# by David
讚, 堪稱本月最優小工具....^_^
# by cc
谢谢你了! 小而犀利的工具!
# by neksterlader
讚啦~~ Regular Expression好威呀! NET好威呀! 黑暗執行緒大大好威呀!
# by DeltaCat
赞,灰常不错
# by fbzl
讚
# by mis2000lab
相見恨晚啊~~~~ 要不是有朋友推薦這篇文章,我還在用手工方法解決呢..... 感恩。
# by 小中中
讚~!
# by iNowForDream
讚
# by fantasyer
lihai!
# by 飞晏
非常不错,简洁高效的代码。
# by Vincent
相当不错,谢谢,有东西又有原理源码,辛苦了
# by 大灰狼
咱
# by Shirley
好棒~~~大大的赞~\(≧▽≦)/~~多谢作者!
# by 孫守真
剛才發現從2016版 Offce VBA 複製的程式碼也有類似這這問題,凡中文皆變亂碼 從外部複製貼進 VBA 則中文皆成??(問號)。可能也是寫入剪貼簿時的bug ,不知版主可曾研究這個問題。目前可有解決之道?
# by 孫守真
更正剛才的。發現問題出在系統語言環境,因我在win10增了英文(美國)語言,沒有切換過來中文(繁體,台灣)語言時,就發生這種VBA剪貼簿錯亂的問題。但其他程式不會,可見仍是VBA本身環境的問題。 只要在中文(繁體,台灣)下複製、貼上,便沒有亂碼的問題了。 剛剛試驗,若先在美語環境下複製了,再切回中文環境貼上,則仍會;須在中文環境複製下,才能貼上正常。可見是在複製時將資料寫入剪貼簿,依當前誩環境作編碼,輸出(貼上)時,則依此編碼字來輸出,如是而已。南無阿彌陀佛