JAN コード/EANコードのバーコードをPython を使って作成する。無料でバーコードフォントのダウンロードが可能

import csv
import os

# 文字列を16進数に変換し、"0x" をつける
def string_to_hex(s):
    hex_value = ''.join([format(ord(c), 'x') for c in s])  # 文字列をUTF-8バイト列の16進数に変換
    return f"0x{hex_value}"  # "0x"を先頭につけて返す

# CSVからデータを読み込み、指定のフォルダにSVGファイルを生成
def generate_svg_from_csv(csv_file_path, output_folder):
    # フォルダが存在しない場合は作成する
    if not os.path.exists(output_folder):
        os.makedirs(output_folder)
    
    # CSVファイルを読み込み
    with open(csv_file_path, mode='r') as file:
        reader = csv.reader(file)
        for row in reader:
            binary_string = row[0]  # 1列目の文字列を取得
            hex_value = string_to_hex(row[1])  # 2列目の文字列を16進数に変換
            file_name = f"{hex_value}.svg"  # 変換した16進数をファイル名にする
            
            # SVGデータを生成
            svg_data = generate_svg_from_string(binary_string)
            
            # 出力ファイルのパスを作成
            file_path = os.path.join(output_folder, file_name)
            
            # SVGファイルとして保存
            with open(file_path, 'w') as svg_file:
                svg_file.write(svg_data)

# SVGデータを生成する関数
def generate_svg_from_string(binary_string, width=12, height=832):
    if  len(binary_string) != 7:
        height+=24
    # SVGのヘッダー部分
    svg_header = '<?xml version="1.0" standalone="no"?>\n'
    svg_open = '<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" version="1.1" viewBox="0 0 {} {}">\n'.format(len(binary_string) * width, 1024)
    svg_close = '</svg>'
    svg_path_open = '   <path fill="black"\n'
    svg_path_d = 'd="'
    
    # 文字列をループして「1」に対する黒の四角を作成
    for index, char in enumerate(binary_string):
        if char == '1':
            x_position = index * width
            svg_path_d += 'M{} 0v{}h{}v-{}h-{}z'.format(x_position, height, width, height, width)
    
    # pathタグを閉じる
    svg_path_d += '" />\n'
    
    # すべてのパーツを結合してSVGデータを完成
    svg_content = svg_header + svg_open + svg_path_open + svg_path_d + svg_close
    return svg_content

# 実行例: CSVファイルを読み込み、指定フォルダにSVGファイルを生成
csv_file_path = 'input.csv'  # CSVファイルのパス
output_folder = 'output_svgs'  # SVGファイルを保存するフォルダ
generate_svg_from_csv(csv_file_path, output_folder)

0001101,0
0100111,@
1110010,P
0011001,1
0110011,A
1100110,Q
0010011,2
0011011,B
1101100,R
0111101,3
0100001,C
1000010,S
0100011,4
0011101,D
1011100,T
0110001,5
0111001,E
1001110,U
0101111,6
0000101,F
1010000,V
0111011,7
0010001,G
1000100,W
0110111,8
0001001,H
1001000,X
0001011,9
0010111,I
1110100,Y
00000000000101,{
1010000000,}
01010,|
00000000000101,p
00000000000101,q
00000000000101,r
00000000000101,s
00000000000101,t
00000000000101,u
00000000000101,v
00000000000101,w
00000000000101,x
00000000000101,y

echo e %*
::@pwsh -NoProfile -Command  "& (Invoke-Expression -Command ('{' + (Get-Content %~f0 -Encoding Shift-JIS | Where-Object {$_.readcount -gt 9}| Out-String )+ '}'))" %*
::
@powershell -Command  "& (Invoke-Expression -Command ('{' + (Get-Content %~f0 | Where-Object {$_.readcount -gt 9}| Out-String )+ '}'))" %*
timeout /t 5&goto:eof




# フォルダパスの設定
$sourceFolder1 = "D:\WinPython\notebooks\output_svgs"
$sourceFolder2 = "D:\data2\input_s"
$outputFolder = "Y:\input_svg"

# ソースフォルダ1のテキストファイルを取得
$files = Get-ChildItem -Path $sourceFolder1 -Filter "*.*"

# 各ファイルを処理
foreach ($file in $files) {
    # ファイル名の取得
    $fileName = $file.Name

    # ソース1のファイルを読み込み、最後の行を削除
    $filePath1 = Join-Path $sourceFolder1 $fileName
    $content0 = Get-Content $filePath1
    $content1 = Get-Content $filePath1
    $content1 = $content1[0..($content1.Count - 2)]  # 最後の行を削除

    # ソース2の対応するファイルパスを設定
    $filePath2 = Join-Path $sourceFolder2 $fileName

    # ソース2のファイルが存在するか確認
    if (Test-Path $filePath2) {
        # ソース2のファイルを読み込み、5行目から最後まで取得
        $content2 = Get-Content $filePath2
        $content2 = $content2[4..($content2.Count - 1)]  # 5行目から最後まで

        # 両方のファイルの内容を結合
        $combinedContent = $content1 + $content2
    } else {
        # ソース2が存在しない場合はソース1のみ使用
        Write-Host "$fileName のソース2が見つかりませんでした。ソース1のみを使用します。"
        $combinedContent = $content0
    }

    # 出力フォルダに新しいファイルを保存
    $outputFilePath = Join-Path $outputFolder $fileName
    $combinedContent | Set-Content $outputFilePath
}

Write-Host "処理が完了しました。ファイルは $outputFolder に保存されました。"