norman-bury--research-writing-skill
wehub-resource-sync
73 行
2.6 KiB
PowerShell
73 行
2.6 KiB
PowerShell
param(
|
|
[Parameter(Mandatory = $true)]
|
|
[string]$FilePath
|
|
)
|
|
|
|
$ErrorActionPreference = "Stop"
|
|
|
|
if (-not (Test-Path -LiteralPath $FilePath)) {
|
|
Write-Host "File not found: $FilePath"
|
|
exit 1
|
|
}
|
|
|
|
function Show-Matches {
|
|
param(
|
|
[string]$Title,
|
|
[string]$Pattern
|
|
)
|
|
|
|
Write-Host ""
|
|
Write-Host $Title
|
|
|
|
$matches = Select-String -Path $FilePath -Pattern $Pattern
|
|
if ($null -eq $matches) {
|
|
Write-Host "OK"
|
|
} else {
|
|
foreach ($m in $matches) {
|
|
Write-Host ("{0}:{1}" -f $m.LineNumber, $m.Line)
|
|
}
|
|
}
|
|
}
|
|
|
|
Write-Host ("Checking: {0}" -f $FilePath)
|
|
|
|
$bannedChineseTransitions = '\u9996\u5148|\u5176\u6b21|\u6700\u540e|\u6b64\u5916|\u53e6\u5916|\u63a5\u4e0b\u6765|\u503c\u5f97\u6ce8\u610f\u7684\u662f|\u9700\u8981\u6307\u51fa\u7684\u662f|\u91cd\u8981\u7684\u662f|\u5fc5\u987b\u5f3a\u8c03\u7684\u662f'
|
|
$subjectiveFirstPerson = '\u6211\u8ba4\u4e3a|\u6211\u89c9\u5f97|\u6211\u4e2a\u4eba(\u8ba4\u4e3a|\u770b\u6cd5)|\u6211\u7684\u7814\u7a76|in my opinion|i believe'
|
|
$processLeakage = '\u5b9e\u9a8c\u76ee\u7684|\u8868\u4f4d|\u56fe\u4f4d|\u56de\u586b\u6a21\u677f|\u8ba8\u8bba\u63d0\u793a|\u8bf4\u660e\uff1a\u672c\u7ae0\u8282\u4e3a\u7ed3\u679c\u5360\u4f4d\u7248\u672c|\u8bf7\u7528\u6237|\u7528\u6237\u66ff\u6362|\u5199\u4f5c\u8981\u6c42|\u4fee\u6539\u8981\u6c42'
|
|
|
|
Show-Matches "[1] Unnecessary bold markers (** or __):" '\*\*|__'
|
|
Show-Matches "[2] List lines (body prose should use lists cautiously):" '^\s*([-*+]\s+|[0-9]+\.\s+)'
|
|
Show-Matches "[3] Banned transition/emphasis phrases:" $bannedChineseTransitions
|
|
Show-Matches "[4] Banned English transition/emphasis phrases:" 'first and foremost|to begin with|moreover|furthermore|last but not least|it is worth noting that|importantly'
|
|
Show-Matches "[5] Subjective first-person phrases:" $subjectiveFirstPerson
|
|
Show-Matches "[5b] Process or user-instruction text leaked into body:" $processLeakage
|
|
|
|
Write-Host ""
|
|
Write-Host "[6] Consecutive non-empty lines (manual paragraph-spacing review):"
|
|
|
|
$lines = Get-Content -LiteralPath $FilePath -Encoding UTF8
|
|
for ($i = 1; $i -lt $lines.Count; $i++) {
|
|
$prev = $lines[$i - 1]
|
|
$curr = $lines[$i]
|
|
|
|
$isCandidate = (
|
|
$prev -notmatch '^\s*$' -and
|
|
$curr -notmatch '^\s*$' -and
|
|
$prev -notmatch '^\s*```' -and
|
|
$curr -notmatch '^\s*```' -and
|
|
$prev -notmatch '^\s*[#>\-]' -and
|
|
$curr -notmatch '^\s*[#>\-]' -and
|
|
$prev -notmatch '^\s*[0-9]+\.' -and
|
|
$curr -notmatch '^\s*[0-9]+\.'
|
|
)
|
|
|
|
if ($isCandidate) {
|
|
Write-Host ("{0}:{1}" -f $i, $prev)
|
|
Write-Host ("{0}:{1}" -f ($i + 1), $curr)
|
|
Write-Host "---"
|
|
}
|
|
}
|
|
|
|
Write-Host ""
|
|
Write-Host "Done."
|