飛狼實驗室[wp]

1.sport

2.relay 接力賽，含大隊接力、大跑步、跳繩接力

3.folk 民俗體育

4.kid 幼兒運動會，源自relay11104，修改成專用版本 已停用

5.dgb已停用

參考網址：辛西亞的技能樹

function verifyId(id) {
    id = id.trim();
    
    <!-- 在 js 中遇到反斜線要跳脫，所以這邊用兩個反斜線 -->
    <!-- 如果你看到四個反斜線，那是我為了讓 NexT.Mist 主題順利渲染所再做跳脫 -->
    verification = id.match("^[A-Z][ABCD]\\d{8}$")
	if(!verification){
		return false
	}

    let conver = "ABCDEFGHJKLMNPQRSTUVXYWZIO"
    let weights = [1, 9, 8, 7, 6, 5, 4, 3, 2, 1, 1]

    id = String(conver.indexOf(id[0]) + 10) +  String((conver.indexOf(id[1]) + 10)%10) + id.slice(2);

    checkSum = 0
    for (let i = 0; i < id.length; i++) {
        c = parseInt(id[i])
        w = weights[i]
        checkSum += c * w
    }
	
    return checkSum % 10 == 0
}

console.log(verifyId("FA12345689"));

=========================================
本文作者:辛西亞．Cynthia
本文連結:https://cynthiachuang.github.io/Check-Resident-Certificate-Number/
版權聲明:除非另有標注，部落格中所有文章，均採用 CC BY-NC-SA 4.0 許可協議。 轉載請標明作者、連結與出處！

參考網址：如何在Excel中刪除括號中的內容？

ctrl+m 處理計時決賽(複製本身這一列，然後改成預賽和決賽)
 

Sub a()
'
' 巨集1 巨集
' 將計時決賽分成預賽與決賽
'
' 快速鍵: Ctrl+m
'
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 1).Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ActiveCell.Offset(1, 0).Value & "A"
    ActiveCell.Offset(0, 4).Range("A1").Select
    ActiveCell.FormulaR1C1 = "預賽"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "決賽"
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

ctrl+b 去除混合運動的(1)
 

Sub b()
'
' b 巨集
' 去除混合運動的(1)
'
' 快速鍵: Ctrl+b
'
    Cells.Replace What:="(*)", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

當連結為score_input_new.php?act=edit 傳的參數為edit時，網頁會無法正常運作，以前就沒發現這個問題。