ChatGTPに業務用ツールの性能改善をお願いしてみた

20230416  
0000000001
0000000002
0000000003
0000000004
0000000005
0000000005

Start-Transcript "log.txt"
	$fileName = Read-Host "ファイル名を指定してください（指定がない場合：dataFile_yyyyMMddHHmmssとなります）"
	$dataNum = Read-Host "データレコードの件数を指定してください"
	Measure-Command {
		if ([string]::IsNullOrEmpty($fileName)) {
			# 入力されたファイル名が空の時は、デフォルトのファイル名を付与
			$formatted_date = (Get-Date).ToString("yyyyMMddHHmmss")
			$fileName = ("dataFile_" + $formatted_date)
		}
		# ヘッダレコードを書き込み（実行時の日付 + 半角スペース2つ）
		$hed_date = (Get-Date).ToString("yyyyMMdd")
		Set-Content $fileName ($hed_date + "  ")
		# データレコードの書き込み（10桁の連番をデータレコード分インクリメントして設定）
		for ($i=0; $i -le $dataNum -1; $i++) {
			# を充てる（10桁で前0埋め）
			$acc = "{0:D10}" -f ([int]$i + 1)
			
			# データレコードの追記
			Add-Content $fileName ([string]$acc)
		}
		# トレーラレコードを書き込み
		$trNum = "{0:D10}" -f ([int]$dataNum)
		Add-Content $fileName ([string]$trNum)
	}
	pause
Stop-Transcript

Transcript started, output file is log.txt
Days              : 0
Hours             : 0
Minutes           : 16
Seconds           : 10
Milliseconds      : 139
Ticks             : 9701394544
TotalDays         : 0.0112284659074074
TotalHours        : 0.269483181777778
TotalMinutes      : 16.1689909066667
TotalSeconds      : 970.1394544
TotalMilliseconds : 970139.4544

Start-Transcript "log.txt"
	$fileName = Read-Host "ファイル名を指定してください（指定がない場合：dataFile_yyyyMMddHHmmssとなります）"
	$dataNum = Read-Host "データレコードの件数を指定してください"
	Measure-Command {
	    if ([string]::IsNullOrEmpty($fileName)) {
	        # 入力されたファイル名が空の時は、デフォルトのファイル名を付与
	        $formatted_date = (Get-Date).ToString("yyyyMMddHHmmss")
	        $fileName = ("dataFile_" + $formatted_date)
	    }
	    # ヘッダレコードを書き込み（実行時の日付 + 半角スペース2つ）
	    $hed_date = (Get-Date).ToString("yyyyMMdd")
	    $header = $hed_date + "  "
	    # StringBuilderを使用してデータレコードを連結
		$dataRecords = [System.Text.StringBuilder]::new()
		$acc = 1
		while ($acc -le $dataNum) {
		    $dataRecords.Append("{0:D10}" -f $acc)
		    $dataRecords.AppendLine()
		    $acc++
		}
	    
	    # トレーラレコードを連結
	    $trNum = "{0:D10}" -f [int]$dataNum
	    $trailer = [string]$trNum
	    # StreamWriterを使用してファイルに書き込む
	    $streamWriter = [System.IO.StreamWriter]::new($fileName)
	    $streamWriter.WriteLine($header)
	    $streamWriter.Write($dataRecords.ToString())
	    $streamWriter.WriteLine($trailer)
	    $streamWriter.Close()
	}
	pause
Stop-Transcript

Days              : 0
Hours             : 0
Minutes           : 0
Seconds           : 26
Milliseconds      : 825
Ticks             : 268253741
TotalDays         : 0.000310478866898148
TotalHours        : 0.00745149280555556
TotalMinutes      : 0.447089568333333
TotalSeconds      : 26.8253741
TotalMilliseconds : 26825.3741