| 投稿日 | ： 2007/02/21(Wed) 11:55 |
| 投稿者 | ： 大吉末吉 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 文字列の最後の改行コードを削除するには？。 |
> VB6.0です。よろしくお願いします。
> 改←改行コード
>
> あああ改ＡＡＡ改いいい改
>
> と言うような文字列があるとします。
> これをテキストファイルに書き込むと
> 以下になってしまいます。
>
> あああ改
> ＡＡＡ改
> いいい改
> 改
> [EOF]
どうやって出力しています？
例えばPrint#メソッドなら、最後に改行が行われますから、「;」をつけて改行を抑止するとか・・・
> lngCount = InStrRev(strTxt, vbCrLf)
> strTxt = Left(strTxt, lngCount)
これって・・・例えば対象文字列が、
「あああ[CR][LF]AAA[CR][LF]」の場合（vbCrLfは、vbCrとvbLfの２文字）
1回目の「InStrRev」で、最後の[CR]の位置を返すので、
Leftでは、
「あああ[CR][LF]AAA[CR]」こういう中途半端な文字列に・・・
> strTxt = Left(strTxt, lngCount-1)
では？