UNIXで作成したTextファイルを読み込むには (ID:74314)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 自作、改行コードを変換するメソッドです。 でも、なぜかリッチテキストに正常に表示できないので、 公開しようかと思ってるけど、今は公開してません。 ちなみにテキストボックスには正常に出力されました。 文字化けしたけど、それはバイナリーモードで読んで、 強引にラインインプットしたせい…。 '♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪ 'コード変換(CodeExchange)、引数ふたつ 'Text−変換すべき文章 'CodeType−0がWindows、1がUNIX、2がMacintosh、3だと改行を抹消、その他255までは全部無変換、省略すると0(Win) ' 'もどりちは変換済み文章 '♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪ Public Function CodeExchange(Text As String, Optional CodeType As Byte = 0) As String Select Case CodeType Case 0 Text = Replace(Text, Chr(13) + Chr(10), "dpenterkey") Text = Replace(Text, Chr(10), Chr(13) + Chr(10)) Text = Replace(Text, Chr(13), Chr(13) + Chr(10)) Text = Replace(Text, "dpenterkey", Chr(13) + Chr(10)) Case 1 Text = Replace(Text, Chr(13) + Chr(10), Chr(10)) Text = Replace(Text, Chr(13), Chr(10)) Case 2 Text = Replace(Text, Chr(13) + Chr(10), Chr(13)) Text = Replace(Text, Chr(10), Chr(13)) Case 3 Text = Replace(Text, Chr(10), "") Text = Replace(Text, Chr(13), "") End Select CodeExchange = Text End Function '♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪ 改行コードについては、とほほさんのページ (http://tohoho.wakusei.ne.jp/)が参考になるかと思います