このメッセージの投稿者: ベルコールさん 2002/03/09 17:04:43

元メッセージ: Re:sale.csv 投稿者: ベルコールさん 2002/03/08 17:04:58

>>>「ご注文票」画面の[コメント]にENTERキーを使用して入力した場合、
>>>sales.csvのA列（受注データ番号）に改行以降の文字列が入ってしまいますが、
>>>それによって何か問題が発生する可能性はありますでしょうか？
>>>また、まれに受注伝票で表示されないデータがありますが
>>>上記の件と関係はありますでしょうか？

>>>ver3.35.019、受注データファイルの設定は単純に１〜２５までの連番で設定しています。
>>>お手数ですが宜しくお願い致します。

>>お世話になっております。
>>たまたまタイムリーに同じ現象です。
>>最後の注文画面でのコメントのテキストボックス内で改行されてしまうと
>>２行目以降がすべてＡ列に入ってしまって、データベース管理ができなくなります。
>>改行を禁止にするとかしかないのでしょうか？

>>ver４．１(すいません、細かいリリースはわかりません)
>>私も受注データファイルの設定は単純に連番で設定しています。
>-----
>shop.cgi 520行目あたりに次のようなところがあります。

>　open(CSVL,"$datadir/csv.lst");
>　while(<CSVL>){chomp;
>　　if(/^(\w+),.+,(\d+)$/){$csv++;
>　　　$komoku=$1;$komoku=~s/_ken/ken/;
>　　　${"$komoku"}=$datest if($komoku eq'date');
>　　　print CSV "${$komoku},";
>　　}
>　}close CSVL;

>ここを次のように修正してください。

>　open(CSVL,"$datadir/csv.lst");
>　while(<CSVL>){chomp;
>　　if(/^(\w+),.+,(\d+)$/){$csv++;
>　　　$komoku=$1;$komoku=~s/_ken/ken/;
>　　　${"$komoku"}=$datest if($komoku eq'date');
>　　　if(${$komoku}=~/\n/){print CSV "\"${$komoku}\","}else{print CSV "${$komoku},"}
>　　}
>　}close CSVL;
-----
バージョンによっては次のようになります。

　open(CSVL,"$datadir/csv.lst");
　while(<CSVL>){chomp;
　　if(/^\d+,(\w+),.+,(\d+)$/){$csv++;
　　　$komoku=$1;$komoku=~s/_ken/ken/;
　　　${"$komoku"}=$datest if($komoku eq'date');
　　　print CSV "${$komoku},";
　　}
　}close CSVL;

ここを次のように修正してください。

　open(CSVL,"$datadir/csv.lst");
　while(<CSVL>){chomp;
　　if(/^\d+,(\w+),.+,(\d+)$/){$csv++;
　　　$komoku=$1;$komoku=~s/_ken/ken/;
　　　${"$komoku"}=$datest if($komoku eq'date');
　　　if(${$komoku}=~/\n/){print CSV "\"${$komoku}\","}else{print CSV "${$komoku},"}
　　}
　}close CSVL;

このメッセージへの返事: