2007-01-14
* クリップボードのcsvテキストをEXCELに貼り付けるとき、CSVのフィールド毎にセルに貼り付ける方法
(2007-01-17追加)コメントで教えてもらったとおり貼り付けた後にデータ(D)−区切り位置(E)を使うのがいいです。excelのヘルプか"excel 区切り位置"で検索してみてください。
クリップボードのテキストがCSV形式であるときEXCELに貼り付けてもただ単に一つのセルに貼り付けられてしまう。ファイルからCSV読み込みするときのようにフィールド毎に区切ってセルに割り当ててはくれない。いちいち適当なファイルに保存してからとか面倒だなと思っていたら次のような記事を見つけた。
Excelさーが 恐るべきExcelの機能を昨日発見した！（今日発見したけど） (J)(via ときどきの雑記帖 リターン エラーになったらこっちから)
ほうほう、こんな機能があるんだというわけでスクリプト。csvテキストからフィールドを切り分けるコードはPerlメモ/CSVデータ - Walrus, Digit.から盗んだ。
#!/usr/bin/perl
use strict;
use Win32::Clipboard;
my $clipBoard = Win32::Clipboard();
my @lines = split( /\n/,$clipBoard->Get());
my $out;
$out = "<table>";
# csv handle are stolen from http://digit.que.ne.jp/work/index.cgi?Perl%E3%83%A1%E3%83%A2%2FCSV%E3%83%87%E3%83%BC%E3%82%BF
while (@lines) {
my $line = shift(@lines);
$line .= shift(@lines) while ($line =~ tr/"// % 2 and (@lines));
$line =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
my @values = map {/^"(.*)"$/s ? scalar($_ = $1, s/""/"/g, $_) : $_}
($line =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
$out .= "<tr>";
foreach( @values ){
$out .= "<td>$_</td>";
}
$out .= "</tr>";
}
$out .= "</table>";
$clipBoard->Set( $out );
例によってデスクトップなどにショートカットを置けば便利につかえる。なおcsvのフィールド中の改行に関しては考慮していない。excelの動きが私の理解を超えている。
1,2,3 4,5
apple,banana,"che rry",durian
それぞれクリップボードにコピーして処理するとこんな感じ(a)(b)
(b)は本当は(c)のような形がいいかもしれない。<td>の中で<br>すればと思ったけど簡単かとおもったけどうまくいかなかったので深追いは止めておく。
[]
クラシック・ドーム
ソフト・ドーム
ソフト・リム
普通にペーストしたあとで、データ(D)−区切り位置(E) でデリミタをカンマにしてセルに分割、って手順ではどうですか？
おぉ知りませんでした(恥)。使えます。今度から使わせていただきます。ただフィールドに改行コードを含む場合は微妙ですね。<br>ペーストした段階で別の行に分かれてしまっているので、csvファイルとしてオープンしたときと違う結果になります。<br>自分はそんなデータは使わないのでいいです。<br>ヘルプはこれでした。<br>mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\Office\1041\xlmain9.chm::/html/xlhowSeparateTextValuesAcrossCells.htm
Я думаю, что Вы не правы. Я уверен. Могу отстоять свою позицию. Пишите мне в PM, пообщаемся.
[url=ledtehnology.ru]светодиодный экран оптом[/url] <br>[url=ledtehnology.ru]светодиодный экран для магазина[/url] <br>[url=ledtehnology.ru]медиафасад стоимость[/url] <br>[url=ledtehnology.ru]купить медиафасад[/url] <br>[url=ledtehnology.ru]медиафасад купить[/url] <br>[url=ledtehnology.ru]светодиодный экран для помещений[/url] <br>[url=ledtehnology.ru]медиафасад цена[/url] <br>[url=ledtehnology.ru]светодиодные экраны[/url] <br>[url=ledtehnology.ru]медиафасад[/url] <br>[url=ledtehnology.ru]светодиодный экран купить[/url] <br>[url=ledtehnology.ru]светодиодный экран для улицы[/url] <br>[url=ledtehnology.ru]медиафасады[/url] <br>[url=ledtehnology.ru]светодиодный экран для сцены[/url] <br>[url=ledtehnology.ru]светодиодный экран цена[/url] <br>[url=ledtehnology.ru]уличный экран[/url] <br>[url=ledtehnology.ru]дорожные табло[/url]
Hookup Girls Utilizes Free of charge Matters? A Great Horizontal Gain! <br> <br>Free of charge hookup women next page on the internet is <br>the best solution if you're tired with gonna pubs and clubs merely to be prevented, as well as even worse, laughed <br>at. I realize what it's like because I've been there. I had been single and eager back in the day time -- <br>I needed a brand new spouse -- having said that i continued seeking because I needed hardly any other option. <br>If you're just one guy who wishes to hookup with attractive girls without <br>planning to those locations in which the girls are on your <br>own, then this report may just make positive changes to life. <br> <br>It can make clear why courting online is the ideal substitute if you're a guy who is shy to technique a lovely lady within a club or membership.
Hookup Women Uses Cost-free Affairs? A Great Horizontal Benefit! <br> <br> <br>Free hookup ladies chat on the internet is the best solution if <br>you're sick and tired of gonna pubs and organizations <br>only to be prevented, or even a whole lot worse, laughed <br>at. I realize what it's like because I've been there. <br>I was one and eager during the day time -- I needed a whole new companion -- having said that i <br>continued striving because I had no other decision. If you're an individual person who wishes to hookup with hot <br>ladies without likely to those areas the location where the girls are by itself, <br>then this report may just alter your existence. It is going to describe why <br>dating on the internet is the best substitute if you're a male who <br>may be too shy to strategy a lovely female in the bar or club.
У Нас скидки круглый год! <br>HoOkAh MaGic наш официальный бренд <br>Набрав в поисковике Вы можете посетить наш сайт <br>и возможно приобрести кальяны и всё для них. <br>Персональные скидки <br>Строго 18+ <br>Работаем с 15 до 23. Звоните!
В
С
Hello.
Hello.
Hello.
Hello.
Hello.
Hello.
Hello.
Hello from Kiddishop.
Hello from Happykiddi.