doc

curtis

2026-03-19 beac355a0f1b5f75020760c36061283e44e9636c

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
const fs = require('fs');
const path = require('path');
 
// 檔案路徑設定
const sourceFile = path.resolve(__dirname, 'CB_IMGPSScanImp.pas');
const outDir = path.resolve(__dirname, 'separate', 'scanImp');
 
if (!fs.existsSync(sourceFile)) {
    console.error("找不到原始檔案:", sourceFile);
    process.exit(1);
}
 
if (!fs.existsSync(outDir)) {
    fs.mkdirSync(outDir, { recursive: true });
}
 
const content = fs.readFileSync(sourceFile, 'utf8');
 
const implMatch = content.match(/\bimplementation\b/i);
const initMatch = content.match(/\binitialization\b/i);
 
if (!implMatch || !initMatch) {
    console.error("無法在檔案中找到 implementation 或 initialization 區段。");
    process.exit(1);
}
 
const headerPart = content.substring(0, implMatch.index + implMatch[0].length);
let implPart = content.substring(implMatch.index + implMatch[0].length, initMatch.index);
const footerPart = content.substring(initMatch.index);
 
const usesMatch = implPart.match(/^\s*uses[\s\S]*?;/im);
let usesClause = "";
if (usesMatch) {
    usesClause = usesMatch[0];
    implPart = implPart.substring(usesMatch.index + usesMatch[0].length);
}
 
// 提取並保留不在方法內的實作開頭，例如 {$R *.DFM} 或是 { TCB_IMGPSScanX }
const methodRegex = /^(?:procedure|function)\s+TCB_IMGPSScanX\./im;
let otherImpl = "";
const firstMethodMatch = implPart.match(methodRegex);
 
if (firstMethodMatch) {
    otherImpl = implPart.substring(0, firstMethodMatch.index);
    implPart = implPart.substring(firstMethodMatch.index);
}
 
// 切割所有方法
const methodSplitRegex = /(?=^(?:procedure|function)\s+TCB_IMGPSScanX\.)/im;
const methods = implPart.split(methodSplitRegex).filter(m => m.trim().length > 0);
 
const uiMethods = [];
const scanMethods = [];
const dataMethods = [];
const utilMethods = [];
 
methods.forEach(m => {
    const nameMatch = m.match(/^(?:procedure|function)\s+TCB_IMGPSScanX\.([A-Za-z0-9_]+)/i);
    if (nameMatch) {
        const name = nameMatch[1].toLowerCase();
        if (/(click|mouse|key|drag|scroll|event|menu|btn|form|node|tree|view|activate|paint|resize)/.test(name)) {
            uiMethods.push(m);
        } else if (/(scan|acquire|image|graphic|twain|dpi|color|deskew|rotate|crop|smooth|point)/.test(name)) {
            scanMethods.push(m);
        } else if (/(ftp|http|trans|load|sql|server|setinf|data|ask|log|file|path|zip|dir|docno|formid|case)/.test(name)) {
            dataMethods.push(m);
        } else {
            utilMethods.push(m);
        }
    } else {
        utilMethods.push(m);
    }
});
 
fs.writeFileSync(path.join(outDir, 'CB_IMGPSScanImp_UI.pas'), uiMethods.join(''), 'utf8');
fs.writeFileSync(path.join(outDir, 'CB_IMGPSScanImp_Scan.pas'), scanMethods.join(''), 'utf8');
fs.writeFileSync(path.join(outDir, 'CB_IMGPSScanImp_Data.pas'), dataMethods.join(''), 'utf8');
fs.writeFileSync(path.join(outDir, 'CB_IMGPSScanImp_Utils.pas'), utilMethods.join(''), 'utf8');
 
const mainFile = [
    headerPart,
    usesClause,
    otherImpl,
    "{$I CB_IMGPSScanImp_UI.pas}",
    "{$I CB_IMGPSScanImp_Scan.pas}",
    "{$I CB_IMGPSScanImp_Data.pas}",
    "{$I CB_IMGPSScanImp_Utils.pas}",
    footerPart
].join('');
 
fs.writeFileSync(path.join(outDir, 'CB_IMGPSScanImp_Main.pas'), mainFile, 'utf8');
 
console.log("拆分完成！產生的五個檔案如下：");
console.log("1. CB_IMGPSScanImp_Main.pas (主結構與引用)");
console.log("2. CB_IMGPSScanImp_UI.pas (UI事件相關:", uiMethods.length, "個方法)");
console.log("3. CB_IMGPSScanImp_Scan.pas (掃描影像相關:", scanMethods.length, "個方法)");
console.log("4. CB_IMGPSScanImp_Data.pas (資料存取與網路傳輸:", dataMethods.length, "個方法)");
console.log("5. CB_IMGPSScanImp_Utils.pas (工具與其他邏輯:", utilMethods.length, "個方法)");