ref;value;datasheet;footprint
C1;0,47 мк;;C_0805;1
C2..C8;0,1 мк;;C_0805;7
C9,C10;0,47 мк;;C_0805;2
C11;0,1 мк;;C_0805;1
C12;0,47 мк;;C_0805;1
C13..C20;0,1 мк;;C_0805;8
C21,C22;22;;C_0805;2
C23;0,47 мк;;C_0805;1
C24,C25;10 мк;;C_2220;2
C26;0,1 мк;;C_1206;1
C27;22 мк;;C_1210;1
C28;0.1 мк;;C_0805;1
C29..C32;0,1 мк;;C_0805;4
C33;330;;C_0805;1
R1..R4;4,7 к;;R_0805;4
R5..R8;1 к;;R_0805;4
R9..R32;4,7 к;;R_0805;24
R33..R64;1 к;;R_0805;32
R65..R68;100 к;;R_0805;4
R69..R72;180;;R_0805;4
R73;10;;R_0805;1
R74..R83;4,7 к;;R_0805;10
R84..R93;1 к;;R_0805;10
R94;10 к;;R_0805;1
R95;10;;R_0805;1
R96;300;;R_0805;1
R97;10;;R_1206;1
R98,R99;6,8 к;;R_0805;2
R100,R101;470;;R_0805;2
VD9;SMAJ26A;;DO-214AC_s;1

#!/usr/bin/perl

$cc0402 = " ±20% 6,3V X7R 0402";
$cc0603 = " ±20% 10V X7R 0603";
$ccx2y0603 = " ±20% 10V X7R X2Y 0603";
$cc0805 = " ±20% 25V X7R 0805";
$cc1206 = " ±20% 16V X7R 1206";
$cc1210 = " ±20% 25V X7R 1210";

#print "Text Notes " . $x . " " . $y . " 0" . " 60 ~ 0\n";

$y1 = 800; # first row
$x1 = 9100; # first col
$ym = 16000; # end row
# +700 - desc
# +5400 - qty
# +7400 - two col
# +14800 - 3 col

$yp = $y1;
$xp = $x1;

$b = "";

$yp += 300;

while (<>) {
chomp;
($pos, $nom, $typ, $pac, $qty) = split(";");
$out = "";
if ($pos =~ /^C/) {
$out = "";
if ($nom =~ /,/) {
$out = $out . $nom . " мкФ";
} else {
$out = $out . $nom . " пФ ";
}
if ($pac =~ /SM0402/) {
$out = $out . $cc0402;
} elsif ($pac =~ /SM0603/) {
$out = $out . $cc0603;
} elsif ($pac =~ /SM0805/) {
$out = $out . $cc0805;
} elsif ($pac =~ /SM1206/) {
$out = $out . $cc1206;
} elsif ($pac =~ /SM1210/) {
$out = $out . $cc1210;
} elsif ($pac =~ /X2Y0603/) {
$out = $out . $ccx2y0603;
} else {
$out = $nom . " ". $tip . " " . $pac;
}
} elsif ($pos =~ /^RA/) {
$out = " резисторная сборка ";
$out = $out . $nom; # . "Ом ";
} elsif ($pos =~ /^R/) {
$out = "";
if ($nom =~ /K/) {
if ($nom =~ /^\d+K\d+$/) {
$nom =~ s/K/,/;
}
$out = $out . $nom . " кОм";
} elsif ($nom =~ /M/) {
if ($nom =~ /^\d+M\d+$/) {
$nom =~ s/M/,/;
}
$out = $out . $nom . " мОм";
} else {
$out = $out . $nom . " Ом ";
}
$out = $out . " ±5%";
if ($pac =~ /SM0402/) {
$out = $out . " 0,0625 Вт 0402";
} elsif ($pac =~ /SM0603/) {
$out = $out . " 0,125 Вт 0603";
} elsif ($pac =~ /SM0805/) {
$out = $out . " 0,25 Вт 0805";
} else {
$out = $out . " " . $pac;
}
} elsif ($pos =~ /^D[A|D]/) {
$out = "";
$out = $out . $nom . " " . $pac; # . "Ом ";
}

print "Text Notes " . $xp . " " . $yp . " 0" . " 60 ~ 0\n";
print $pos . "\n";
if ($out ne "") {
$out = $out . "\n";
} else {
$out = $nom . " " . $typ . " " . $pac . "\n";
}
print "Text Notes " . ($xp + 700) . " " . $yp . " 0" . " 60 ~ 0\n";
print $out;
print "Text Notes " . ($xp + 5400) . " " . $yp . " 0" . " 60 ~ 0\n";
print $qty . "\n";

if ($b ne substr($pos, 0, 1)) {
$b = substr($pos, 0, 1);
$yp += 300;
if ($yp > $ym) {
$yp = $y1 + 300;
$xp += 7400;
}
} else {
$yp += 100;
if ($yp > $ym) {
$yp = $y1;
$xp += 7400;
}
}
}

        0.1 мк      1    "C28"                                     C_0805
             10      2    "R73 R95"                                     R_0805
             10      1    "R97"                                     R_1206
             22      2    "C22 C21"                                     C_0805
            180      4    "R72 R71 R70 R69"                                     R_0805

0,1 мк; 20;"C2 C3 C4 C5 C6 C7 C8 C11 C13 C14 C15 C16 C17 C18 C19 C20 C29 C30 C31 C32"; ; C_0805
0,1 мк; 1;"C26"; ; C_1206
0,47 мк; 5;"C1 C9 C10 C12 C23"; ; C_0805
0.1 мк; 1;"C28"; ; C_0805
1 к; 46;"R5 R6 R7 R8 R33 R34 R35 R36 R37 R38 R39 R40 R41 R42 R43 R44 R45 R46 R47 R48 R49 R50 R51 R52 R53 R54 R55 R56 R57 R58 R59 R60 R61 R62 R63 R64 R84 R85 R86 R87 R88 R89 R90 R91 R92 R93"; ; R_0805
10; 2;"R73 R95"; ; R_0805
10; 1;"R97"; ; R_1206
10 к; 1;"R94"; ; R_0805
10 мк; 2;"C24 C25"; ; C_2220
100 к; 4;"R65 R66 R67 R68"; ; R_0805
180; 4;"R69 R70 R71 R72"; ; R_0805
22; 2;"C21 C22"; ; C_0805
22 мк; 1;"C27"; ; C_1210
300; 1;"R96"; ; R_0805
330; 1;"C33"; ; C_0805
4,7 к; 38;"R1 R2 R3 R4 R9 R10 R11 R12 R13 R14 R15 R16 R17 R18 R19 R20 R21 R22 R23 R24 R25 R26 R27 R28 R29 R30 R31 R32 R74 R75 R76 R77 R78 R79 R80 R81 R82 R83"; ; R_0805
470; 2;"R100 R101"; ; R_0805
6,8 к; 2;"R98 R99"; ; R_0805
SMAJ26A; 1;"VD9"; ; DO-214AC_s