◆BEATLES全曲playlistとChatGPT

全曲スコア

全曲playlist:A(A Day In The Life)からY(Your Mother Should Know)まで

・・・

 BEATLSE全曲のバンドスコア。A～Y

BEATLES楽譜のPDF版を探していたところPDFは見つからなかったのですが、冒頭の写真の本を見つけ、アマゾンでポチってしまいました。
昔持っていたバンドスコアはすでに手放しており、 ふと欲しくなり。。

210曲余りがアルファベット順にならんでいます。

これを見たとき、「この並び順で全曲聞き通したい！」と思いました。

全部でほぼ10時間です。楽譜好き？なので、楽譜を追いながら。。。と
全曲入り、タイトルでソートされたPlaylistを作成することにしました。

• この本、目次はアルファベット順ですが本文は前置詞Aが省かれた順に並んでいます
• COMPLETE SCOREにウソはなく何とRevolution No.9も採譜されています
• 重すぎて、手で持って見るような本ではありません。机に置いて読む本です
• BEATLEの曲数は色々説がありますが、PASTMASTERに入っている Let It Be,Get Back,Love Me Do,ドイツ語曲2曲をカウントするかしないかですかね
• プレイリストはPastMastersのLet It Be,Get Back,Love Me Do [Single Version]および Hey Bulldog,All Together Now以外のYellow Submarine (songbook)の曲を省いた全213曲となっています。
  ドイツ語２曲は含んでいます。
• これらはCDをiTunesでリッピングしたもので、タイトルはネット上のDB(GraceNote)から取り込んだものです
• 綴りが違う"When I'm Sixty Four"(songbook) と"Love Me Do [Single Version]"(PastMasters)は特別に引数-omitで指定して省くようにしました
• アルバムRubber Soulのトラック番号は6-01という形で余計なdisk番号がついていましたのでは特別に引数-skip_disk_numで指定して省くようにしました
• 本の目次では"The Fool On The Hill"がなぜか"The"が抜けてFとして並んでいます。他のTheは抜けていません。

リストを載せます。２枚組のアルバムのtrack番号は"disk番号-track番号"の形式となっています。

no.	title	album	track

