8

すべてのセルの最初の文字が大文字になるように変換したいセルがたくさんあります。たとえばcook, chef, fireman、になりCook, Chef, Firemanます。

  • OpenOffice.orgにスプレッドシートがありますが、「すべて大文字」または「すべて小文字」のオプションしかないようです。
  • OpenOffice.orgで編集できない場合は、OpenOffice.orgで編集するか、CSVにエクスポートしてBASHスクリプトでCSVを編集できます。

スプレッドシートのすべてのセルの最初の文字を大文字に変更するにはどうすればよいですか？

4

10 に答える 10

8

私はたまたまこの仕事をします。Spreadsheet::ParseExcelおよびSpreadsheet::WriteExcelモジュールをインストールする必要があります。

use strict;
use warnings;

use Spreadsheet::ParseExcel::SaveParser;

my $parser   = Spreadsheet::ParseExcel::SaveParser->new();
my $workbook = $parser->Parse('Book1.xls');

if ( !defined $workbook ) {
    die $parser->error(), ".\n";
}

for my $worksheet ( $workbook->worksheets() ) {

    my ( $row_min, $row_max ) = $worksheet->row_range();
    my ( $col_min, $col_max ) = $worksheet->col_range();

    for my $row ( $row_min .. $row_max ) {
        for my $col ( $col_min .. $col_max ) {

            my $cell = $worksheet->get_cell( $row, $col );
            next unless $cell;

            # "ucfirst lc" make sure that only the first letter is capitalized
            # if you dont like that just remove lc
            $worksheet->AddCell( $row, $col, ucfirst lc $cell->value() );

        }
    }
}

# ofcouse save your work
$workbook->SaveAs('Book2.xls');
于 2012-01-04T03:29:35.357 に答える
7

たぶん、より新しいバージョンに更新する必要があるだけです。私はLibreOffice 3.4.4を使用してFormat -> Change Case -> Sentence caseいますが、どれがまさにあなたが必要としているものであるかがわかります。

于 2012-01-04T00:34:54.873 に答える
6

Perl はオプションですか? CPAN アーカイブには、OpenOffice スプレッドシートも処理できるSpreadsheet::WriteExcelというモジュールがあります。

基本的に、スプレッドシートを読み取り、セルを検索し、必要なセルを変更し、変更されたデータで新しいスプレッドシートを作成します。Excel スプレッドシートを直接変更することはできません。これが OpenOffice ドキュメントに当てはまるかどうかはわかりません。

以前は Excel スプレッドシートの読み書きにこれを使用していましたが、それは少し前のことです。ただし、このモジュールは、最初にスプレッドシートを CSV 形式で保存しなくても状況を処理できます。

于 2012-01-04T02:09:30.267 に答える
3

Perl ワンライナー:

perl -pwe 's/(?:^|,)\s*\K([a-z])/\U$1/g;' file.csv > fileout.csv

スイッチでインプレース編集を使用することもできます-i。例えばperl -pi.bak -we ...

Text::CSV_XSを使用した長いバージョン。このモジュールは (おそらく) csv ファイルをより慎重に扱います。

use strict;
use warnings;
use Text::CSV_XS;

my $csv = Text::CSV_XS->new({
        binary  => 1,
        eol     => $/,
    });

my $file = shift;
open my $fh, '<', $file or die $!;
while (my $row = $csv->getline($fh)) {
    s/([a-z])/\U$1/ for @$row;
    $csv->print (*STDOUT, $row);
}

次のように実行します。perl script.pl file.csv > fileout.csv

于 2012-01-04T10:51:03.047 に答える
3

私はあなたが望むことをする awk スクリプトを持っています (私は思います)。

ここに私のテスト入力（test.input）があります：

cook, chef, fireman
cook, chef, fireman
cook, chef, fireman
cook, chef, fireman
house, farm, road

私のawkスクリプト（up.awk）：

