コードが読めなくても大丈夫。AIと作るブックマーク整理スクリプト

powershell.exe -NoProfile -ExecutionPolicy Bypass -File "%~dp0Chrome_bookmarks.ps1"

$OutRoot = Join-Path ([Environment]::GetFolderPath("Desktop")) "Chrome_Bookmarks"
$BookmarkFile = Join-Path $env:LOCALAPPDATA "Google\Chrome\User Data\Default\Bookmarks"

New-Item -ItemType Directory -Force -Path $OutRoot | Out-Null

function Sanitize-FileName([string]$name) {
  $s = [string]$name
  $s = $s -replace '[\\/:*?"<>|]', ' '
  $s = $s -replace '\s+', ' '
  $s = $s.Trim()
  $s = $s.TrimEnd('.', ' ')
  if ([string]::IsNullOrWhiteSpace($s)) { $s = "NoTitle" }
  $upper = $s.ToUpperInvariant()
  $reserved = @("CON","PRN","AUX","NUL","COM1","COM2","COM3","COM4","COM5","COM6","COM7","COM8","COM9","LPT1","LPT2","LPT3","LPT4","LPT5","LPT6","LPT7","LPT8","LPT9")
  if ($reserved -contains $upper) { $s = "_" + $s }
  $maxLen = 120
  if ($s.Length -gt $maxLen) { $s = $s.Substring(0, $maxLen).TrimEnd('.', ' ') }
  $s
}

function New-UrlShortcut([string]$path, [string]$url) {
  $content = "[InternetShortcut]`r`nURL=$url`r`n"
  [System.IO.File]::WriteAllText($path, $content, [System.Text.Encoding]::ASCII)
}

function Walk($node) {
  if ($null -eq $node) { return }
  if ($node.PSObject.Properties.Name -contains "children") {
    foreach ($c in $node.children) { Walk $c }
    return
  }
  if ($node.PSObject.Properties.Name -contains "url") {
    $script:seq++
    $safe = Sanitize-FileName ([string]$node.name)
    $filename = "{0:D5}_{1}.url" -f $script:seq, $safe
    $fullpath = Join-Path $OutRoot $filename
    New-UrlShortcut -path $fullpath -url ([string]$node.url)
  }
}

if (!(Test-Path $BookmarkFile)) {
  Write-Host "Bookmarks not found: $BookmarkFile"
  exit 1
}

Get-ChildItem -Path $OutRoot -File -ErrorAction SilentlyContinue | Remove-Item -Force -ErrorAction SilentlyContinue

$script:seq = 0
$json = Get-Content -Path $BookmarkFile -Raw -Encoding UTF8 | ConvertFrom-Json
foreach ($rootName in $json.roots.PSObject.Properties.Name) {
  Walk $json.roots.$rootName
}

Write-Host "Done"

$OutRoot = Join-Path ([Environment]::GetFolderPath("Desktop")) "Chrome_Bookmarks"
$BookmarkFile = Join-Path $env:LOCALAPPDATA "Google\Chrome\User Data\Default\Bookmarks"

New-Item -ItemType Directory -Force -Path $OutRoot | Out-Null

以下の要件でPowerShellスクリプトを作成してください。

【目的】
Chromeのブックマークをデスクトップに.urlファイルとして一括出力する

【環境】
- Windows 11（Windows 10でも動作すること）
- Google Chrome（デフォルトプロファイル）

【入力】
- Chromeのブックマークファイル（JSON形式）
- 場所: %LOCALAPPDATA%\Google\Chrome\User Data\Default\Bookmarks

【出力】
- デスクトップに「Chrome_Bookmarks」フォルダを作成
- 各ブックマークを.urlファイル（インターネットショートカット）として出力
- ファイル名形式: 00001_サイト名.url（5桁連番）

【必須要件】
1. ファイル名のサニタイズ
   - Windowsで使えない文字（\ / : * ? " < > |）を除去または置換
   - 連続する空白を1つにまとめる
   - Windowsの予約語（CON, PRN, AUX, NUL, COM1-9, LPT1-9）を回避
   - ファイル名が長すぎる場合は120文字で切り詰め

2. フォルダ構造
   - ブックマークのフォルダ階層は無視してフラットに出力
   - 既存の出力ファイルは実行時にクリア

3. 安全性
   - 読み取り専用（Bookmarksファイルを変更しない）
   - 出力フォルダ以外には書き込まない

4. 文字コード
   - スクリプト内に日本語を使わない（文字化け防止）
   - メッセージは英語で出力

【実行方法】
- ダブルクリックで実行できるバッチファイル（.bat）も作成
- PowerShellの実行ポリシーをBypassして実行
- バッチファイルとスクリプトは同じフォルダに配置する想定