001	A Day In The Life	Sgt. Pepper's Lonely Hearts Club Band	13/13
002	A Hard Day's Night	A Hard Day's Night	01/13
003	A Taste Of Honey	Please Please Me	12/14
004	Across The Universe	Let It Be	03/12
005	Act Naturally	Help!	08/14
006	All I've Got To Do	With The Beatles	02/14
007	All My Loving	With The Beatles	03/14
008	All Together Now	Yellow Submarine（song book）	05/4
009	All You Need Is Love	Magical Mystery Tour	11/11
010	And I Love Her	A Hard Day's Night	05/13
011	And Your Bird Can Sing	Revolver	09/14
012	Anna (Go To Him)	Please Please Me	03/14
013	Another Girl	Help!	05/14
014	Any Time At All	A Hard Day's Night	08/13
015	Ask Me Why	Please Please Me	06/14
016	Baby It's You	Please Please Me	10/14
017	Baby You're A Rich Man	Magical Mystery Tour	10/11
018	Baby's In Black	Beatles For Sale	03/14
019	Back In The U.S.S.R.	The Beatles [White Album]	1-01/30
020	Bad Boy	Past Masters	1-16/29
021	Because	Abbey Road	08/17
022	Being For The Benefit Of Mr. Kite!	Sgt. Pepper's Lonely Hearts Club Band	07/13
023	Birthday	The Beatles [White Album]	2-01/30
024	Blackbird	The Beatles [White Album]	1-11/30
025	Blue Jay Way	Magical Mystery Tour	04/11
026	Boys	Please Please Me	05/14
027	Can't Buy Me Love	A Hard Day's Night	07/13
028	Carry That Weight	Abbey Road	15/17
029	Chains	Please Please Me	04/14
030	Come Together	Abbey Road	01/17
031	Cry Baby Cry	The Beatles [White Album]	2-11/30
032	Day Tripper	Past Masters	2-01/29
033	Dear Prudence	The Beatles [White Album]	1-02/30
034	Devil In Her Heart	With The Beatles	12/14
035	Dig A Pony	Let It Be	02/12
036	Dig It	Let It Be	05/12
037	Dizzy Miss Lizzy	Help!	14/14
038	Do You Want To Know A Secret	Please Please Me	11/14
039	Doctor Robert	Revolver	11/14
040	Don't Bother Me	With The Beatles	04/14
041	Don't Let Me Down	Past Masters	2-10/29
042	Don't Pass Me By	The Beatles [White Album]	1-14/30
043	Drive My Car	Rubber Soul	01/14
044	Eight Days A Week	Beatles For Sale	08/14
045	Eleanor Rigby	Revolver	02/14
046	Every Little Thing	Beatles For Sale	11/14
047	Everybody's Got Something To Hide Except Me And My Monkey	The Beatles [White Album]	2-04/30
048	Everybody's Trying To Be My Baby	Beatles For Sale	14/14
049	Fixing A Hole	Sgt. Pepper's Lonely Hearts Club Band	05/13
050	Flying	Magical Mystery Tour	03/11
051	For No One	Revolver	10/14
052	For You Blue	Let It Be	11/12
053	From Me To You	Past Masters	1-02/29
054	Get Back	Let It Be	12/12
055	Getting Better	Sgt. Pepper's Lonely Hearts Club Band	04/13
056	Girl	Rubber Soul	09/14
057	Glass Onion	The Beatles [White Album]	1-03/30
058	Golden Slumbers	Abbey Road	14/17
059	Good Day Sunshine	Revolver	08/14
060	Good Morning Good Morning	Sgt. Pepper's Lonely Hearts Club Band	11/13
061	Good Night	The Beatles [White Album]	2-13/30
062	Got To Get You Into My Life	Revolver	13/14
063	Happiness Is A Warm Gun	The Beatles [White Album]	1-08/30
064	Hello Goodbye	Magical Mystery Tour	07/11
065	Help!	Help!	01/14
066	Helter Skelter	The Beatles [White Album]	2-06/30
067	Her Majesty	Abbey Road	17/17
068	Here Comes The Sun	Abbey Road	07/17
069	Here, There And Everywhere	Revolver	05/14
070	Hey Bulldog	Yellow Submarine（song book）	02/4
071	Hey Jude	Past Masters	2-07/29
072	Hold Me Tight	With The Beatles	09/14
073	Honey Don't	Beatles For Sale	10/14
074	Honey Pie	The Beatles [White Album]	2-09/30
075	I Am The Walrus	Magical Mystery Tour	06/11
076	I Call Your Name	Past Masters	1-11/29
077	I Don't Want To Spoil The Party	Beatles For Sale	12/14
078	I Feel Fine	Past Masters	1-14/29
079	I Me Mine	Let It Be	04/12
080	I Need You	Help!	04/14
081	I Saw Her Standing There	Please Please Me	01/14
082	I Should Have Known Better	A Hard Day's Night	02/13
083	I Wanna Be Your Man	With The Beatles	11/14
084	I Want To Hold Your Hand	Past Masters	1-06/29
085	I Want To Tell You	Revolver	12/14
086	I Want You (She's So Heavy)	Abbey Road	06/17
087	I Will	The Beatles [White Album]	1-16/30
088	I'll Be Back	A Hard Day's Night	13/13
089	I'll Cry Instead	A Hard Day's Night	09/13
090	I'll Follow The Sun	Beatles For Sale	05/14
091	I'll Get You	Past Masters	1-05/29
092	I'm A Loser	Beatles For Sale	02/14
093	I'm Down	Past Masters	1-18/29
094	I'm Happy Just To Dance With You	A Hard Day's Night	04/13
095	I'm Looking Through You	Rubber Soul	10/14
096	I'm Only Sleeping	Revolver	03/14
097	I'm So Tired	The Beatles [White Album]	1-10/30
098	I've Got A Feeling	Let It Be	08/12
099	I've Just Seen A Face	Help!	12/14
100	If I Fell	A Hard Day's Night	03/13
101	If I Needed Someone	Rubber Soul	13/14
102	In My Life	Rubber Soul	11/14
103	It Won't Be Long	With The Beatles	01/14
104	It's All Too Much	Yellow Submarine（song book）	15/4
105	It's Only Love	Help!	09/14
106	Julia	The Beatles [White Album]	1-17/30
107	Kansas City / Hey-Hey-Hey-Hey!	Beatles For Sale	07/14
108	Komm, Gib Mir Deine Hand	Past Masters	1-08/29
109	Lady Madonna	Past Masters	2-05/29
110	Let It Be	Let It Be	06/12
111	Little Child	With The Beatles	05/14
112	Long Tall Sally	Past Masters	1-10/29
113	Long, Long, Long	The Beatles [White Album]	2-07/30
114	Love Me Do	Please Please Me	08/14
115	Love You To	Revolver	04/14
116	Lovely Rita	Sgt. Pepper's Lonely Hearts Club Band	10/13
117	Lucy In The Sky With Diamonds	Sgt. Pepper's Lonely Hearts Club Band	03/13
118	Maggie Mae	Let It Be	07/12
119	Magical Mystery Tour	Magical Mystery Tour	01/11
120	Martha My Dear	The Beatles [White Album]	1-09/30
121	Matchbox	Past Masters	1-13/29
122	Maxwell's Silver Hammer	Abbey Road	03/17
123	Mean Mr. Mustard	Abbey Road	11/17
124	Michelle	Rubber Soul	07/14
125	Misery	Please Please Me	02/14
126	Money (That's What I Want)	With The Beatles	14/14
127	Mother Nature's Son	The Beatles [White Album]	2-03/30
128	Mr. Moonlight	Beatles For Sale	06/14
129	No Reply	Beatles For Sale	01/14
130	Norwegian Wood (This Bird Has Flown)	Rubber Soul	02/14
131	Not A Second Time	With The Beatles	13/14
132	Nowhere Man	Rubber Soul	04/14
133	Ob-La-Di, Ob-La-Da	The Beatles [White Album]	1-04/30
134	Octopus's Garden	Abbey Road	05/17
135	Oh! Darling	Abbey Road	04/17
136	Old Brown Shoe	Past Masters	2-12/29
137	One After 909	Let It Be	09/12
138	Only A Northern Song	Yellow Submarine（song book）	11/4
139	P.S. I Love You	Please Please Me	09/14
140	Paperback Writer	Past Masters	2-03/29
141	Penny Lane	Magical Mystery Tour	09/11
142	Piggies	The Beatles [White Album]	1-12/30
143	Please Mister Postman	With The Beatles	07/14
144	Please Please Me	Please Please Me	07/14
145	Polythene Pam	Abbey Road	12/17
146	Rain	Past Masters	2-04/29
147	Revolution	Past Masters	2-08/29
148	Revolution 1	The Beatles [White Album]	2-08/30
149	Revolution 9	The Beatles [White Album]	2-12/30
150	Rock And Roll Music	Beatles For Sale	04/14
151	Rocky Racoon	The Beatles [White Album]	1-13/30
152	Roll Over Beethoven	With The Beatles	08/14
153	Run For Your Life	Rubber Soul	14/14
154	Savoy Truffle	The Beatles [White Album]	2-10/30
155	Sexy Sadie	The Beatles [White Album]	2-05/30
156	Sgt. Pepper's Lonely Hearts Club Band	Sgt. Pepper's Lonely Hearts Club Band	01/13
157	Sgt. Pepper's Lonely Hearts Club Band (Reprise)	Sgt. Pepper's Lonely Hearts Club Band	12/13
158	She Came In Through The Bathroom Window	Abbey Road	13/17
159	She Loves You	Past Masters	1-04/29
160	She Said She Said	Revolver	07/14
161	She's A Woman	Past Masters	1-15/29
162	She's Leaving Home	Sgt. Pepper's Lonely Hearts Club Band	06/13
163	Sie Leibt Dich	Past Masters	1-09/29
164	Slow Down	Past Masters	1-12/29
165	Something	Abbey Road	02/17
166	Strawberry Fields Forever	Magical Mystery Tour	08/11
167	Sun King	Abbey Road	10/17
168	Taxman	Revolver	01/14
169	Tell Me What You See	Help!	11/14
170	Tell Me Why	A Hard Day's Night	06/13
171	Thank You Girl	Past Masters	1-03/29
172	The Ballad Of John And Yoko	Past Masters	2-11/29
173	The Continuing Story Of Bungalow Bill	The Beatles [White Album]	1-06/30
174	The End	Abbey Road	16/17
175	The Fool On The Hill	Magical Mystery Tour	02/11
176	The Inner Light	Past Masters	2-06/29
177	The Long And Winding Road	Let It Be	10/12
178	The Night Before	Help!	02/14
179	The Word	Rubber Soul	06/14
180	There's A Place	Please Please Me	13/14
181	Things We Said Today	A Hard Day's Night	10/13
182	Think For Yourself	Rubber Soul	05/14
183	This Boy	Past Masters	1-07/29
184	Ticket To Ride	Help!	07/14
185	Till There Was You	With The Beatles	06/14
186	Tomorrow Never Knows	Revolver	14/14
187	Twist And Shout	Please Please Me	14/14
188	Two Of Us	Let It Be	01/12
189	Wait	Rubber Soul	12/14
190	We Can Work It Out	Past Masters	2-02/29
191	What Goes On	Rubber Soul	08/14
192	What You're Doing	Beatles For Sale	13/14
193	When I Get Home	A Hard Day's Night	11/13
194	When I'm Sixty-Four	Sgt. Pepper's Lonely Hearts Club Band	09/13
195	While My Guitar Gently Weeps	The Beatles [White Album]	1-07/30
196	Why Don't We Do It In The Road?	The Beatles [White Album]	1-15/30
197	Wild Honey Pie	The Beatles [White Album]	1-05/30
198	With A Little Help From My Friends	Sgt. Pepper's Lonely Hearts Club Band	02/13
199	Within You Without You	Sgt. Pepper's Lonely Hearts Club Band	08/13
200	Words Of Love	Beatles For Sale	09/14
201	Yellow Submarine	Revolver	06/14
202	Yer Blues	The Beatles [White Album]	2-02/30
203	Yes It Is	Past Masters	1-17/29
204	Yesterday	Help!	13/14
205	You Can't Do That	A Hard Day's Night	12/13
206	You Know My Name (Look Up The Number)	Past Masters	2-15/29
207	You Like Me Too Much	Help!	10/14
208	You Never Give Me Your Money	Abbey Road	09/17
209	You Really Got A Hold On Me	With The Beatles	10/14
210	You Won't See Me	Rubber Soul	03/14
211	You're Going To Lose That Girl	Help!	06/14
212	You've Got To Hide Your Love Away	Help!	03/14
213	Your Mother Should Know	Magical Mystery Tour	05/11

 楽曲データは.m4a。それをplaylistに取り込むプログラムをChatGPTで

今回はアルバム指定でアルバム内の曲を放り込むバッチ式のちょっと特殊用途プログラムです。
今回の機構を元に、GUIを付けて曲選択でプレイリストを作成できる普通のplaylist作成プログラムを作ろうと考えています。
これまでiTunesのplaylist作成機能を使っていましたが、iTunesではハイレゾを認識できないので、playlistにはハイレゾを入れていませんでした。ハイレゾもplaylistに入れられるようになります。

m4aフォーマットファイルを解析しタイトル名を取得することはJavaで作成したものがあります。 しかし、今回playlist作成プログラムをchatGPTにすべてやらせてみようと考えました。
動作確認してありませんが、コードとしてはflacにも対応しています。

次のコードが得られました。
簡単に動くように見えたのですが、重複ファイルや指定ファイルのomitが論理がおかしく、デバグのためにリスト表示を行ったら、表示論理も変になり、結構大変でした。
最後のif detail:ブロックはその後の最終結果表示が時々else:に置かれてしまい、手作業で作成したコードを、壊れるたびに指示しました。
インデントも３を指示しているのに時々４になる等、ついさっきの記憶もないのか、という状態となり、安定したコードを得ることは困難でした。
なんだかんだで少し肥大化してしまいました。

import os import argparse from mutagen.mp4 import MP4 from mutagen.flac import FLAC from typing import List, Tuple, Dict, Optional def get_title_from_audio_file(audio_file:str,skip_disk_num:List[str])\ -> Tuple[str, str, str]: title: str = "" album: str = "" track_num: str = "" try: if audio_file.endswith(".m4a"): audio: MP4 = MP4(audio_file) title = audio.get("\xa9nam", [""])[0] album = audio.get("\xa9alb", [""])[0] track_num_data: List[str] = audio.get("\xa9trk", []) #if title == "When I'm Sixty-Four": # print(f"{title} track_num_data:{track_num_data}"); if track_num_data and track_num_data[0]: track_num = track_num_data[0].split('/')[0] elif audio_file.endswith(".flac"): audio: FLAC = FLAC(audio_file) title = audio.get("title", [""])[0] album = audio.get("album", [""])[0] track_num_data: List[str] = audio.get("tracknumber", []) if track_num_data and track_num_data[0]: track_num = track_num_data[0].split('/')[0] # ファイル名からトラック番号を抽出 if not track_num: file_name: str = os.path.basename(audio_file) track_num=file_name.split()[0] if album in skip_disk_num: # dd-tt => tt parts: List[str] = file_name.split("-") if len(parts) > 1: track_num = parts[1].strip().split()[0] except Exception as e: print(f"エラー: {e}") return title, album, track_num def get_audio_files_info(directories:List[str],dup:bool,omit_titles:List[str],skip_disk_num:List[str] ) -> Tuple[List[Tuple[str, str, str, str]], List[str], List[str]]: audio_files_info: List[Tuple[str, str, str, str]] = [] omitted_titles: List[str] = [] omitted_omit_titles: List[str] = [] checked_files_count: int = 0 title_mapping: Dict[str, str] = {} # タイトル名とファイルパスのマッピング # 指定されたディレクトリ内のファイルを走査 for directory in directories: for root, _, filenames in os.walk(directory): for filename in filenames: checked_files_count += 1 if filename.endswith((".m4a", ".flac")): file_path: str = os.path.join(root, filename).replace("\\", "/") # タイトルを取得 title, album, track_num = get_title_from_audio_file(file_path,skip_disk_num) # タイトルが省略対象でないことを確認 if title not in omit_titles: # 重複をチェック if not dup: if title in title_mapping: omitted_titles.append(title) omitted_omit_titles.append(file_path) continue else: title_mapping[title] = file_path audio_files_info.append((file_path, title, album, track_num)) else: omitted_titles.append(title) omitted_omit_titles.append(file_path) # タイトル名でソート audio_files_info.sort(key=lambda x: x[1]) return audio_files_info, omitted_titles, omitted_omit_titles, checked_files_count def create_m3u8_playlist(audio_files_info: List[Tuple[str, str, str, str]], playlist_path: str) -> None: with open(playlist_path, "w", encoding="utf-8", newline='\n') as f: f.write("#EXTM3U\n") for num, (file_path, title, album, track_num) in enumerate(audio_files_info, start=1): total_tracks: int = len([info for info in audio_files_info if info[2] == album]) print(f"{num:03d}: {title},{album},{track_num if track_num else 'N/A'}/{total_tracks}") f.write(f"#EXTINF:-1,{title}\n") f.write(file_path + "\n") def main() -> None: parser: argparse.ArgumentParser = argparse.ArgumentParser(description="Create an .m3u8 playlist from .m4a or .flac files in directories") parser.add_argument("-dir", "--directories", type=str, nargs='+', required=True, help="Directories containing .m4a or .flac files") parser.add_argument("-p", "--playlist", type=str, required=True, help="Path to save the playlist file") parser.add_argument("-dup", action="store_true", help="Allow duplicate titles if specified") parser.add_argument("-omit", "--omit_titles", type=str, nargs='+', default=[], help="Titles to omit from the playlist") parser.add_argument("-skip_disk_num","-skip_disk_num",type=str, nargs='+', default=[], help="skip disknumber part;06-12 => 12") parser.add_argument("-detail", action="store_true", help="Print details") args: argparse.Namespace = parser.parse_args() directories: List[str] = args.directories playlist_path: str = args.playlist dup: bool = args.dup omit_titles: List[str] = args.omit_titles skip_disk_num: List[str] = args.skip_disk_num detail: bool = args.detail audio_files_info, omitted_titles, omitted_omit_titles, checked_files_count \ = get_audio_files_info(directories, dup, omit_titles,skip_disk_num) create_m3u8_playlist(audio_files_info, playlist_path) playlist_count: int = len(audio_files_info) if detail: print(f"チェックしたファイル数: {checked_files_count}") print(f"omitしたファイル数: {len(omitted_omit_titles)}") if omitted_omit_titles: print("以下のタイトルがプレイリストに追加されませんでした:") for num, (title, path) in enumerate(zip(omitted_titles, omitted_omit_titles), start=1): print(f"{num}:{title},{path}") print("以下の曲がプレイリストに追加されました:") print("no,title,album,track") for num, (file_path, title, album, track_num) in enumerate(audio_files_info, start=1): total_tracks: int = len([info for info in audio_files_info if info[2] == album]) print(f'\'{num:03d},"{title}","{album}",\'{track_num}/{total_tracks}') print(f"プレイリスト全{playlist_count}曲が {playlist_path} に作成されました。")
コピー

-dirの後にプレイリストに入れたい.m4aのあるフォルダを複数指定し、-pで出力するプレイリストファイルを指定します。

基本的にプレイリストファイルを置くフォルダに移動して、そこの相対で-dir指定を行います。

今回のBEATLES全曲playlist化は次のバッチで動かしました。

:: Shift-JIS CR/LF
@echo off
set "THIS_DIR=%~dp0"
cd %THIS_DIR%
if ERRORLEVEL 1 ( echo "SOME ERROR OCCURED";pause;exit 1)
pip install SpeechRecognition
pip install mutagen
cd /d G:\MUSIC
::if ERRORLEVEL 1 ( echo "SOME ERROR OCCURED";pause;exit 1)

python %THIS_DIR%makePlaylist.py -dir ^
   "ビートルズ/A Hard Day's Night" "ビートルズ/Abbey Road" "ビートルズ/Beatles For Sale" ^
   "ビートルズ/Help!"  "ビートルズ/Let It Be" "ビートルズ/Magical Mystery Tour" ^
   "ビートルズ/Past Masters"  "ビートルズ/Please Please Me" "ビートルズ/Revolver" ^
   "ビートルズ/Rubber Soul"  "ビートルズ/Sgt. Pepper's Lonely Hearts Club Band" ^
   "ビートルズ/The Beatles [White Album]" ^
   "ビートルズ/With The Beatles"  "ビートルズ/Yellow Submarine（song book）" ^
   -omit "When I'm Sixty Four" "Love Me Do [Single Version]" ^
   -skip_disk_num "Rubber Soul" ^
   -detail ^
   -p "ビートルズ全曲.m3u8" 
pause

自動で排除できなかった"When I'm Sixty Four"と"Love Me Do [Single Version]"は-omitオプションで対処しました。

次の結果が得られました。

チェックしたファイル数: 228
omitしたファイル数: 15
以下のタイトルがプレイリストに追加されませんでした:
1:Love Me Do [Single Version],ビートルズ/Past Masters/1-01 Love Me Do [Single Version].m4a
2:Get Back,ビートルズ/Past Masters/2-09 Get Back.m4a
3:Across The Universe,ビートルズ/Past Masters/2-13 Across The Universe.m4a
4:Let It Be,ビートルズ/Past Masters/2-14 Let It Be.m4a
5:Yellow Submarine,ビートルズ/Yellow Submarine（song book）/01 Yellow Submarine.m4a
6:Eleanor Rigby,ビートルズ/Yellow Submarine（song book）/03 Eleanor Rigby.m4a
7:Love You To,ビートルズ/Yellow Submarine（song book）/04 Love You To.m4a
8:Lucy In The Sky With Diamonds,ビートルズ/Yellow Submarine（song book）/06 Lucy In The Sky With Diamonds.m4a
9:Think For Yourself,ビートルズ/Yellow Submarine（song book）/07 Think For Yourself.m4a
10:Sgt. Pepper's Lonely Hearts Club Band,ビートルズ/Yellow Submarine（song book）/08 Sgt. Pepper's Lonely Hearts Club.m4a
11:With A Little Help From My Friends,ビートルズ/Yellow Submarine（song book）/09 With A Little Help From My Friend.m4a
12:Baby You're A Rich Man,ビートルズ/Yellow Submarine（song book）/10 Baby You're A Rich Man.m4a
13:All You Need Is Love,ビートルズ/Yellow Submarine（song book）/12 All You Need Is Love.m4a
14:When I'm Sixty Four,ビートルズ/Yellow Submarine（song book）/13 When I'm Sixty Four.m4a
15:Nowhere Man,ビートルズ/Yellow Submarine（song book）/14 Nowhere Man.m4a
以下の曲がプレイリストに追加されました:
no,title,album,track
'001,"A Day In The Life","Sgt. Pepper's Lonely Hearts Club Band",'13/13
'002,"A Hard Day's Night","A Hard Day's Night",'01/13
'003,"A Taste Of Honey","Please Please Me",'12/14
'004,"Across The Universe","Let It Be",'03/12
～省略～
'212,"You've Got To Hide Your Love Away","Help!",'03/14
'213,"Your Mother Should Know","Magical Mystery Tour",'05/11
プレイリスト全213曲が ビートルズ全曲.m3u8 に作成されました。

 CSV⇒<table><tr><td>変換プログラムをChatGPTで

makePlaylist.pyが出力した曲名リスト部をhtmlの<table>の一部の形に変換するプログラムをChatGPTで作成しました。

前項に載せた

no,title,album,track
'001,"A Day In The Life","Sgt. Pepper's Lonely Hearts Club Band",'13/13
'002,"A Hard Day's Night","A Hard Day's Night",'01/13
'003,"A Taste Of Honey","Please Please Me",'12/14
'004,"Across The Universe","Let It Be",'03/12
・・・

から次のようなコードを作成します。

<div class="scrollable-table">
   <table>
      <thead>
         <tr>
            <th>no</th>
            <th>title</th>
            <th>album</th>
            <th>track</th>
         </tr>
      </thead>
      <tbody>
         <tr>
            <td>001</td>
            <td>A Day In The Life</td>
            <td>Sgt. Pepper's Lonely Hearts Club Band</td>
            <td>13/13</td>
         </tr>
         <tr>
            <td>002</td>
            <td>A Hard Day's Night</td>
            <td>A Hard Day's Night</td>
            <td>01/13</td>
         </tr>
         <tr>
            <td>003</td>
            <td>A Taste Of Honey</td>
            <td>Please Please Me</td>
            <td>12/14</td>
         </tr>
         <tr>
            <td>004</td>
            <td>Across The Universe</td>
            <td>Let It Be</td>
            <td>03/12</td>
         </tr>
・・・
      </tbody>
   </table>
</div>

class "scrollable-table"は別途ChatGPTで作成したヘッダ部が固定でデータ部のみスクロールするcss定義のものだったのですが、まともな動作に至りませんでしたので、結局使いませんでした。

この程度の単純なものなら自分の手を煩わす必要はなさそうです。

ChatGPTが作成したプログラムを示します。

import csv import sys def generate_scrollable_table_from_csv(csv_data: str) -> str: # CSVデータをリストに変換 csv_lines: List[str] = csv_data.strip().split('\n') csv_reader: csv.reader = csv.reader(csv_lines) # HTMLテーブルの生成 table_html: str = '<div class="scrollable-table">\n' table_html += ' <table>\n' # ヘッダー行の追加 table_html += ' <thead>\n' table_html += ' <tr>\n' header_row: List[str] = next(csv_reader) for item in header_row: if item.startswith("'"): item = item[1:] # 先頭のシングルクオートを省略 if item.startswith('"') and item.endswith('"'): item = item[1:-1] # ダブルクオートで囲まれた場合、先頭と末尾のダブルクオートを省略 table_html += f' <th>{item}</th>\n' table_html += ' </tr>\n' table_html += ' </thead>\n' # データ行の追加 table_html += ' <tbody>\n' for row in csv_reader: table_html += ' <tr>\n' for item in row: if item.startswith("'"): item = item[1:] # 先頭のシングルクオートを省略 if item.startswith('"') and item.endswith('"'): item = item[1:-1] # ダブルクオートで囲まれた場合、先頭と末尾のダブルクオートを省略 table_html += f' <td>{item}</td>\n' table_html += ' </tr>\n' table_html += ' </tbody>\n' table_html += ' </table>\n' table_html += '</div>' return table_html if __name__ == "__main__": # 標準入力からCSVデータを受け取る csv_data: str = sys.stdin.read() # CSVデータからHTMLを生成 html_content: str = generate_scrollable_table_from_csv(csv_data) # HTMLを標準出力に書き出す print(html_content)
コピー

 ヘッダ部固定でデータ部のみスクロールするHTMLパーツ;ChatGPT断念

ヘッダ部固定でデータ部のみスクロールする<table>の作成をChatGPTでトライしたのですが、断念しました。

この記事の楽曲リストは ◇データ部だけスクロールするTABLE；HTMLメモ を利用しました。

ChatCPTの<table><tr><td>生成プログラムに手を入れ、<tr><td>部のみ作成するようにし、手作業ではめ込みました。

次の形となっています。

<style type="text/css">
table.tFixHead {border:1px solid #000000; border-collapse:collapse;table-layout:fixed;font-size:12px;}
table.tFixHead td{border:1px solid #000000;}
table.tFixHead th{border:1px solid #000000;font-size:16px;vertical-align:middle;
           /*background-color:#FFBB88;color:#000000;}*/
           background-color:#000055;color:#FFFFFF;}
table.tFixHead tr:nth-child(odd)  td{background-color:#C8C8E8;color:#000000;}
table.tFixHead tr:nth-child(even) td{background-color:#E8E8FF;color:#000000;}
table.tFixHead tr td:last-child {text-align: right;}
</style>
<!-- ========== テーブル全体を表す div ========== -->
<div style="width:100%; border-style:solid;border-width:1px;">
<!-- ===== ヘッダ部(THEAD相当)を表す div ===== -->
<div style="width:100%;overflow-y:scroll;overflow-x:hidden;" >
<table class=tFixHead style="width:100%">
  <colgroup>
    <col style='width:2.5em'>
    <col style='width:50%'>
    <col style='width:50%'>
    <col style='width:4.5em'>
  </colgroup>
<thead>
 <tr>
 <th style="border-right-color: white;text-align: center;">no.</th>
 <th style="border-right-color: white;text-align: center;">title</th>
 <th style="border-right-color: white;text-align: center;">album</th>
 <th style="text-align: center;">track</th>
 <th></th>
 </tr>
</thead>
</table>
</div>
<!-- ===== ボディー部(TBODY相当)を表す div ===== -->
<div style="height:40em; width:100%;overflow-y:scroll;overflow-x:hidden;background:#BBBBBB">
<table class=tFixHead style="width:100%">
  <colgroup>
    <col style='width:2.5em'>
    <col style='width:50%'>
    <col style='width:50%'>
    <col style='width:4.5em;text-align: right;'>
  </colgroup>
<tbody>

         <tr>
            <td>001</td>
            <td>A Day In The Life</td>
            <td>Sgt. Pepper's Lonely Hearts Club Band</td>
            <td>13/13</td>
         </tr>
         <tr>
            <td>002</td>
            <td>A Hard Day's Night</td>
            <td>A Hard Day's Night</td>
            <td>01/13</td>
         </tr>
・・・
         <tr>
            <td>213</td>
            <td>Your Mother Should Know</td>
            <td>Magical Mystery Tour</td>
            <td>05/11</td>
         </tr>
</tbody>
</table>
</div>

 冒頭の写真レイアウト

冒頭の写真レイアウトはChatGPTでは得ることができず、<table>と<center>を使って手作業で書きました。 ChatGPTはWEBの破壊者HTML5の仕様を重視するようで、こういう簡単なことはできないようです。

このサンプルをChatGPTに示して<table><center>を使わずに実現するよう指示してみたのですが、ダメでした。
ま、これはChatGPTのせいではなくHTML5の馬鹿げた思想のせいですね。