# from: http://www.gnu.org/software/gawk/manual/html_node/Join-Function.html
function join(array, start, end, sep, result, i){
         if (sep == "")
            sep = " "
         else if (sep == SUBSEP) # magic value
            sep = ""
         result = array[start]
         for (i = start + 1; i <= end; i++)
            result = result sep array[i]
         return result
}
BEGIN {
    FS="\n";
}
{
    # split input on newline
    for(i=1;i<=NF;i++) {
        # split line on the commas
        size = split($i, s, ",")
        for(ii=1;ii<=size;ii++) {
            # trim whitespace
            gsub(/[[:space:]]*/,"",s[ii])
            # uppercase first char and glue it back together
            s[ii] = toupper(substr(s[ii], 0, 1)) substr(s[ii], 2)
        }
        # join array back and print it out
        print join(s, 1, size, ", ")
    }
}

スクリプトの実行方法: awk -f up.awk test.input >test.output

私のtest.outputの出力：

Cook, Chef, Fireman
Cook, Chef, Fireman
Cook, Chef, Fireman
Cook, Chef, Fireman
House, Farm, Road
于 2012-01-04T02:42:37.540 に答える
2

OOo 3.3 を使用している場合、または OOo 3.3 にアップグレードする場合は、このビルトインのオプションがあります。
影響を与えたいすべてのセルをマークし、選択Format -> Change Case -> Sentence caseして出来上がりです! それがあなたのためにトリックをするかどうか見てください？

于 2012-01-04T03:00:56.877 に答える
2

Python やその他の言語を使用すると、かなり危険なことを行うことができます。

#!/usr/bin/env python

lastchar = ""
orig_csv = open("yourfile.csv", "r")
new_csv = open("newfile.csv", "w")
for line in orig_csv:
    for char in line:
        if lastchar == ",":
            new_csv.write(char.upper())
        else:
            new_csv.write(char)
orig_csv.close()
new_csv.close()

これは、フィールドが引用符で囲まれていないことを前提としています。これは、コンマの後のすべてが大文字になるためです。

それができない場合は、実際に csv ライブラリを使用する必要があります。

于 2012-01-04T00:32:37.730 に答える
1

あなたはタイトルケースを取得するために小さなコンボを書くことができますgawk-sed

gawk -v RS="[,\n]" -v ORS="" '
{a=substr($1,1,1); b=substr($1,2); print toupper(a)b" "; if (NR%3==0) print "\n"}' file | 
sed -e 's/ /, /g' -e 's/, *$//'

テスト：

[jaypal:~/Temp] cat file
cook, chef, fireman
cook, chef, fireman
cook, chef, fireman
cook, chef, fireman
house, farm, road

[jaypal:~/Temp] gawk -v RS="[,\n]" -v ORS="" '
{a=substr($1,1,1); b=substr($1,2); print toupper(a)b" "; if (NR%3==0) print "\n"}' file | 
sed -e 's/ /, /g' -e 's/, *$//'
Cook, Chef, Fireman
Cook, Chef, Fireman
Cook, Chef, Fireman
Cook, Chef, Fireman
House, Farm, Road

明らかに、これは完璧なソリューションではありません。データの行数や必要なデータの行数によっては、少し調整する必要がある場合があります。への変更でNR%3十分です。

于 2012-01-04T05:23:51.100 に答える
1

これはあなたのために働くかもしれません：

cat <<! | sed 's/\<[^,]*/\u&/g'
> cook, chef, fireman
> head cook, head chef, chief fireman
> house, farm, road
> !
Cook, Chef, Fireman
Head cook, Head chef, Chief fireman
House, Farm, Road

おそらくGNU sed固有です。

于 2012-01-04T10:35:43.093 に答える
1

csv としてエクスポートします。次に、このようなことをします。

#psuedo python
out=""
nums = [col numbers to capitalize]
for line in file.read_csv('input.csv'):
    for n in nums:
       line[n] = line[n].capitalize()
       out += ",".join(line) + "\n"
于 2012-01-04T04:39:16.380 に答える