總算把來自【學習希伯來語-奇布茲】網友 蘇姿吟 于 06/17/2015 上傳的一份學習筆記圖表,加以整理並強化其內容。
希望這份資料對想學習希伯來文的初學者,能夠有所助益!
下載資源:
以前這名的主人,會說 Perton 是 普通(台語)。 信主後,Perton 是主の殿與教會,他已不再和以前一樣,舊事已過,今日已成新造之人。 定睛在主的榮面上,遠重於人話語上的小信及自我抵毁。
在設計希伯來文生字卡產生工具的過程中,曾遇到一個問題:需要在視窗顯示完成後,自動執行該視窗上的一個按鍵功能。
這按鍵實際上就是在產生每個生字卡的畫面截圖,並將其儲存為個別的檔案。
因為每個生字卡的內容一定不同,所以,系統就要控制到每張生字卡的內容要正確呈現後,才能做畫面截圖與存檔的動作。
起初,以為將執行按鍵的動作放在 Form_Load 事件中就可,那知道 錯了!!
經過網路爬文後,才知道一些答案。
最後是將執行按鍵動作放在 Form_Shown 事件中,才解決問題。
private void Form1_Shown(object sender, EventArgs e)
{// button1_Click 帶入兩個 Null 參數,否則會有 button1_Click Overload 的錯誤
this.button1_Click(null, null);
}
在爬文的過程中,發現到高手提供範例程式,真是厲害。
網路資源:
| 雅各的 12個兒子 | 中文 | 英文 | 母親 | 希伯來文 | 希伯來文 | 音譯 | 十二支派 |
| 1 | 流便(呂便) | Reuben | 利亞 | ראובן | רְאוּבֵן | re-u'ven | 1 |
| 2 | 西緬 | Simeon | 利亞 | שמעון | שִׁמְעוֺן | shim-'eon | 2 |
| 3 | 利未 | Levi | 利亞 | לוי | לֵוִי | le-vi | |
| 4 | 猶大 | Judah | 利亞 | יהודה | יְהוּדָה | ya-hu-dah | 3 |
| 5 | 但 | Dan | 辟拉 | דן | דָּן | dan | 4 |
| 6 | 拿弗他利 | Naphtali | 辟拉 | נפתלי | נַפְתָּלִי | naf-ta-li | 5 |
| 7 | 迦得 | Gad | 悉帕 | גד | גָּד | gad | 6 |
| 8 | 亞設 | Asher | 悉帕 | אשר | אָשֵׁר | a-sher | 7 |
| 9 | 以薩迦 | Issachar | 利亞 | יששכר | יִשָּׂשכָר | yi-sas-kar | 8 |
| 10 | 西布倫 | Zebulun | 利亞 | זבלון | זְבֻלוּן | ze-vu-lun | 9 |
| 11 | 約瑟 | Joseph | 拉結 | יוסף | יוֺסֵף | yo-sef | |
| 12 | 便雅憫 | Benjamin | 拉結 | בנימין | בִנְיָמִין | bin-ya-min | 10 |
| 以法蓮 | Ephraim | אפרים | אֶפְרָיִם | ef-ra-im | 11 | ||
| 瑪拿西 | Manasseh | מנשה | מְנִשֶּׁה | me-na-sheh | 12 |
先以上圖為例,來說明這次要解決的問題是什麼?
首先,若是純粹以上圖來看,它只不過是將上面的橫向資料 D1, D2, D3, D4,轉置成下面的縱向資料呈現。
若是這樣,只要將這一筆資料加以轉置,就可以完成。
現在,將問題加以擴大:
這種情形,該如何處理,而且希望處理的動作,不要太慢!
解決方案:(想當然爾,程式處理才是上上策!!)
程式使用到的技巧:
Dim srcRow As Long
Dim srcCol As Long
Dim intCnt As Integer
Dim strLoc As String
srcRow = ActiveCell().Row
srcCol = ActiveCell().Column
intCnt = 5
strLoc = "D"
Rows(srcRow + 1 & ":" & srcRow + intCnt - 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove '插入空白行
Range(Chr(Asc(strLoc) + 1) & srcRow & ":" & Chr(Asc(strLoc) + intCnt - 1) & srcRow).Select ‘選定資料
Selection.Copy ‘複製
Range(strLoc & srcRow + 1).Select ‘移位到指定位置
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True '資料轉置貼上
Range(Chr(Asc(strLoc) + 1) & srcRow & ":" & Chr(Asc(strLoc) + intCnt - 1) & srcRow).Select '資料刪除
Selection.ClearContents
Range(strLoc & srcRow + intCnt).Select ‘移位到指定位置
要自定 Google Calendar 的記錄,可以應用 Calendar 所搭配的相關參數,就可以隨意產生不同的結果。
平時常用的參數有:
以下為實例說明:
https://calendar.google.com/calendar/render?action=TEMPLATE
&text=Google for Work's Atmosphere
&dates=20151021T050000Z/20151021T060000Z
&details=Join us to learn how to work better today at Google for Work's Atmosphere%0A
%0A
https://atmosphere.withgoogle.com/live/atmosphere-online-2015-october-apac?reg%3Dpertonchang@gmail.com
&lead_type__c=Apps
&location=Online
&pli=1
&uid
&sf=true
&output=xml
&mkt_tok=3RkMMJWWfF9wsRois63Mde/hmjTEU5z16O4kW6S1gZt41El3fuXBP2XqjvpVQcRjM7vORw8FHZNpywVWM8TILtQYt8FtKAzgAG0%3D#eventpage_6