|
Last change
on this file since 665 was 665, checked in by イグトランス (egtra), 15 years ago |
|
TextWriter同様TextReaderでバッファリングし、StreamReaderはMultiByteToWideChar固定で仮実装。これで、マルチバイトモードでもStringReaderが使えるようにした。
(#235)
|
|
File size:
692 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 | Buffer.Append(str)
|
|---|
| 26 | End Sub
|
|---|
| 27 |
|
|---|
| 28 |
|
|---|
| 29 | Protected
|
|---|
| 30 | /*
|
|---|
| 31 | @date 2008/02/26
|
|---|
| 32 | @auther Egtra
|
|---|
| 33 | */
|
|---|
| 34 | Override Sub Dispose(disposing As Boolean)
|
|---|
| 35 | End Sub
|
|---|
| 36 | End Class
|
|---|
| 37 |
|
|---|
| 38 | End Namespace
|
|---|
| 39 | End Namespace
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
