[132] | 1 | ' Classes/System/String.ab
|
---|
| 2 |
|
---|
| 3 | #require <basic/function.sbp>
|
---|
| 4 |
|
---|
[139] | 5 | #ifdef __STRING_IS_NOT_ALWAYS_UNICODE
|
---|
| 6 | TypeDef StrChar = Char
|
---|
| 7 | #ifndef UNICODE
|
---|
| 8 | #define __STRING_IS_NOT_UNICODE
|
---|
| 9 | #endif
|
---|
| 10 | #else
|
---|
| 11 | TypeDef StrChar = WCHAR
|
---|
[142] | 12 | #ifndef UNICODE
|
---|
| 13 | #define __STRING_UNICODE_WINDOWS_ANSI
|
---|
[139] | 14 | #endif
|
---|
[142] | 15 | #endif
|
---|
[139] | 16 |
|
---|
[246] | 17 | Namespace System
|
---|
[203] | 18 |
|
---|
[246] | 19 | Class String
|
---|
| 20 | ' Inherits IComparable, ICloneable, IConvertible, IEnumerable
|
---|
[1] | 21 |
|
---|
[246] | 22 | m_Length As Long
|
---|
| 23 | Public
|
---|
| 24 | Chars As *StrChar
|
---|
[1] | 25 |
|
---|
[246] | 26 | Sub String()
|
---|
| 27 | Chars = _System_malloc(SizeOf (StrChar))
|
---|
| 28 | Chars[0] = 0
|
---|
| 29 | m_Length = 0
|
---|
| 30 | End Sub
|
---|
[30] | 31 |
|
---|
[246] | 32 | Sub String(initStr As PCSTR)
|
---|
| 33 | Assign(initStr)
|
---|
| 34 | End Sub
|
---|
[125] | 35 |
|
---|
[246] | 36 | Sub String(initStr As PCSTR, length As Long)
|
---|
| 37 | Assign(initStr, length)
|
---|
| 38 | End Sub
|
---|
[139] | 39 |
|
---|
[246] | 40 | Sub String(initStr As PCWSTR)
|
---|
| 41 | Assign(initStr)
|
---|
| 42 | End Sub
|
---|
[139] | 43 |
|
---|
[246] | 44 | Sub String(initStr As PCWSTR, length As Long)
|
---|
| 45 | Assign(initStr, length)
|
---|
| 46 | End Sub
|
---|
[49] | 47 |
|
---|
[246] | 48 | Sub String(ByRef initStr As String)
|
---|
| 49 | Assign(initStr)
|
---|
| 50 | End Sub
|
---|
[121] | 51 |
|
---|
[246] | 52 | Sub String(length As Long)
|
---|
| 53 | ReSize(length)
|
---|
| 54 | End Sub
|
---|
[1] | 55 |
|
---|
[246] | 56 | Sub String(initChar As StrChar, length As Long)
|
---|
| 57 | ReSize(length, initChar)
|
---|
| 58 | End Sub
|
---|
| 59 |
|
---|
| 60 | Sub ~String()
|
---|
| 61 | _System_free(Chars)
|
---|
| 62 | Chars = 0
|
---|
[1] | 63 | #ifdef _DEBUG
|
---|
[246] | 64 | m_Length = 0
|
---|
[1] | 65 | #endif
|
---|
[246] | 66 | End Sub
|
---|
[1] | 67 |
|
---|
[246] | 68 | Const Function Length() As Long
|
---|
| 69 | Return m_Length
|
---|
| 70 | End Function
|
---|
[30] | 71 |
|
---|
[246] | 72 | Function Operator() As *StrChar
|
---|
| 73 | Return Chars
|
---|
| 74 | End Function
|
---|
[1] | 75 |
|
---|
[246] | 76 | Const Function Operator [] (n As Long) As StrChar
|
---|
[139] | 77 | #ifdef _DEBUG
|
---|
[246] | 78 | If n > Length Then
|
---|
| 79 | 'Throw ArgumentOutOfRangeException
|
---|
| 80 | Debug
|
---|
| 81 | End If
|
---|
[139] | 82 | #endif
|
---|
[246] | 83 | Return Chars[n]
|
---|
| 84 | End Function
|
---|
[1] | 85 |
|
---|
[246] | 86 | Sub Operator []= (n As Long, c As StrChar)
|
---|
[139] | 87 | #ifdef _DEBUG
|
---|
[246] | 88 | If n >= Length Then
|
---|
| 89 | 'Throw ArgumentOutOfRangeException
|
---|
| 90 | Debug
|
---|
| 91 | End If
|
---|
[139] | 92 | #endif
|
---|
[246] | 93 | Chars[n] = c
|
---|
| 94 | End Sub
|
---|
[1] | 95 |
|
---|
[246] | 96 | /* Const Function Operator + (text As *Byte) As String
|
---|
| 97 | Return Concat(text As PCTSTR, lstrlen(text))
|
---|
| 98 | End Function*/
|
---|
[1] | 99 |
|
---|
[246] | 100 | Const Function Operator + (text As PCSTR) As String
|
---|
| 101 | Return Concat(text, lstrlenA(text))
|
---|
| 102 | End Function
|
---|
[139] | 103 |
|
---|
[246] | 104 | Const Function Operator + (text As PCWSTR) As String
|
---|
| 105 | Return Concat(text, lstrlenW(text))
|
---|
| 106 | End Function
|
---|
[139] | 107 |
|
---|
[246] | 108 | Const Function Operator + (objString As String) As String
|
---|
| 109 | Return Concat(objString.Chars, objString.m_Length)
|
---|
| 110 | End Function
|
---|
[1] | 111 |
|
---|
[246] | 112 | Const Function Operator & (text As PCSTR) As String
|
---|
| 113 | Dim tempString = This + text
|
---|
| 114 | Return tempString
|
---|
| 115 | End Function
|
---|
[1] | 116 |
|
---|
[246] | 117 | Const Function Operator & (text As PCWSTR) As String
|
---|
| 118 | Dim tempString = This + text
|
---|
| 119 | Return tempString
|
---|
| 120 | End Function
|
---|
[139] | 121 |
|
---|
[246] | 122 | Const Function Operator & (objString As String) As String
|
---|
| 123 | Dim tempString = This + objString
|
---|
| 124 | Return tempString
|
---|
| 125 | End Function
|
---|
[1] | 126 |
|
---|
[246] | 127 | Const Function Operator == (objString As String) As Boolean
|
---|
| 128 | Return String.Compare(This, objString) = 0
|
---|
| 129 | End Function
|
---|
[1] | 130 |
|
---|
[246] | 131 | Const Function Operator == (text As *StrChar) As Boolean
|
---|
| 132 | Return _System_StrCmp(This.Chars, text) = 0
|
---|
| 133 | End Function
|
---|
[1] | 134 |
|
---|
[246] | 135 | Const Function Operator <> (objString As String) As Boolean
|
---|
| 136 | Return String.Compare(This, objString) <> 0
|
---|
| 137 | End Function
|
---|
[1] | 138 |
|
---|
[246] | 139 | Const Function Operator <> (text As *StrChar) As Boolean
|
---|
| 140 | Return _System_StrCmp(This.Chars, text) <> 0
|
---|
| 141 | End Function
|
---|
[1] | 142 |
|
---|
[246] | 143 | Const Function Operator < (objString As String) As Boolean
|
---|
| 144 | Return String.Compare(This, objString) < 0
|
---|
| 145 | End Function
|
---|
[1] | 146 |
|
---|
[246] | 147 | Const Function Operator < (text As *StrChar) As Boolean
|
---|
| 148 | Return _System_StrCmp(This.Chars, text) < 0
|
---|
| 149 | End Function
|
---|
[1] | 150 |
|
---|
[246] | 151 | Const Function Operator > (objString As String) As Boolean
|
---|
| 152 | Return String.Compare(This, objString) > 0
|
---|
| 153 | End Function
|
---|
[1] | 154 |
|
---|
[246] | 155 | Const Function Operator > (text As *StrChar) As Boolean
|
---|
| 156 | Return _System_StrCmp(This.Chars, text) > 0
|
---|
| 157 | End Function
|
---|
[1] | 158 |
|
---|
[246] | 159 | Const Function Operator <= (objString As String) As Boolean
|
---|
| 160 | Return String.Compare(This, objString) <= 0
|
---|
| 161 | End Function
|
---|
[1] | 162 |
|
---|
[246] | 163 | Const Function Operator <= (text As *StrChar) As Boolean
|
---|
| 164 | Return _System_StrCmp(This.Chars, text) <= 0
|
---|
| 165 | End Function
|
---|
[1] | 166 |
|
---|
[246] | 167 | Const Function Operator >= (objString As String) As Boolean
|
---|
| 168 | Return String.Compare(This, objString) >= 0
|
---|
| 169 | End Function
|
---|
[1] | 170 |
|
---|
[246] | 171 | Const Function Operator >= (text As *StrChar) As Boolean
|
---|
| 172 | Return _System_StrCmp(This.Chars, text) >= 0
|
---|
| 173 | End Function
|
---|
[1] | 174 |
|
---|
[246] | 175 | Static Function Compare(x As String, y As String) As Long
|
---|
| 176 | Return CompareOrdinal(x, y)
|
---|
| 177 | End Function
|
---|
[203] | 178 |
|
---|
[246] | 179 | Static Function Compare(x As String, indexX As Long, y As String, indexY As Long, length As Long) As Long
|
---|
| 180 | Return CompareOrdinal(x, indexX, y, indexY, length)
|
---|
| 181 | End Function
|
---|
[203] | 182 |
|
---|
[246] | 183 | Static Function CompareOrdinal(x As String, y As String) As Long
|
---|
| 184 | Return _System_StrCmp(x.Chars, y.Chars)
|
---|
| 185 | End Function
|
---|
[203] | 186 |
|
---|
[246] | 187 | Static Function CompareOrdinal(x As String, indexX As Long, y As String, indexY As Long, length As Long) As Long
|
---|
| 188 | If Object.ReferenceEquals(x, Nothing) Then
|
---|
| 189 | If Object.ReferenceEquals(y, Nothing) Then
|
---|
| 190 | Return 0
|
---|
| 191 | Else
|
---|
| 192 | Return -1
|
---|
| 193 | End If
|
---|
| 194 | ElseIf Object.ReferenceEquals(y, Nothing) Then
|
---|
| 195 | Return 1
|
---|
[203] | 196 | End If
|
---|
[246] | 197 | Return _System_StrCmpN(VarPtr(x.Chars[indexX]), VarPtr(y.Chars[indexY]), length As SIZE_T)
|
---|
| 198 | End Function
|
---|
[203] | 199 |
|
---|
[246] | 200 | Function CompareTo(y As String) As Long
|
---|
| 201 | Return String.Compare(This, y)
|
---|
| 202 | End Function
|
---|
[203] | 203 |
|
---|
[246] | 204 | Function CompareTo(y As Object) As Long
|
---|
| 205 | Dim s = y As String
|
---|
| 206 | ' If y is not String Then
|
---|
| 207 | ' Throw New ArgumentException
|
---|
| 208 | ' End If
|
---|
| 209 | Return CompareTo(y)
|
---|
| 210 | End Function
|
---|
[203] | 211 |
|
---|
[246] | 212 | Const Function StrPtr() As *StrChar
|
---|
| 213 | Return Chars
|
---|
| 214 | End Function
|
---|
[1] | 215 |
|
---|
[246] | 216 | Sub ReSize(allocLength As Long)
|
---|
| 217 | If allocLength < 0 Then Exit Sub
|
---|
| 218 | If allocLength > m_Length Then
|
---|
| 219 | Dim oldLength As Long
|
---|
| 220 | oldLength = m_Length
|
---|
| 221 | If AllocStringBuffer(allocLength) <> 0 Then
|
---|
| 222 | ZeroMemory(VarPtr(Chars[oldLength]), SizeOf (StrChar) * (m_Length - oldLength + 1))
|
---|
| 223 | End If
|
---|
| 224 | Else
|
---|
| 225 | m_Length = allocLength
|
---|
| 226 | Chars[m_Length] = 0
|
---|
[1] | 227 | End If
|
---|
[246] | 228 | End Sub
|
---|
[1] | 229 |
|
---|
[246] | 230 | Sub ReSize(allocLength As Long, c As StrChar)
|
---|
| 231 | If allocLength < 0 Then
|
---|
| 232 | Exit Sub
|
---|
| 233 | ElseIf allocLength > m_Length Then
|
---|
| 234 | Dim oldLength As Long
|
---|
| 235 | oldLength = m_Length
|
---|
| 236 | If AllocStringBuffer(allocLength) <> 0 Then
|
---|
| 237 | Dim p = VarPtr(Chars[oldLength]) As *StrChar
|
---|
| 238 | Dim fillLen = m_Length - oldLength
|
---|
| 239 | Dim i As Long
|
---|
| 240 | For i = 0 To ELM(fillLen)
|
---|
| 241 | p[i] = c
|
---|
| 242 | Next
|
---|
| 243 | End If
|
---|
| 244 | Else
|
---|
| 245 | m_Length = allocLength
|
---|
[1] | 246 | End If
|
---|
[246] | 247 | Chars[m_Length] = 0
|
---|
| 248 | End Sub
|
---|
[1] | 249 |
|
---|
[246] | 250 | Sub Assign(text As PCSTR, textLengthA As Long)
|
---|
[175] | 251 | #ifdef __STRING_IS_NOT_UNICODE
|
---|
[246] | 252 | AssignFromStrChar(text, textLengthA)
|
---|
[139] | 253 | #else
|
---|
[246] | 254 | Dim textLengthW = MultiByteToWideChar(CP_THREAD_ACP, 0, text, textLengthA, 0, 0)
|
---|
| 255 | If AllocStringBuffer(textLengthW) <> 0 Then
|
---|
| 256 | MultiByteToWideChar(CP_THREAD_ACP, 0, text, textLengthA, Chars, textLengthW)
|
---|
| 257 | Chars[textLengthW] = 0
|
---|
| 258 | End If
|
---|
[139] | 259 | #endif
|
---|
[246] | 260 | End Sub
|
---|
[1] | 261 |
|
---|
[246] | 262 | Sub Assign(text As PCWSTR, textLengthW As Long)
|
---|
[139] | 263 | #ifdef __STRING_IS_NOT_UNICODE
|
---|
[246] | 264 | Dim textLengthA = WideCharToMultiByte(CP_THREAD_ACP, 0, text, textLengthW, 0, 0, 0, 0)
|
---|
| 265 | If AllocStringBuffer(textLengthA) <> 0 Then
|
---|
| 266 | WideCharToMultiByte(CP_THREAD_ACP, 0, text, textLengthW, Chars, textLengthA, 0, 0)
|
---|
| 267 | Chars[textLengthA] = 0
|
---|
| 268 | End If
|
---|
[139] | 269 | #else
|
---|
[246] | 270 | AssignFromStrChar(text, textLengthW)
|
---|
[139] | 271 | #endif
|
---|
[246] | 272 | End Sub
|
---|
[139] | 273 |
|
---|
[246] | 274 | Sub Assign(ByRef objString As String)
|
---|
| 275 | Assign(objString.Chars, objString.m_Length)
|
---|
| 276 | End Sub
|
---|
[1] | 277 |
|
---|
[246] | 278 | Sub Assign(text As PCSTR)
|
---|
| 279 | If text Then
|
---|
| 280 | Assign(text, lstrlenA(text))
|
---|
| 281 | Else
|
---|
| 282 | If Chars <> 0 Then
|
---|
| 283 | Chars[0] = 0
|
---|
| 284 | End If
|
---|
| 285 | m_Length = 0
|
---|
[139] | 286 | End If
|
---|
[246] | 287 | End Sub
|
---|
[1] | 288 |
|
---|
[246] | 289 | Sub Assign(text As PCWSTR)
|
---|
| 290 | If text Then
|
---|
| 291 | Assign(text, lstrlenW(text))
|
---|
| 292 | Else
|
---|
| 293 | If Chars <> 0 Then
|
---|
| 294 | Chars[0] = 0
|
---|
| 295 | End If
|
---|
| 296 | m_Length = 0
|
---|
[139] | 297 | End If
|
---|
[246] | 298 | End Sub
|
---|
[139] | 299 |
|
---|
[246] | 300 | Sub Append(text As *StrChar, textLength As Long)
|
---|
| 301 | Dim prevLen As Long
|
---|
| 302 | prevLen = m_Length
|
---|
| 303 | If AllocStringBuffer(m_Length + textLength) <> 0 Then
|
---|
| 304 | memcpy(VarPtr(Chars[prevLen]), text, SizeOf (StrChar) * textLength)
|
---|
| 305 | Chars[m_Length] = 0
|
---|
| 306 | End If
|
---|
| 307 | End Sub
|
---|
[1] | 308 |
|
---|
[246] | 309 | Sub Append(text As *StrChar)
|
---|
| 310 | Append(text, lstrlen(text))
|
---|
| 311 | End Sub
|
---|
[1] | 312 |
|
---|
[246] | 313 | Sub Append(ByRef str As String)
|
---|
| 314 | Append(str.Chars, str.m_Length)
|
---|
| 315 | End Sub
|
---|
[1] | 316 |
|
---|
[246] | 317 | Const Function Clone() As String
|
---|
| 318 | Return This
|
---|
| 319 | End Function
|
---|
| 320 | Private
|
---|
| 321 | Static Function ConcatStrChar(text1 As *StrChar, text1Length As Long, text2 As *StrChar, text2Length As Long) As String
|
---|
| 322 | ConcatStrChar = New String()
|
---|
| 323 | With ConcatStrChar
|
---|
| 324 | .AllocStringBuffer(text1Length + text2Length)
|
---|
| 325 | memcpy(.Chars, text1, SizeOf (StrChar) * text1Length)
|
---|
| 326 | memcpy(VarPtr(.Chars[text1Length]), text2, SizeOf (StrChar) * text2Length)
|
---|
| 327 | .Chars[text1Length + text2Length] = 0
|
---|
| 328 | End With
|
---|
| 329 | End Function
|
---|
| 330 | Public
|
---|
| 331 | Const Function Concat(text As PCSTR, len As Long) As String
|
---|
[139] | 332 | #ifdef __STRING_IS_NOT_UNICODE
|
---|
[246] | 333 | Return ConcatStrChar(This.Chars, m_Length, text, len)
|
---|
[139] | 334 | #else
|
---|
[246] | 335 | With Concat
|
---|
| 336 | Dim lenW = MultiByteToWideChar(CP_THREAD_ACP, 0, text, len, 0, 0)
|
---|
| 337 | .AllocStringBuffer(m_Length + lenW)
|
---|
| 338 | memcpy(.Chars, This.Chars, m_Length)
|
---|
| 339 | MultiByteToWideChar(CP_THREAD_ACP, 0, text, len, VarPtr(.Chars[m_Length]), lenW)
|
---|
| 340 | .Chars[m_Length + lenW] = 0
|
---|
| 341 | End With
|
---|
[139] | 342 | #endif
|
---|
[246] | 343 | End Function
|
---|
[132] | 344 |
|
---|
[246] | 345 | Const Function Concat(text As PCWSTR, len As Long) As String
|
---|
[139] | 346 | #ifdef __STRING_IS_NOT_UNICODE
|
---|
[246] | 347 | With Concat
|
---|
| 348 | Dim lenA = WideCharToMultiByte(CP_THREAD_ACP, 0, text, len, 0, 0, 0, 0)
|
---|
| 349 | .AllocStringBuffer(m_Length + lenA)
|
---|
| 350 | memcpy(.Chars, This.Chars, m_Length)
|
---|
| 351 | WideCharToMultiByte(CP_THREAD_ACP, 0, text, len, VarPtr(.Chars[m_Length]), lenA, 0, 0)
|
---|
| 352 | .Chars[m_Length + lenA] = 0
|
---|
| 353 | End With
|
---|
[139] | 354 | #else
|
---|
[246] | 355 | Return ConcatStrChar(This.Chars, m_Length, text, len)
|
---|
[139] | 356 | #endif
|
---|
[246] | 357 | End Function
|
---|
[203] | 358 |
|
---|
[246] | 359 | Static Function Concat(x As String, y As String) As String
|
---|
| 360 | If String.IsNullOrEmpty(x) Then
|
---|
| 361 | Return y
|
---|
| 362 | Else
|
---|
| 363 | Return x.Concat(y.Chars, y.m_Length)
|
---|
| 364 | End If
|
---|
| 365 | End Function
|
---|
[203] | 366 |
|
---|
[246] | 367 | Static Function Concat(x As Object, y As Object) As String
|
---|
| 368 | Return String.Concat(x.ToString, y.ToString)
|
---|
| 369 | End Function
|
---|
[203] | 370 |
|
---|
[246] | 371 | Const Function Contains(objString As String) As Boolean
|
---|
| 372 | Return IndexOf(objString, 0, m_Length) >= 0
|
---|
| 373 | End Function
|
---|
[1] | 374 |
|
---|
[246] | 375 | Const Function Contains(lpszText As *StrChar) As Boolean
|
---|
| 376 | Return IndexOf(lpszText, 0, m_Length) >= 0
|
---|
| 377 | End Function
|
---|
[1] | 378 |
|
---|
[246] | 379 | Const Function IndexOf(lpszText As *StrChar) As Long
|
---|
| 380 | Return IndexOf(lpszText, 0, m_Length)
|
---|
| 381 | End Function
|
---|
[1] | 382 |
|
---|
[246] | 383 | Const Function IndexOf(lpszText As *StrChar, startIndex As Long) As Long
|
---|
| 384 | Return IndexOf(lpszText, startIndex, m_Length - startIndex)
|
---|
| 385 | End Function
|
---|
[1] | 386 |
|
---|
[246] | 387 | Const Function IndexOf(lpszText As *StrChar, startIndex As Long, count As Long) As Long
|
---|
| 388 | Dim length = lstrlen(lpszText)
|
---|
[1] | 389 |
|
---|
[246] | 390 | If startIndex < 0 Then Return -1
|
---|
| 391 | If count < 1 Or count + startIndex > m_Length Then Return -1
|
---|
| 392 | If length > m_Length Then Return -1
|
---|
[1] | 393 |
|
---|
[246] | 394 | If length = 0 Then Return startIndex
|
---|
[1] | 395 |
|
---|
[246] | 396 | Dim i As Long, j As Long
|
---|
| 397 | For i = startIndex To startIndex + count - 1
|
---|
| 398 | For j = 0 To length - 1
|
---|
| 399 | If Chars[i + j] = lpszText[j] Then
|
---|
| 400 | If j = length - 1 Then Return i
|
---|
| 401 | Else
|
---|
| 402 | Exit For
|
---|
| 403 | End If
|
---|
| 404 | Next
|
---|
[1] | 405 | Next
|
---|
[246] | 406 | Return -1
|
---|
| 407 | End Function
|
---|
[1] | 408 |
|
---|
[246] | 409 | Const Function LastIndexOf(lpszText As *StrChar) As Long
|
---|
| 410 | Return LastIndexOf(lpszText, m_Length - 1, m_Length)
|
---|
| 411 | End Function
|
---|
[1] | 412 |
|
---|
[246] | 413 | Const Function LastIndexOf(lpszText As *StrChar, startIndex As Long) As Long
|
---|
| 414 | Return LastIndexOf(lpszText As *StrChar, startIndex, startIndex + 1)
|
---|
| 415 | End Function
|
---|
[1] | 416 |
|
---|
[246] | 417 | Const Function LastIndexOf(lpszText As *StrChar, startIndex As Long, count As Long) As Long
|
---|
| 418 | Dim length = lstrlen(lpszText)
|
---|
[1] | 419 |
|
---|
[246] | 420 | If startIndex < 0 Or startIndex > m_Length - 1 Then Return -1
|
---|
| 421 | If count < 1 Or count > startIndex + 2 Then Return -1
|
---|
| 422 | If length > m_Length Then Return -1
|
---|
[1] | 423 |
|
---|
[246] | 424 | If length = 0 Then Return startIndex
|
---|
[1] | 425 |
|
---|
[246] | 426 | Dim i As Long, j As Long
|
---|
| 427 | For i = startIndex To startIndex - count + 1 Step -1
|
---|
| 428 | For j = length - 1 To 0 Step -1
|
---|
| 429 | If Chars[i + j] = lpszText[j] Then
|
---|
| 430 | If j = 0 Then Return i
|
---|
| 431 | Else
|
---|
| 432 | Exit For
|
---|
| 433 | End If
|
---|
| 434 | Next
|
---|
[1] | 435 | Next
|
---|
[246] | 436 | Return -1
|
---|
| 437 | End Function
|
---|
[1] | 438 |
|
---|
[246] | 439 | Const Function StartsWith(lpszText As *StrChar) As Boolean
|
---|
| 440 | Return IndexOf(lpszText) = 0
|
---|
| 441 | End Function
|
---|
[1] | 442 |
|
---|
[246] | 443 | Const Function EndsWith(lpszText As *StrChar) As Boolean
|
---|
| 444 | Return LastIndexOf(lpszText) = m_Length - lstrlen(lpszText)
|
---|
| 445 | End Function
|
---|
[1] | 446 |
|
---|
[246] | 447 | Const Function Insert(startIndex As Long, text As String) As String
|
---|
| 448 | Return Insert(startIndex, text.Chars, text.Length)
|
---|
| 449 | End Function
|
---|
[1] | 450 |
|
---|
[246] | 451 | Const Function Insert(startIndex As Long, text As *StrChar) As String
|
---|
| 452 | Return Insert(startIndex, text, lstrlen(text))
|
---|
| 453 | End Function
|
---|
[1] | 454 |
|
---|
[246] | 455 | Const Function Insert(startIndex As Long, text As *StrChar, length As Long) As String
|
---|
| 456 | If startIndex < 0 Or startIndex > m_Length Or length < 0 Then
|
---|
| 457 | Debug 'ArgumentOutOfRangeException
|
---|
[1] | 458 |
|
---|
[246] | 459 | End If
|
---|
[253] | 460 | Insert = New String(m_Length + length)
|
---|
[246] | 461 | memcpy(Insert.Chars, Chars, SizeOf (StrChar) * startIndex)
|
---|
| 462 | memcpy(VarPtr(Insert.Chars[startIndex]), text, SizeOf (StrChar) * length)
|
---|
| 463 | memcpy(VarPtr(Insert.Chars[startIndex + length]), VarPtr(Chars[startIndex]), SizeOf (StrChar) * (m_Length - startIndex + 1))
|
---|
| 464 | End Function
|
---|
[1] | 465 |
|
---|
[246] | 466 | Const Function SubString(startIndex As Long) As String
|
---|
| 467 | Return SubString(startIndex, m_Length - startIndex)
|
---|
| 468 | End Function
|
---|
[1] | 469 |
|
---|
[246] | 470 | Const Function SubString(startIndex As Long, length As Long) As String
|
---|
| 471 | If startIndex < 0 Or length <= 0 Then Return ""
|
---|
| 472 | If startIndex + length > m_Length Then Return ""
|
---|
[1] | 473 |
|
---|
[246] | 474 | Dim temp As String
|
---|
| 475 | temp.AllocStringBuffer(length)
|
---|
| 476 | memcpy(temp.Chars, VarPtr(Chars[startIndex]), SizeOf (StrChar) * length)
|
---|
| 477 | temp.Chars[m_Length] = 0
|
---|
| 478 | Return temp
|
---|
| 479 | End Function
|
---|
[1] | 480 |
|
---|
[246] | 481 | Const Function Remove(startIndex As Long) As String
|
---|
| 482 | If startIndex < 0 Or startIndex > m_Length Then
|
---|
| 483 | Debug 'ArgumentOutOfRangeException
|
---|
| 484 | End If
|
---|
[135] | 485 |
|
---|
[253] | 486 | Remove = New String(startIndex)
|
---|
[246] | 487 | memcpy(Remove.Chars, This.Chars, SizeOf (StrChar) * startIndex)
|
---|
| 488 | End Function
|
---|
[1] | 489 |
|
---|
[246] | 490 | Const Function Remove(startIndex As Long, count As Long) As String
|
---|
| 491 | If startIndex < 0 Or count < 0 Or startIndex + count > m_Length Then
|
---|
| 492 | Debug 'ArgumentOutOfRangeException
|
---|
| 493 | End If
|
---|
[135] | 494 |
|
---|
[253] | 495 | Remove = New String(m_Length - count)
|
---|
[246] | 496 | memcpy(Remove.Chars, This.Chars, SizeOf (StrChar) * startIndex)
|
---|
| 497 | memcpy(VarPtr(Remove.Chars[startIndex]), VarPtr(This.Chars[startIndex + count]), SizeOf (StrChar) * (m_Length - startIndex - count))
|
---|
| 498 | End Function
|
---|
[192] | 499 |
|
---|
[246] | 500 | Static Function IsNullOrEmpty(s As String) As Boolean
|
---|
| 501 | If Not Object.ReferenceEquals(s, Nothing) Then
|
---|
| 502 | If s.m_Length > 0 Then
|
---|
| 503 | Return False
|
---|
| 504 | End If
|
---|
[132] | 505 | End If
|
---|
[246] | 506 | Return True
|
---|
| 507 | End Function
|
---|
[192] | 508 |
|
---|
[246] | 509 | Const Function Replace(oldChar As StrChar, newChar As StrChar) As String
|
---|
| 510 | Replace = Copy(This)
|
---|
| 511 | With Replace
|
---|
| 512 | Dim i As Long
|
---|
| 513 | For i = 0 To ELM(.m_Length)
|
---|
| 514 | If .Chars[i] = oldChar Then
|
---|
| 515 | .Chars[i] = newChar
|
---|
| 516 | End If
|
---|
| 517 | Next
|
---|
| 518 | End With
|
---|
| 519 | End Function
|
---|
[1] | 520 |
|
---|
[246] | 521 | Const Function Replace(ByRef oldStr As String, ByRef newStr As String) As String
|
---|
| 522 | ' If oldStr = Nothing Then Throw ArgumentNullException
|
---|
| 523 | '
|
---|
| 524 | ' If newStr = Nothing Then
|
---|
| 525 | ' Return ReplaceCore(oldStr, oldStr.m_Length, "", 0)
|
---|
| 526 | ' Else
|
---|
| 527 | Return ReplaceCore(oldStr, oldStr.m_Length, newStr, newStr.m_Length)
|
---|
| 528 | ' End If
|
---|
| 529 | End Function
|
---|
[1] | 530 |
|
---|
[246] | 531 | Const Function Replace(oldStr As *StrChar, newStr As *StrChar) As String
|
---|
| 532 | If oldStr = 0 Then Debug 'Throw ArgumentNullException
|
---|
| 533 | If newStr = 0 Then newStr = ""
|
---|
| 534 | Return ReplaceCore(oldStr, lstrlen(oldStr), newStr, lstrlen(newStr))
|
---|
| 535 | End Function
|
---|
[1] | 536 |
|
---|
[246] | 537 | Const Function Replace(oldStr As *StrChar, oldLen As Long, newStr As *StrChar, newLen As Long) As String
|
---|
| 538 | If oldStr = 0 Then Debug 'Throw ArgumentNullException
|
---|
| 539 | If newStr = 0 Then
|
---|
| 540 | newStr = ""
|
---|
| 541 | newLen = 0
|
---|
| 542 | End If
|
---|
| 543 | Return ReplaceCore(oldStr, oldLen, newStr, newLen)
|
---|
| 544 | End Function
|
---|
[1] | 545 |
|
---|
[246] | 546 | Const Function ToLower() As String
|
---|
| 547 | ToLower.ReSize(m_Length)
|
---|
| 548 | Dim i As Long
|
---|
| 549 | For i = 0 To ELM(m_Length)
|
---|
| 550 | ToLower.Chars[i] = _System_ASCII_ToLower(Chars[i])
|
---|
| 551 | Next
|
---|
| 552 | End Function
|
---|
[1] | 553 |
|
---|
[246] | 554 | Const Function ToUpper() As String
|
---|
| 555 | ToUpper.ReSize(m_Length)
|
---|
| 556 | Dim i As Long
|
---|
| 557 | For i = 0 To ELM(m_Length)
|
---|
| 558 | ToUpper.Chars[i] = _System_ASCII_ToUpper(Chars[i])
|
---|
| 559 | Next
|
---|
| 560 | End Function
|
---|
| 561 | /*
|
---|
| 562 | Sub Swap(ByRef x As String)
|
---|
| 563 | Dim tempLen As Long
|
---|
| 564 | Dim tempChars As *StrChar
|
---|
| 565 | tempLen = x.m_Length
|
---|
| 566 | tempChars = x.Chars
|
---|
| 567 | x.m_Length = This.m_Length
|
---|
| 568 | x.Chars = This.Chars
|
---|
| 569 | This.m_Length = tempLen
|
---|
| 570 | This.Chars = tempChars
|
---|
| 571 | End Sub
|
---|
| 572 | */
|
---|
| 573 | Override Function ToString() As String
|
---|
| 574 | Return This
|
---|
| 575 | End Function
|
---|
[119] | 576 |
|
---|
[246] | 577 | Static Function Copy(s As String) As String
|
---|
| 578 | Copy.ReSize(s.m_Length)
|
---|
| 579 | memcpy(Copy.Chars, This.Chars, SizeOf (StrChar) * m_Length)
|
---|
| 580 | End Function
|
---|
[132] | 581 |
|
---|
[246] | 582 | Override Function GetHashCode() As Long
|
---|
[143] | 583 | #ifdef __STRING_IS_NOT_UNICODE
|
---|
[246] | 584 | Dim size = (m_Length + 1) >> 1
|
---|
[143] | 585 | #else
|
---|
[246] | 586 | Dim size = m_Length
|
---|
[143] | 587 | #endif
|
---|
[246] | 588 | Return _System_GetHashFromWordArray(Chars As *Word, size)
|
---|
| 589 | End Function
|
---|
| 590 | Private
|
---|
| 591 | ' メモリ確保に失敗すると元の文字列は失われない。(例外安全でいう強い保障)
|
---|
| 592 | Function AllocStringBuffer(textLength As Long) As *StrChar
|
---|
| 593 | If textLength < 0 Then
|
---|
| 594 | Return 0
|
---|
| 595 | ElseIf textLength > m_Length or Chars = 0 Then
|
---|
| 596 | AllocStringBuffer = _System_realloc(Chars, SizeOf(StrChar) * (textLength + 1))
|
---|
| 597 | If AllocStringBuffer <> 0 Then
|
---|
| 598 | m_Length = textLength
|
---|
| 599 | Chars = AllocStringBuffer
|
---|
| 600 | End If
|
---|
| 601 | Else
|
---|
[30] | 602 | m_Length = textLength
|
---|
[246] | 603 | AllocStringBuffer = Chars
|
---|
[1] | 604 | End If
|
---|
[246] | 605 | End Function
|
---|
[1] | 606 |
|
---|
[246] | 607 | Function ReplaceCore(oldStr As *StrChar, oldLen As Long, newStr As *StrChar, newLen As Long) As String
|
---|
| 608 | If oldLen = 0 Then
|
---|
| 609 | Debug 'Throw ArgumentException
|
---|
| 610 | End If
|
---|
| 611 | Dim tmp As String
|
---|
| 612 | With tmp
|
---|
| 613 | Dim current = 0 As Long
|
---|
| 614 | Do
|
---|
| 615 | Dim pos = IndexOf(oldStr, current)
|
---|
| 616 | If pos = -1 Then
|
---|
| 617 | Exit Do
|
---|
| 618 | End If
|
---|
| 619 | .Append(VarPtr(Chars[current]), pos - current)
|
---|
| 620 | .Append(newStr, newLen)
|
---|
| 621 | current = pos + oldLen
|
---|
| 622 | Loop
|
---|
| 623 | .Append(VarPtr(Chars[current]), m_Length - current)
|
---|
| 624 | End With
|
---|
| 625 | Return tmp
|
---|
| 626 | End Function
|
---|
[132] | 627 |
|
---|
[246] | 628 | Sub AssignFromStrChar(text As *StrChar, textLength As Long)
|
---|
| 629 | If text = Chars Then Exit Sub
|
---|
| 630 | If AllocStringBuffer(textLength) <> 0 Then
|
---|
| 631 | memcpy(Chars, text, SizeOf (StrChar) * textLength)
|
---|
| 632 | Chars[m_Length] = 0
|
---|
| 633 | End If
|
---|
| 634 | End Sub
|
---|
| 635 | End Class
|
---|
| 636 |
|
---|
| 637 | End Namespace
|
---|