出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
TEXTAREAのデータについて 　 まっくさん [2001/12/30 17:45:09] [1333]
　 Re:TEXTAREAのデータについて 　 Tomitomiさん [2001/12/30 19:10:37] [1334]
　 Re:TEXTAREAのデータについて 　 北岳さん [2001/12/31 9:54:10] [1335]
　 　 Re:TEXTAREAのデータについて 　 まっくさん [2002/01/04 9:37:39] [1341]
　 　 Re:TextAreaのデータについて 　 北岳さん [2002/01/04 10:20:17] [1342]
　 　 　 Re:TextAreaのデータについて 　 まっくさん [2002/01/04 10:32:51] [1343]
[1333] TEXTAREAのデータについて
投稿者：まっくさん 2001/12/30 17:45:09
TEXTAREAで、入力したデータをFORMで別ページに飛ばしています。WRAP属性は未設定です。
そのジャンプ先では、収集したデータをテキストファイルに保存しています。
ファイル情報としては、TEXTAREA内のどこで改行しているかという情報が必要なのですが、ファイル内では1行のデータとして保存したいので、ユーザが任意で入力した改行コードを変換したいのですが改行変換がうまくいきません。よい方法はないでしょうか。

いろいろ試しているのですが、以下の方法では変換できませんでした。
１．
　text = Replace(test,"Chr(13)&Chr(10)","*CR/LF*")

２．
　text = Replace(test,vbCrLf,"*CR/LF*")
　text = Replace(test,vbCr,"*CR/LF*")
　text = Replace(test,vbLf,"*CR/LF*")
[1334] Re:TEXTAREAのデータについて
投稿者：Tomitomiさん 2001/12/30 19:10:37
こんにちは、Tomitomiです。

> TEXTAREAで、入力したデータをFORMで別ページに飛ばしています。WRAP属性は未設定です。
> そのジャンプ先では、収集したデータをテキストファイルに保存しています。
> ファイル情報としては、TEXTAREA内のどこで改行しているかという情報が必要なのですが、ファイル内では1行のデータとして保存したいので、ユーザが任意で入力した改行コードを変換したいのですが改行変換がうまくいきません。よい方法はないでしょうか。
>
> いろいろ試しているのですが、以下の方法では変換できませんでした。
> １．
> 　text = Replace(test,"Chr(13)&Chr(10)","*CR/LF*")
>
> ２．
> 　text = Replace(test,vbCrLf,"*CR/LF*")
> 　text = Replace(test,vbCr,"*CR/LF*")
> 　text = Replace(test,vbLf,"*CR/LF*")

僕のいつもやる方法は2番です。
気になるところは、testを置き換えて、textという変数に入れている点です。

1 　text = Replace(test,vbCrLf,"*CR/LF*")
2 　text = Replace(test,vbCr,"*CR/LF*")
3 　text = Replace(test,vbLf,"*CR/LF*")

ようするに、改行コードが、vbcrlfのみの場合
1の場所で「*CR/LF*」に置き換わりますが、
2の処理に入った場合、vbcrがないので、testに入った内容がtextに代入されます。

僕のやる方法としては、余計な処理が入りますが以下の方法でやります。

'改行コード統一
　test = Replace(test,vbCrLf,vbCrLf)
　test = Replace(test,vbCr,vbCrLf)
　test = Replace(test,vbLf,vbCrLf)

'文字列へ置き換え
　test = Replace(test,vbCrLf,"*CR/LF*")

[1335] Re:TEXTAREAのデータについて
投稿者：北岳さん 2001/12/31 9:54:10
> 　text = Replace(test,vbCrLf,"*CR/LF*")
> 　text = Replace(test,vbCr,"*CR/LF*")
> 　text = Replace(test,vbLf,"*CR/LF*")
　
これだと上2行は無効ですね。
[1341] Re:TEXTAREAのデータについて
投稿者：まっくさん 2002/01/04 9:37:39
Tomitomiさんより
> 僕のやる方法としては、余計な処理が入りますが以下の方法でやります。
>
> '改行コード統一
> 　test = Replace(test,vbCrLf,vbCrLf)
> 　test = Replace(test,vbCr,vbCrLf)
> 　test = Replace(test,vbLf,vbCrLf)
>
> '文字列へ置き換え
> 　test = Replace(test,vbCrLf,"*CR/LF*")
>
北岳さんより、
> > 　text = Replace(test,vbCrLf,"*CR/LF*")
> > 　text = Replace(test,vbCr,"*CR/LF*")
> > 　text = Replace(test,vbLf,"*CR/LF*")
> 　
> これだと上2行は無効ですね。

質問へのレスどうもありがとうございました。
指摘いただいた点を考慮して試してみたいと思いますが、
またわからないことがありましたら
よろしくお願い致します。
[1342] Re:TextAreaのデータについて
投稿者：北岳さん 2002/01/04 10:20:17
> > 　text = Replace(test,vbCrLf,"*CR/LF*")
> > 　text = Replace(test,vbCr,"*CR/LF*")
> > 　text = Replace(test,vbLf,"*CR/LF*")
> 　
> これだと上2行は無効ですね。
　
一読して判る表現がよい回答だそうですので、
書き直しておきます。
　
少なくとも上2行の、左辺がtestなら、3行とも有効ですが、
3行とも左辺text、右辺testだと、
上2行は無効ですね。

（一読して判るように書く ⇒ クドクナル。
　一読して判り、かつ簡潔に書く ⇒ ムズカスィ。 ）
[1343] Re:TextAreaのデータについて
投稿者：まっくさん 2002/01/04 10:32:51
> > > 　text = Replace(test,vbCrLf,"*CR/LF*")
> > > 　text = Replace(test,vbCr,"*CR/LF*")
> > > 　text = Replace(test,vbLf,"*CR/LF*")
> > 　
> > これだと上2行は無効ですね。
> 　
> 一読して判る表現がよい回答だそうですので、
> 書き直しておきます。
> 　
> 少なくとも上2行の、左辺がtestなら、3行とも有効ですが、
> 3行とも左辺text、右辺testだと、
> 上2行は無効ですね。
>
> （一読して判るように書く ⇒ クドクナル。
> 　一読して判り、かつ簡潔に書く ⇒ ムズカスィ。 ）

'改行コード統一
test1 = replace(test,vbCrLf,vbCrLf)
test2 = replace(test1,vbCr,vbCrLf)
test3 = replace(test2,vbLf,vbCrLf)
'文字列へ置き換え
test4 = replace(test3,vbCrLf,"*CR/LF*")
以上のように設定したとろ、正しく動作することができました。
ありがとうございました。

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