Last change
on this file since 708 was 676, checked in by イグトランス (egtra), 16 years ago |
#231に関連して、エンコーディング周りを見直し、Encoder/Decoderをストリーム用に特化。
UTF8Encodingをコンパイル可能にし、ビルドに含めるようにした。ただし、実装が不完全なためテストは不可。
(#231)
|
File size:
590 bytes
|
Rev | Line | |
---|
[432] | 1 | 'Classes/System/IO/StringReader.ab
|
---|
| 2 |
|
---|
| 3 | Namespace System
|
---|
| 4 | Namespace IO
|
---|
| 5 |
|
---|
| 6 | /*
|
---|
| 7 | @brief Stringから読み込みを行うTextReaderの実装。
|
---|
| 8 | @date 2008/02/26
|
---|
| 9 | @auther Egtra
|
---|
| 10 | */
|
---|
| 11 | Class StringReader
|
---|
| 12 | Inherits TextReader
|
---|
| 13 | Public
|
---|
| 14 | /*
|
---|
| 15 | @brief コンストラクタ
|
---|
| 16 | @date 2008/02/26
|
---|
| 17 | @auther Egtra
|
---|
[676] | 18 | @param str 読み取る元となる文字列。
|
---|
[432] | 19 | @exception ArgumentNullException strがNothingのとき。
|
---|
| 20 | */
|
---|
| 21 | Sub StringReader(str As String)
|
---|
| 22 | If ActiveBasic.IsNothing(str) Then
|
---|
| 23 | Throw New ArgumentNullException("str")
|
---|
| 24 | End If
|
---|
[676] | 25 | Dim b = Buffer
|
---|
| 26 | b.Append(str)
|
---|
[432] | 27 | End Sub
|
---|
| 28 | End Class
|
---|
| 29 |
|
---|
| 30 | End Namespace
|
---|
| 31 | End Namespace
|
---|
Note:
See
TracBrowser
for help on using the repository browser.