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
|
---|
| 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
|
---|
[655] | 25 | Dim length = GetStr(str, s)
|
---|
| 26 | If length > LONG_MAX Then
|
---|
| 27 | Throw New ArgumentException("Must be Length <= LONG_MAX", "str")
|
---|
| 28 | End If
|
---|
| 29 | len = length As Long
|
---|
[432] | 30 | i = 0
|
---|
| 31 | End Sub
|
---|
| 32 |
|
---|
| 33 | /*
|
---|
| 34 | @date 2008/02/26
|
---|
| 35 | @auther Egtra
|
---|
| 36 | */
|
---|
| 37 | Override Function Peek() As Long
|
---|
[655] | 38 | If i = len Then
|
---|
[432] | 39 | Peek = -1
|
---|
| 40 | Else
|
---|
| 41 | Peek = s[i]
|
---|
| 42 | End If
|
---|
| 43 | End Function
|
---|
| 44 |
|
---|
| 45 | /*
|
---|
| 46 | @date 2008/02/26
|
---|
| 47 | @auther Egtra
|
---|
| 48 | */
|
---|
| 49 | Override Function Read() As Long
|
---|
[655] | 50 | Read = Peek()
|
---|
| 51 | i++
|
---|
[432] | 52 | End Function
|
---|
| 53 |
|
---|
| 54 | /*
|
---|
| 55 | @date 2008/02/26
|
---|
| 56 | @auther Egtra
|
---|
| 57 | */
|
---|
[655] | 58 | /*
|
---|
[432] | 59 | Override Function ReadToEnd() As String
|
---|
| 60 | ReadToEnd = s.Substring(i)
|
---|
| 61 | i = s.Length
|
---|
| 62 | End Function
|
---|
[655] | 63 | */
|
---|
[432] | 64 | Protected
|
---|
| 65 | /*
|
---|
| 66 | @date 2008/02/26
|
---|
| 67 | @auther Egtra
|
---|
| 68 | */
|
---|
| 69 | Override Sub Dispose(disposing As Boolean)
|
---|
| 70 | s = Nothing
|
---|
| 71 | i = 0
|
---|
| 72 | End Sub
|
---|
| 73 |
|
---|
| 74 | /*
|
---|
| 75 | @date 2008/02/26
|
---|
| 76 | @auther Egtra
|
---|
| 77 | */
|
---|
[655] | 78 | Override Function ReadImpl(buffer As *WCHAR, count As Long) As Long
|
---|
| 79 | ReadImpl = Math.Min(count, len - i)
|
---|
| 80 | ActiveBasic.Strings.ChrCopy(buffer, VarPtr(s[i]), ReadImpl As SIZE_T) 'ToDo: ポインタに対する+演算
|
---|
[432] | 81 | End Function
|
---|
| 82 |
|
---|
| 83 | Private
|
---|
[655] | 84 | s As *WCHAR
|
---|
| 85 | len As Long
|
---|
[432] | 86 | i As Long
|
---|
| 87 | End Class
|
---|
| 88 |
|
---|
| 89 | End Namespace
|
---|
| 90 | End Namespace
|
---|
Note:
See
TracBrowser
for help on using the repository browser.