|
Last change
on this file since 676 was 676, checked in by イグトランス (egtra), 15 years ago |
|
#231に関連して、エンコーディング周りを見直し、Encoder/Decoderをストリーム用に特化。
UTF8Encodingをコンパイル可能にし、ビルドに含めるようにした。ただし、実装が不完全なためテストは不可。
(#231)
|
|
File size:
590 bytes
|
| Line | |
|---|
| 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
|
|---|
| 18 | @param str 読み取る元となる文字列。
|
|---|
| 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
|
|---|
| 25 | Dim b = Buffer
|
|---|
| 26 | b.Append(str)
|
|---|
| 27 | End Sub
|
|---|
| 28 | End Class
|
|---|
| 29 |
|
|---|
| 30 | End Namespace
|
|---|
| 31 | End Namespace
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
