Skip to content

Commit 60d54cb

Browse files
committed
WordVBA + 查易學網易經周易原文指定卦名文本_並取回其純文字值及網址值插入至插入點位置(Alt + Shift + y )
感恩感恩 讚歎讚歎 南無阿彌陀佛
1 parent 653efc3 commit 60d54cb

13 files changed

+907
-361
lines changed

README.md

+8-3
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,9 @@ Text for Ctext 是為了有效加速[《中國哲學書電子化計劃》](https
3131
- 第一種為預設模式,即在現前開啟的Chrome瀏覽器即可操作。(去年(2022)大致完成了)
3232
- 第二種操作模式是由selenium自動開啟另一個新的Chrome瀏覽器執行體來加以操作。(大致完成了 20230113)
3333
> [TextForCtextPortable.zip](https://github.com/oscarsun72/TextForCtext/blob/master/TextForCtextPortable.zip) 者 請記得下載與您的Chrome瀏覽器對應的[chromedriver.exe](https://chromedriver.chromium.org/downloads)版本,並和本軟件 TextForCtext.exe 放在同一個目錄/路徑下即可。感恩感恩 南無阿彌陀佛
34-
34+
> - ★★ **Selenium模式下,若不想關閉手動啟用或WordVBA啟動的Chrome瀏覽器即可共用Chrome瀏覽器:** 只要在Chrome瀏覽器啟動的捷徑內「目標(T)」欄位內的值末端輸入「` --remote-debugging-port=9222`」(程式碼碼裡也有)再按下「確定」或「套用(A)」按鈕即可。20241004 感恩感恩 讚歎讚歎 南無阿彌陀佛 讚美主
35+
>> 在Chrome瀏覽器「chrome://version/」網址查看,其「命令列」欄下含有` --remote-debugging-port=9222 `即表示所啟動的、現用的Chrome瀏覽器已設定成功了,可供`TextForCtext``WordVBA`操作。
36+
3537
> ★在全自動連續輸入模式下可配合 Windows 內建的語音辨識軟體 *Windows Speech Recognition* 完全不動手即可操作。快速鍵**Ctrl + F2**可切換此操作,並自動啟動軟體與結束)20230121 23:50壬寅年除夕夜
3638
- 第三種模式則是混搭前兩種, 或由selenium 取得現用的瀏覽器。來操作。。尚未實作。
3739
- 要切換三種模式。可在textbox2輸入以上指令。
@@ -323,8 +325,8 @@ Ctrl + F12 :檢索《國語辭典》
323325
- Alt + 7 : 將文件中的異體字轉正體字
324326
- Ctrl + Alt + = : 以選取的文字檢索 CTP 所收阮元《十三經注疏·周易正義》並在選取文字上加上該檢索結果頁面之超連結
325327
- Alt + shift + , 即 Alt + < : 以選取的文字檢索文件中第一段所載之 CTP 所收本網址,並在選取文字上加上該檢索結果頁面之超連結
326-
- Ctrl + Alt + F10 讀入《古籍酷》自動標點所選取文字的結果
327-
328+
- Ctrl + Alt + F10 讀入《古籍酷》自動標點所選取文字的結果
329+
- Alt + Shift + y : 查[《易學網·易經[周易]原文》](https://www.eee-learning.com/article/571)指定卦名文本_並取回其純文字值及網址值插入至文件中插入點位置(y:易) 20241004
328330
**以下功能,目前須先開啟TextForCtext才能使用。** 原理是以本軟件作為中介故。
329331
- Alt + , 或 Ctrl + Alt + , 或 Ctrl + Alt + F9 或 Alt + shift + F5 同在TextForCtext 的 Alt + , 與 Alt + F9 與 Alt + F5。《漢籍全文資料庫》或《中國哲學書電子化計劃》檢索《易》學關鍵字。蓋藉由本軟件介面作中介爾。
330332
- Alt + F10 以選取文字送交《古籍酷》自動標點
@@ -832,6 +834,9 @@ Ctrl+ 滑鼠左鍵:清除框中所有文字
832834
833835
- 複製一份和本軟件所需相同的「chromedriver.exe」到「chrome.exe」的同一目錄(路徑)下
834836

837+
- 在 Selenium 模式下,或使用SeleniumBasic,**若不想關閉手動啟用或TextForCtext啟動的Chrome瀏覽器即可共用Chrome瀏覽器:** 只要在Chrome瀏覽器啟動的捷徑內「目標(T)」欄位內的值末端輸入「` --remote-debugging-port=9222`」(程式碼碼裡也有)再按下「確定」或「套用(A)」按鈕即可。
838+
> 在Chrome瀏覽器「chrome://version/」網址查看,其「命令列」欄下含有` --remote-debugging-port=9222 `即表示所啟動的、現用的Chrome瀏覽器已設定成功了,可供`TextForCtext``WordVBA`操作。
839+
835840
- 可詳以下4片:
836841

837842
[https://youtube.com/live/GI1hfa9CPkc?feature=share](https://youtube.com/live/GI1hfa9CPkc?feature=share)

TextForCtextPortable.zip

44.4 KB
Binary file not shown.

WindowsFormsApp1/Browser.cs

+4-3
Original file line numberDiff line numberDiff line change
@@ -8414,12 +8414,12 @@ void forEachTabChectTitle()
84148414
}
84158415

84168416
List<string> keywords = new List<string> { "易", "五經", "六經","七經", "十三經","蓍", "爻", "繫詞", "繫辭", "文言", "乾坤","元亨","利貞", "咎",
8417-
"夬", "頤","巽","坎","兌","小畜","大畜","歸妹","明夷","明𡗝","同人于宗","同人","大有","豫大","豫","蠱","噬嗑","臨卦","〈需〉","〈屯","蒙〉","𫎇〉","賁於外","外賁","內賁","賁","剝","大過","小過","遯世無悶","遯","大壯","睽","暌","蹇","姤","萃","艮其背", "乾知大始","乾以易知","坤作成物","坤以簡能" ,"艮","渙","中孚","既濟","未濟","乾卦","坤卦","訟卦","師卦","比卦","履卦","泰卦","否卦","謙卦","隨卦","觀卦","復卦","習坎","離卦","咸卦","恆卦","晉卦","家人卦","解卦","損卦","益卦","升卦","困卦","井卦","革卦","鼎卦","震卦","漸卦","豐卦","旅卦","節卦","卦",
8417+
"夬", "頤","巽","顨","坎","兌","小畜","大畜","歸妹","明夷","明𡗝","同人于宗","同人","大有","豫大","豫","蠱","噬嗑","臨卦","〈需〉","〈屯","蒙〉","𫎇〉","賁於外","外賁","內賁","賁","剝","大過","小過","遯世無悶","遯","大壯","睽","暌","蹇","姤","萃","艮其背", "乾知大始","乾以易知","坤作成物","坤以簡能" ,"艮","渙","中孚","既濟","未濟","乾卦","坤卦","訟卦","師卦","比卦","履卦","泰卦","否卦","謙卦","隨卦","觀卦","復卦","習坎","離卦","咸卦","恆卦","晉卦","家人卦","解卦","損卦","益卦","升卦","困卦","井卦","革卦","鼎卦","震卦","漸卦","豐卦","旅卦","節卦","卦",
84188418
"咸恆","老陰", "老陽", "少陰", "少陽","十翼","四象","兩儀","大衍",
84198419
"无妄", "彖", "象曰", "象傳", "象日", "象云","大象","小象","象文", "筮", // 不支援標點檢索,如「, "象:"」
84208420
"初九","九二","九三","九四","九五","上九","初六","六二","六三","六四","六五","上六","用九","用六", "繇辭","繇詞",
8421-
"隨時之義","庖有魚","包有魚","精義入神","豶豕","童牛","承之羞","雷在天上","錫馬", "蕃庶","晝日","三接","懲忿","窒欲","敬以直內","義以方外","迷後得主","利西南","品物咸章","天下大行","益動而", "日進無疆","頻巽","豚魚","頻復", "懲窒","閑邪","存誠","乾乾","悔吝","憧憧", "類萬物","柔順利貞","比之匪人","貞厲","履貞","履道坦坦","貞吉","悔亡","時義","健順", "內健而外順", "內健外順", "外順而內健", "外順內健","敦復","直方","開物成務","窮神知化", "夕惕","惕若","研幾極深","極深研幾","一陰一陽","允升","木上有水","勞民勸相","索而得","我有好爵","言有序","有聖人之道四","長子帥師","弟子輿尸","無悶","日用而不知","之道鮮","原始反終", "寂然不動", "感而遂通","朋從", "朋盍", "容民畜眾","有過則改","見善則遷","養正","養賢","知臨","臨大君", "默而成之","黙而成之","不言而信", "存乎德行","通天下之志","履正", "繼之者善", "仁者見之", "知者見之", "智者見之","屯其膏", "貞不字","翰音", "善不積",
8422-
"象義","大貞","小貞", "帝出乎震","帝出於震","帝出于震","與時偕行","盈虛","豐亨","天在山中", "多識前言往行", "蹇蹇", "匪躬","洗心","龍德","慎言語","節飲食","艮其限","乃孚","幹父","裕父","係遯","甘臨",
8421+
"隨時之義","庖有魚","包有魚","精義入神","豶豕","童牛","承之羞","雷在天上","錫馬", "蕃庶","晝日","三接","懲忿","窒欲","敬以直內","義以方外","迷後得主","利西南","品物咸章","天下大行","益動而", "日進無疆","頻巽","豚魚","頻復", "懲窒","閑邪","存誠","乾乾","悔吝","憧憧", "類萬物","柔順利貞","比之匪人","貞厲","履貞","履道坦坦","貞吉","悔亡","時義","健順", "內健而外順", "內健外順", "外順而內健", "外順內健","敦復","直方","開物成務","窮神知化", "夕惕","惕若","研幾極深","極深研幾","一陰一陽","允升","木上有水","勞民勸相","索而得","我有好爵","言有序","有聖人之道四","長子帥師","弟子輿尸","無悶","日用而不知","之道鮮","原始反終", "寂然不動", "感而遂通","朋從", "朋盍", "容民畜眾","有過則改","見善則遷","養正","養賢","知臨","臨大君", "默而成之","黙而成之","不言而信", "存乎德行","通天下之志","履正", "繼之者善", "仁者見之", "知者見之", "智者見之","屯其膏", "貞不字","翰音", "善不積","立成器", "與地之",
8422+
"象義","大貞","小貞", "帝出乎震","帝出於震","帝出于震","與時偕行","盈虛","豐亨","天在山中", "多識前言往行", "蹇蹇", "匪躬","洗心","龍德","慎言語","節飲食","艮其限","乃孚","幹父","裕父","係遯","甘臨","號咷",
84238423
"終難","咸之九五","賁於丘園","賁于丘園","賁於邱園","賁于邱園", "束帛戔戔", "損下以益上", "損下益上", "損下而益上", "貳用缶","納約自牖","利見大人", "何思何慮","同歸而殊塗","一致而百慮", "同歸殊塗","一致百慮","先天後天","改命吉","天下雷行",
84248424
"精氣為物","游魂為變","遊䰟為變","游䰟為變", "漣如","焚如","知幾其神","禴祭", "東鄰","朋亡", "渙其群","有子考","甲三日","庚三日","不易乎世","不成乎名","天一地二","者其辭","升其高陵","天道虧盈","鞏用", "祗悔", "祇悔","秖悔","秪悔","履霜","蒞眾",
84258425
"伏羲","庖羲","庖𦏁","宓𦏁","宓羲","宓犧","伏犧","庖犧"};
@@ -9014,6 +9014,7 @@ public static bool FindPageAndPaste2Find(WebDriver driver, string pasteTxt, bool
90149014
ActiveForm1.TopMost = false;
90159015
//driver.SwitchTo().Window(GetCurrentWindowHandle(driver));
90169016
driver.SwitchTo().Window(driver.CurrentWindowHandle);
9017+
if (ActiveForm1.Active) BringToFront("chrome");
90179018
if (ActiveForm1.Active) Debugger.Break();
90189019
SendKeys.SendWait("^f");//打開Chrome瀏覽器網頁上的「搜尋本頁內容」方塊
90199020
if (paste2Find)

WindowsFormsApp1/CnText.cs

+3-4
Original file line numberDiff line numberDiff line change
@@ -10,8 +10,6 @@
1010
using WindowsFormsApp1;
1111
using System.Windows.Forms;
1212
using System.Diagnostics;
13-
using Microsoft.Office.Interop.Word;
14-
using static System.Net.Mime.MediaTypeNames;
1513
using OpenQA.Selenium.DevTools.V125.Runtime;
1614
//using static System.Windows.Forms.VisualStyles.VisualStyleElement;
1715
//using static System.Net.Mime.MediaTypeNames;
@@ -589,7 +587,7 @@ internal static void FormalizeText(ref string x)
589587
//,"}}<p>\r\n{{"//像《札迻》就有此種格式,不能取代掉! https://ctext.org/library.pl?if=en&file=36575&page=12&editwiki=800245#editor
590588
,"\r\n。<p>","\r\n〗","\r\n。}}","\r\n:"
591589
,"!。<p>","?。<p>","+<p>","<p>+",":。<p>","。\r\n。"
592-
,"《\r\n  ","《\r\n ","《\r\n"
590+
,"《\r\n  ","《\r\n ","《\r\n"
593591
,":。","\r\n,","\r\n。","\r\n、","\r\n?","\r\n」","「\r\n" ,"{{\r\n" ,"\r\n}}"
594592
,"􏿽?","􏿽。",",〉","。〉","〈、","!,","〈,"//自動標點結果的訂正
595593
,",。"
@@ -703,7 +701,8 @@ internal static int HasPlatecenterTextIncluded(string xChecking)
703701
string pattern = "[" + Regex.Escape("卷上下卄一二三四五六七八九十卅卌<p>") + "]";
704702
line = Regex.Replace(line, pattern, "");
705703
double similarity = Fuzz.Ratio(title, line) / 100.0;
706-
if (similarity >= threshold)
704+
//Form1 frm = (Form1)Application.OpenForms[0] ;//依Copilot大菩薩建議,改用依賴注入(Dependency Injection, DI)
705+
if (similarity >= threshold && line.Length < Form1.Instance.NormalLineParaLength)
707706
{
708707
//前一段若為「|」通常是卷末題目
709708
if (i > lines.Length - 2 &&

0 commit comments

Comments
 (0)