VBScript 文本文件分割工具代碼審查

核心邏輯解讀

' 參數處理
Set Arg = Wscript.Arguments
If Arg.Count = 0 Then Wscript.Quit
' 解析輸入路徑
path = Left(Arg(0), InStrRev(Arg(0), "\"))
Fname = Replace(Arg(0), path, "")

' ADO 連接文本文件
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Extended Properties=""text;HDR=NO;FMT=Delimited"""

' 統計總行數
Set Rs = CreateObject("ADODB.Recordset")
Rs.Open "Select count(*) FROM " & Fname, Conn, 3, 3, &H0001
allline = Rs(0)

' 逐批次讀取並寫入分割文件
Rs.Open "Select * FROM " & Fname, Conn, 3, 3, &H0001
Do Until Rs.EOF
    n = 0
    Do Until n = 5000
        Set MyTables = fso.CreateTextFile(Arg(0) & i & ".txt", True)
        MyTables.WriteLine Rs.Fields.Item(0).Value
        Rs.MoveNext
        n = n + 1
        If Rs.EOF Then Exit Do
    Loop
    MyTables.Close
    i = i + 1
Loop

關鍵技術點與缺陷

PHP 版重寫參考 (流式、高效、健壯)

<?php
/**
 * 大文本文件分割器
 * 用法: php split.php input.txt 5000 [output_dir]
 */
$inputFile = $argv[1] ?? die("Usage: php split.php   [output_dir]\n");
$linesPerFile = (int)($argv[2] ?? 5000);
$outputDir = $argv[3] ?? dirname($inputFile) . '/split_out';

if (!is_file($inputFile) || !is_readable($inputFile)) die("Input file not readable\n");
if (!is_dir($outputDir)) mkdir($outputDir, 0755, true);

$handle = fopen($inputFile, 'r');
if (!$handle) die("Cannot open input file\n");

$fileNum = 1;
$lineCount = 0;
$outHandle = null;
$baseName = basename($inputFile);
$baseName = preg_replace('/\.[^.]+$/', '', $baseName);

try {
    while (($line = fgets($handle)) !== false) {
        if ($lineCount === 0) {
            $outFile = $outputDir . '/' . $baseName . '_part' . str_pad($fileNum, 3, '0', STR_PAD_LEFT) . '.txt';
            $outHandle = fopen($outFile, 'w');
            if (!$outHandle) throw new RuntimeException("Cannot create output file: $outFile");
        }
        fwrite($outHandle, $line);
        $lineCount++;
        
        if ($lineCount >= $linesPerFile) {
            fclose($outHandle);
            $outHandle = null;
            $lineCount = 0;
            $fileNum++;
        }
    }
} finally {
    if ($handle) fclose($handle);
    if ($outHandle) fclose($outHandle);
}

echo "Done. Split into $fileNum files in $outputDir\n";
?>

PHP 版優勢對比

• 流式處理：fgets 逐行讀取，記憶體常數級 (僅單行緩衝)，支援 TB 級大文件。
• 批次寫入：單檔案開啟/關閉，I/O 操作減少 5000 倍。
• 異常安全：try/finally 確保資源釋放，錯誤可捕獲處理。
• 跨平台：Linux/Windows/macOS 同代碼運行，無 COM/ADO 依賴。
• 編碼自動適配：PHP 內部 UTF-8，讀寫保持原編碼位元組序列。

適用場景建議

• 日誌文件分割 (Nginx/Apache access.log, error.log)
• 巨量 CSV/TSV 數據預處理分片導入資料庫
• 郵件列表/字典文件分片分發
• 任何超過記憶體大小的文本文件切分需求