出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[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*")

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]

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