source: trunk/Include/Classes/System/String.ab@ 457

Last change on this file since 457 was 457, checked in by イグトランス (egtra), 16 years ago

(SPrintF.ab) FormatIntegerExにStringBuilderを引数に取る版を追加。
File size: 19.8 KB
RevLine 
[132]1' Classes/System/String.ab
2
3#require <basic/function.sbp>
[272]4#require <Classes/System/Text/StringBuilder.ab>
5#require <Classes/ActiveBasic/Strings/Strings.ab>
[132]6
[139]7#ifdef __STRING_IS_NOT_ALWAYS_UNICODE
[383]8
9#ifndef UNICODE
[139]10TypeDef StrChar = Char
11#define __STRING_IS_NOT_UNICODE
12#endif
[383]13
14#endif
15
16#ifndef __STRING_IS_NOT_UNICODE
17TypeDef StrChar = WCHAR
18
19#ifdef UNICODE
20#define __STRING_IS_UNICODE
[139]21#else
[142]22#define __STRING_UNICODE_WINDOWS_ANSI
[139]23#endif
[142]24#endif
[139]25
[246]26Namespace System
[203]27
[246]28 Class String
[457]29 Implements /*IComparable, ICloneable, IConvertible, IComparable<String>, IEnumerable, IEnumerable<StrChar>, IEquatable<String>*/
[1]30
[246]31 m_Length As Long
32 Chars As *StrChar
[1]33
[272]34 Sub validPointerCheck(p As VoidPtr, size = 1 As Long)
35 If p As ULONG_PTR < &h10000 Then
[457]36 Throw New ArgumentException
[272]37 ElseIf IsBadReadPtr(p, size As ULONG_PTR) Then
[457]38 Throw New ArgumentException
[272]39 End If
40 End Sub
41 Public
42 Static Const Empty = New String
43
[246]44 Sub String()
[272]45' Chars = 0
46' m_Length = 0
[246]47 End Sub
[30]48
[272]49 Sub String(initStr As PCWSTR)
50 validPointerCheck(initStr)
51 Assign(initStr, lstrlenW(initStr))
[246]52 End Sub
[125]53
[272]54 Sub String(initStr As PCWSTR, length As Long)
55 validPointerCheck(initStr, length)
[246]56 Assign(initStr, length)
57 End Sub
[139]58
[272]59 Sub String(initStr As PCWSTR, start As Long, length As Long)
60 If start < 0 Or length Or start + length < 0 Then
[388]61 Throw New ArgumentOutOfRangeException("String constractor: One or more arguments are out of range value.", "start or length or both")
[272]62 End If
63 validPointerCheck(initStr + start, length)
64 Assign(initStr + start, length)
[246]65 End Sub
[139]66
[272]67 Sub String(initStr As PCSTR)
68 validPointerCheck(initStr)
69 Assign(initStr, lstrlenA(initStr))
[246]70 End Sub
[49]71
[272]72 Sub String(initStr As PCSTR, length As Long)
73 validPointerCheck(initStr, length)
74 Assign(initStr, length)
[246]75 End Sub
[121]76
[272]77 Sub String(initStr As PCSTR, start As Long, length As Long)
[388]78 If start < 0 Or length < 0 Then
79 Throw New ArgumentOutOfRangeException("String constructor: One or more arguments are out of range value.", "start or length or both")
[272]80 End If
81 validPointerCheck(initStr + start, length)
82 Assign(initStr + start, length)
[246]83 End Sub
[383]84
[272]85 Sub String(initStr As String)
86 If Not String.IsNullOrEmpty(initStr) Then
87 Assign(initStr.Chars, initStr.m_Length)
88 End If
89 End Sub
[1]90
[246]91 Sub String(initChar As StrChar, length As Long)
[272]92 AllocStringBuffer(length)
93 ActiveBasic.Strings.ChrFill(Chars, length, initChar)
94 Chars[length] = 0
[246]95 End Sub
96
[388]97 Sub String(sb As Text.StringBuilder)
[272]98 Chars = StrPtr(sb)
99 m_Length = sb.Length
100 sb.__Stringized()
[246]101 End Sub
[1]102
[246]103 Const Function Length() As Long
104 Return m_Length
105 End Function
[30]106
[246]107 Function Operator() As *StrChar
108 Return Chars
109 End Function
[1]110
[246]111 Const Function Operator [] (n As Long) As StrChar
[272]112 rangeCheck(n)
[246]113 Return Chars[n]
114 End Function
[1]115
[272]116 Const Function Operator + (y As PCSTR) As String
[426]117 If y = 0 Then
118 Return This
119 Else
120 Return Concat(y, lstrlenA(y))
121 End If
[246]122 End Function
[139]123
[272]124 Const Function Operator + (y As PCWSTR) As String
[426]125 If y = 0 Then
126 Return This
127 Else
128 Return Concat(y, lstrlenW(y))
129 End If
[246]130 End Function
[139]131
[272]132 Const Function Operator + (y As String) As String
[426]133 If ActiveBasic.IsNothing(y) Then
134 Return This
135 Else
136 Return Concat(y.Chars, y.m_Length)
137 End If
[246]138 End Function
[1]139
[272]140 Const Function Operator & (y As PCSTR) As String
141 Return This + y
[246]142 End Function
[1]143
[272]144 Const Function Operator & (y As PCWSTR) As String
[426]145 Return This + y
[246]146 End Function
[139]147
[272]148 Const Function Operator & (y As String) As String
[426]149 Return This + y
[246]150 End Function
[1]151
[272]152 Const Function Operator == (y As String) As Boolean
[457]153 Return Compare(This, y) = 0
[246]154 End Function
[1]155
[272]156 Const Function Operator == (y As *StrChar) As Boolean
[457]157 Return Compare(This, y) = 0
[246]158 End Function
[1]159
[272]160 Const Function Operator <> (y As String) As Boolean
[457]161 Return Compare(This, y) <> 0
[246]162 End Function
[1]163
[272]164 Const Function Operator <> (y As *StrChar) As Boolean
[457]165 Return Compare(This, y) <> 0
[246]166 End Function
[1]167
[272]168 Const Function Operator < (y As String) As Boolean
[457]169 Return Compare(This, y) < 0
[246]170 End Function
[1]171
[272]172 Const Function Operator < (y As *StrChar) As Boolean
[457]173 Return Compare(This, y) < 0
[246]174 End Function
[1]175
[272]176 Const Function Operator > (y As String) As Boolean
[457]177 Return Compare(This, y) > 0
[246]178 End Function
[1]179
[272]180 Const Function Operator > (y As *StrChar) As Boolean
[457]181 Return Compare(This, y) > 0
[246]182 End Function
[1]183
[272]184 Const Function Operator <= (y As String) As Boolean
[457]185 Return Compare(This, y) <= 0
[246]186 End Function
[1]187
[272]188 Const Function Operator <= (y As *StrChar) As Boolean
[457]189 Return Compare(This, y) <= 0
[246]190 End Function
[1]191
[272]192 Const Function Operator >= (y As String) As Boolean
[457]193 Return Compare(This, y) >= 0
[246]194 End Function
[1]195
[272]196 Const Function Operator >= (y As *StrChar) As Boolean
[457]197 Return Compare(This, y) >= 0
[246]198 End Function
[1]199
[246]200 Static Function Compare(x As String, y As String) As Long
201 Return CompareOrdinal(x, y)
202 End Function
[203]203
[272]204 Public
[457]205 'Compareなどで、x.Charsではなく、StrPtr(x)と書く理由は、xがNothingの場合のため。
206
[246]207 Static Function Compare(x As String, indexX As Long, y As String, indexY As Long, length As Long) As Long
[457]208 Return CompareOrdinal(x, indexX, y, indexY, length)
[246]209 End Function
[203]210
[246]211 Static Function CompareOrdinal(x As String, y As String) As Long
[457]212 Return CompareOrdinal(StrPtr(x), StrPtr(y))
[246]213 End Function
[203]214
[246]215 Static Function CompareOrdinal(x As String, indexX As Long, y As String, indexY As Long, length As Long) As Long
[457]216 Return CompareOrdinal(StrPtr(x), indexX, StrPtr(y), indexY, length)
[272]217 End Function
218 Private
219 Static Function Compare(x As String, y As *StrChar) As Long
[457]220 Return CompareOrdinal(x, y)
[272]221 End Function
222
223 Static Function CompareOrdinal(x As String, y As *StrChar) As Long
[457]224 Return CompareOrdinal(StrPtr(x), y)
[272]225 End Function
226
227 Static Function CompareOrdinal(x As *StrChar, y As *StrChar) As Long
228 If x = 0 Then
229 If y = 0 Then
[246]230 Return 0
231 Else
232 Return -1
233 End If
[272]234 ElseIf y = 0 Then
[246]235 Return 1
[203]236 End If
[272]237 Return ActiveBasic.Strings.StrCmp(x, y)
[246]238 End Function
[203]239
[272]240 Static Function CompareOrdinal(x As *StrChar, indexX As Long, y As *StrChar, indexY As Long, length As Long) As Long
241 If x = 0 Then
242 If y = 0 Then
243 Return 0
244 Else
245 Return -1
246 End If
247 ElseIf y = 0 Then
248 Return 1
249 End If
250 Return ActiveBasic.Strings.ChrCmp(VarPtr(x[indexX]), VarPtr(y[indexY]), length As SIZE_T)
251 End Function
252 Public
[246]253 Function CompareTo(y As String) As Long
254 Return String.Compare(This, y)
255 End Function
[203]256
[246]257 Function CompareTo(y As Object) As Long
[388]258 If Not Object.Equals(This.GetType(), y.GetType()) Then
[457]259 Throw New ArgumentException("String.CompareTo: The type of the argument y is not String.", "y")
[388]260 End If
[272]261 Return CompareTo(y As String)
[246]262 End Function
[203]263
[308]264 Function Equals(s As String) As Boolean
265 Return This = s
266 End Function
267
268 Override Function Equals(s As Object) As Boolean
[366]269 If Object.Equals( This.GetType(), s.GetType() ) Then
[308]270 Return This.Equals(s As String)
271 End If
272 Return False
273 End Function
274
[246]275 Const Function StrPtr() As *StrChar
276 Return Chars
277 End Function
[272]278Private
[1]279
[246]280 Sub Assign(text As PCSTR, textLengthA As Long)
[175]281#ifdef __STRING_IS_NOT_UNICODE
[246]282 AssignFromStrChar(text, textLengthA)
[139]283#else
[246]284 Dim textLengthW = MultiByteToWideChar(CP_THREAD_ACP, 0, text, textLengthA, 0, 0)
285 If AllocStringBuffer(textLengthW) <> 0 Then
286 MultiByteToWideChar(CP_THREAD_ACP, 0, text, textLengthA, Chars, textLengthW)
287 Chars[textLengthW] = 0
288 End If
[139]289#endif
[246]290 End Sub
[1]291
[246]292 Sub Assign(text As PCWSTR, textLengthW As Long)
[139]293#ifdef __STRING_IS_NOT_UNICODE
[246]294 Dim textLengthA = WideCharToMultiByte(CP_THREAD_ACP, 0, text, textLengthW, 0, 0, 0, 0)
295 If AllocStringBuffer(textLengthA) <> 0 Then
296 WideCharToMultiByte(CP_THREAD_ACP, 0, text, textLengthW, Chars, textLengthA, 0, 0)
297 Chars[textLengthA] = 0
298 End If
[139]299#else
[246]300 AssignFromStrChar(text, textLengthW)
[139]301#endif
[246]302 End Sub
[139]303
[246]304 Private
305 Static Function ConcatStrChar(text1 As *StrChar, text1Length As Long, text2 As *StrChar, text2Length As Long) As String
306 ConcatStrChar = New String()
307 With ConcatStrChar
308 .AllocStringBuffer(text1Length + text2Length)
[272]309 ActiveBasic.Strings.ChrCopy(.Chars, text1, text1Length As SIZE_T)
310 ActiveBasic.Strings.ChrCopy(VarPtr(.Chars[text1Length]), text2, text2Length As SIZE_T)
[246]311 .Chars[text1Length + text2Length] = 0
312 End With
313 End Function
314 Public
315 Const Function Concat(text As PCSTR, len As Long) As String
[139]316#ifdef __STRING_IS_NOT_UNICODE
[246]317 Return ConcatStrChar(This.Chars, m_Length, text, len)
[139]318#else
[246]319 With Concat
320 Dim lenW = MultiByteToWideChar(CP_THREAD_ACP, 0, text, len, 0, 0)
[272]321 Concat = New String
[246]322 .AllocStringBuffer(m_Length + lenW)
[400]323 ActiveBasic.Strings.ChrCopy(.Chars, This.Chars, m_Length As SIZE_T)
[246]324 MultiByteToWideChar(CP_THREAD_ACP, 0, text, len, VarPtr(.Chars[m_Length]), lenW)
325 .Chars[m_Length + lenW] = 0
326 End With
[139]327#endif
[246]328 End Function
[132]329
[246]330 Const Function Concat(text As PCWSTR, len As Long) As String
[139]331#ifdef __STRING_IS_NOT_UNICODE
[246]332 With Concat
[272]333 Concat = New String
[246]334 Dim lenA = WideCharToMultiByte(CP_THREAD_ACP, 0, text, len, 0, 0, 0, 0)
335 .AllocStringBuffer(m_Length + lenA)
[272]336 ActiveBasic.Strings.ChrCopy(.Chars, This.Chars, m_Length As SIZE_T)
[246]337 WideCharToMultiByte(CP_THREAD_ACP, 0, text, len, VarPtr(.Chars[m_Length]), lenA, 0, 0)
338 .Chars[m_Length + lenA] = 0
339 End With
[139]340#else
[246]341 Return ConcatStrChar(This.Chars, m_Length, text, len)
[139]342#endif
[246]343 End Function
[203]344
[246]345 Static Function Concat(x As String, y As String) As String
346 If String.IsNullOrEmpty(x) Then
347 Return y
348 Else
349 Return x.Concat(y.Chars, y.m_Length)
350 End If
351 End Function
[203]352
[457]353 Static Function Concat(x As String, y As String, z As String) As String
354 Dim sb = New Text.StringBuilder(removeNull(x).Length + removeNull(y).Length + removeNull(z).Length)
355 sb.Append(x).Append(y).Append(z)
356 Concat = sb.ToString
357 End Function
358
359 Static Function Concat(x As String, y As String, z As String, w As String) As String
360 Dim sb = New Text.StringBuilder(removeNull(x).Length + removeNull(y).Length + removeNull(z).Length + removeNull(w).Length)
361 sb.Append(x).Append(y).Append(z).Append(w)
362 Concat = sb.ToString
363 End Function
364
[246]365 Static Function Concat(x As Object, y As Object) As String
[457]366 Return Concat(x.ToString, y.ToString)
[246]367 End Function
[203]368
[457]369 Static Function Concat(x As Object, y As Object, z As Object) As String
370 Return Concat(x.ToString, y.ToString, z.ToString)
371 End Function
372
373 Static Function Concat(x As Object, y As Object, z As Object, w As Object) As String
374 Return Concat(x.ToString, y.ToString, z.ToString, w.ToString)
375 End Function
376
[428]377 Const Function Contains(c As StrChar) As Boolean
378 Return IndexOf(c) >= 0
379 End Function
380
[272]381 Const Function Contains(s As String) As Boolean
382 If Object.ReferenceEquals(s, Nothing) Then
[391]383 Throw New ArgumentNullException("String.Contains: An argument is null value.", "s")
[388]384 ElseIf s = "" Then
385 Return True
386 Else
387 Return IndexOf(s, 0, m_Length) >= 0
[272]388 End If
[246]389 End Function
[1]390
[272]391 Const Function IndexOf(c As StrChar) As Long
392 Return indexOfCore(c, 0, m_Length)
[246]393 End Function
[1]394
[272]395 Const Function IndexOf(c As StrChar, start As Long) As Long
396 rangeCheck(start)
397 Return indexOfCore(c, start, m_Length - start)
[246]398 End Function
[1]399
[272]400 Const Function IndexOf(c As StrChar, start As Long, count As Long) As Long
401 rangeCheck(start, count)
402 Return indexOfCore(c, start, count)
[246]403 End Function
[272]404 Private
405 Const Function indexOfCore(c As StrChar, start As Long, count As Long) As Long
[370]406 indexOfCore = ActiveBasic.Strings.ChrFind(VarPtr(Chars[start]), count, c) As Long
[272]407 If indexOfCore <> -1 Then
408 indexOfCore += start
409 End If
410 End Function
411 Public
412 Const Function IndexOf(s As String) As Long
413 Return IndexOf(s, 0, m_Length)
414 End Function
[1]415
[272]416 Const Function IndexOf(s As String, startIndex As Long) As Long
417 Return IndexOf(s, startIndex, m_Length - startIndex)
418 End Function
[1]419
[272]420 Const Function IndexOf(s As String, startIndex As Long, count As Long) As Long
421 rangeCheck(startIndex, count)
422 If Object.ReferenceEquals(s, Nothing) Then
[388]423 Throw New ArgumentNullException("String.IndexOf: An argument is out of range value.", "s")
[272]424 End If
[1]425
[272]426 Dim length = s.Length
[246]427 If length = 0 Then Return startIndex
[1]428
[246]429 Dim i As Long, j As Long
430 For i = startIndex To startIndex + count - 1
431 For j = 0 To length - 1
[272]432 If Chars[i + j] = s[j] Then
[246]433 If j = length - 1 Then Return i
434 Else
435 Exit For
436 End If
437 Next
[1]438 Next
[246]439 Return -1
440 End Function
[1]441
[388]442 Const Function LastIndexOf(c As StrChar) As Long
443 Return lastIndexOf(c, m_Length - 1, m_Length)
444 End Function
445
446 Const Function LastIndexOf(c As StrChar, start As Long) As Long
447 rangeCheck(start)
448 Return lastIndexOf(c, start, start + 1)
449 End Function
450
451 Const Function LastIndexOf(c As StrChar, start As Long, count As Long) As Long
452 rangeCheck(start)
453 Dim lastFindPos = start - (count - 1)
454 If Not (m_Length > lastFindPos And lastFindPos >= 0) Then
455 Throw New ArgumentOutOfRangeException("String.LastIndexOf: An argument is out of range value.", "count")
456 End If
457 Return lastIndexOf(c, start, count)
458 End Function
459 Private
460 Const Function lastIndexOf(c As StrChar, start As Long, count As Long) As Long
461 Dim lastFindPos = start - (count - 1)
462 Dim i As Long
463 For i = start To lastFindPos Step -1
464 If Chars[i] = c Then
465 Return i
466 End If
467 Next
468 Return -1
469 End Function
470
471 Public
[272]472 Const Function LastIndexOf(s As String) As Long
473 Return LastIndexOf(s, m_Length - 1, m_Length)
[246]474 End Function
[1]475
[272]476 Const Function LastIndexOf(s As String, startIndex As Long) As Long
477 Return LastIndexOf(s, startIndex, startIndex + 1)
[246]478 End Function
[1]479
[388]480 Const Function LastIndexOf(s As String, start As Long, count As Long) As Long
[272]481 If Object.ReferenceEquals(s, Nothing) Then
[388]482 Throw New ArgumentNullException("String.LastIndexOf: An argument is out of range value.", "s")
[272]483 End If
[1]484
[388]485 If start < 0 Or start > m_Length - 1 Or _
486 count < 0 Or count > start + 2 Then
487 Throw New ArgumentOutOfRangeException("String.LastIndexOf: One or more arguments are out of range value.", "start or count or both")
[272]488 End If
[388]489 Dim length = s.m_Length
[246]490 If length > m_Length Then Return -1
[388]491 If length = 0 Then Return start
[1]492
[246]493 Dim i As Long, j As Long
[388]494 For i = start To start - count + 1 Step -1
[246]495 For j = length - 1 To 0 Step -1
[272]496 If Chars[i + j] = s[j] Then
[246]497 If j = 0 Then Return i
498 Else
499 Exit For
500 End If
501 Next
[1]502 Next
[246]503 Return -1
504 End Function
[1]505
[428]506 Const Function StartsWith(c As StrChar) As Boolean
507 Return IndexOf(c) = 0
508 End Function
509
[272]510 Const Function StartsWith(s As String) As Boolean
511 Return IndexOf(s) = 0
[246]512 End Function
[1]513
[428]514 Const Function EndsWith(c As StrChar) As Boolean
515 Return LastIndexOf(c) = m_Length - 1
516 End Function
517
[272]518 Const Function EndsWith(s As String) As Boolean
519 Return LastIndexOf(s) = m_Length - s.Length
[246]520 End Function
[1]521
[246]522 Const Function Insert(startIndex As Long, text As String) As String
[388]523 Dim sb = New Text.StringBuilder(This)
[272]524 sb.Insert(startIndex, text)
525 Return sb.ToString
[246]526 End Function
[1]527
[272]528 Const Function Substring(startIndex As Long) As String
529 rangeCheck(startIndex)
530 Return Substring(startIndex, m_Length - startIndex)
[246]531 End Function
[1]532
[272]533 Const Function Substring(startIndex As Long, length As Long) As String
534 rangeCheck(startIndex, length)
535 Return New String(Chars, startIndex, length)
[246]536 End Function
[1]537
[246]538 Const Function Remove(startIndex As Long) As String
[272]539 rangeCheck(startIndex)
540 Remove = Substring(0, startIndex)
[246]541 End Function
[1]542
[246]543 Const Function Remove(startIndex As Long, count As Long) As String
[388]544 Dim sb = New Text.StringBuilder(This)
[272]545 sb.Remove(startIndex, count)
546 Remove = sb.ToString
[246]547 End Function
[192]548
[246]549 Static Function IsNullOrEmpty(s As String) As Boolean
550 If Not Object.ReferenceEquals(s, Nothing) Then
551 If s.m_Length > 0 Then
552 Return False
553 End If
[132]554 End If
[246]555 Return True
556 End Function
[192]557
[246]558 Const Function Replace(oldChar As StrChar, newChar As StrChar) As String
[388]559 Dim sb = New Text.StringBuilder(This)
[272]560 sb.Replace(oldChar, newChar)
561 Replace = sb.ToString
[246]562 End Function
[1]563
[272]564 Const Function Replace(oldStr As String, newStr As String) As String
[388]565 Dim sb = New Text.StringBuilder(This)
[272]566 sb.Replace(oldStr, newStr)
567 Return sb.ToString
[246]568 End Function
[1]569
[246]570 Const Function ToLower() As String
[388]571 Dim sb = New Text.StringBuilder(m_Length)
[272]572 sb.Length = m_Length
[246]573 Dim i As Long
574 For i = 0 To ELM(m_Length)
[388]575 sb[i] = ActiveBasic.CType.ToLower(Chars[i])
[246]576 Next
[272]577 Return sb.ToString
[246]578 End Function
[1]579
[246]580 Const Function ToUpper() As String
[388]581 Dim sb = New Text.StringBuilder(m_Length)
[272]582 sb.Length = m_Length
[246]583 Dim i As Long
584 For i = 0 To ELM(m_Length)
[388]585 sb[i] = ActiveBasic.CType.ToUpper(Chars[i])
[246]586 Next
[272]587 Return sb.ToString
[246]588 End Function
[272]589
[246]590 Override Function ToString() As String
[272]591 ToString = This
[246]592 End Function
[119]593
[272]594 Const Function Clone() As String
595 Clone = This
596 End Function
[457]597/*
598 Function Clone() As Object
599 Clone = This
600 End Function
601*/
[246]602 Static Function Copy(s As String) As String
[272]603 Copy = New String(s.Chars, s.m_Length)
[246]604 End Function
[132]605
[272]606 Sub CopyTo(sourceIndex As Long, destination As *StrChar, destinationIndex As Long, count As Long)
607 ActiveBasic.Strings.ChrCopy(VarPtr(destination[destinationIndex]), VarPtr(Chars[sourceIndex]), count As SIZE_T)
608 End Sub
609
[246]610 Override Function GetHashCode() As Long
[143]611#ifdef __STRING_IS_NOT_UNICODE
[246]612 Dim size = (m_Length + 1) >> 1
[143]613#else
[246]614 Dim size = m_Length
[143]615#endif
[388]616 Return _System_GetHashFromWordArray(Chars As *Word, size) Xor m_Length
[246]617 End Function
[272]618
619 Function PadLeft(total As Long) As String
620 PadLeft(total, &h30 As StrChar)
621 End Function
622
623 Function PadLeft(total As Long, c As StrChar) As String
624 If total < 0 Then
[388]625 Throw New ArgumentOutOfRangeException("String.PadLeft: An arguments is out of range value.", "total")
[272]626 End If
627 If total >= m_Length Then
628 Return This
629 End If
[388]630 Dim sb = New Text.StringBuilder(total)
[272]631 sb.Append(c, total - m_Length)
632 sb.Append(This)
633 Return sb.ToString
634 End Function
635
636 Function PadRight(total As Long) As String
[285]637 PadRight(total, &h30 As StrChar)
[272]638 End Function
639
640 Function PadRight(total As Long, c As StrChar) As String
641 If total < 0 Then
[388]642 Throw New ArgumentOutOfRangeException("String.PadRight: An arguments is out of range value.", "total")
[272]643 End If
644 If total >= m_Length Then
645 Return This
646 End If
[388]647 Dim sb = New Text.StringBuilder(total)
[272]648 sb.Append(This)
649 sb.Append(c, total - m_Length)
650 Return sb.ToString
651 End Function
[246]652 Private
653 Function AllocStringBuffer(textLength As Long) As *StrChar
654 If textLength < 0 Then
655 Return 0
[1]656 End If
[272]657 AllocStringBuffer = GC_malloc_atomic(SizeOf(StrChar) * (textLength + 1))
658 If AllocStringBuffer = 0 Then
659 'Throw New OutOfMemoryException
[246]660 End If
[272]661 m_Length = textLength
662 Chars = AllocStringBuffer
[246]663 End Function
[132]664
[246]665 Sub AssignFromStrChar(text As *StrChar, textLength As Long)
[272]666 AllocStringBuffer(textLength)
667 ActiveBasic.Strings.ChrCopy(Chars, text, textLength As SIZE_T)
668 Chars[m_Length] = 0
669 End Sub
670
671 Const Sub rangeCheck(index As Long)
672 If index < 0 Or index > m_Length Then
[388]673 Throw New ArgumentOutOfRangeException("String: An arguments is out of range value.", "index")
[246]674 End If
675 End Sub
[383]676
[272]677 Const Sub rangeCheck(start As Long, length As Long)
678 If start < 0 Or start > This.m_Length Or length < 0 Then
[388]679 Throw New ArgumentOutOfRangeException("String: One or more arguments are out of range value.", "start or length or both")
[272]680 End If
681 End Sub
[457]682
683 Static Function removeNull(s As String) As String
684 If ActiveBasic.IsNothing(s) Then
685 removeNull = Empty
686 Else
687 removeNull = s
688 End If
689 End Function
[246]690 End Class
691
692End Namespace
Note: See TracBrowser for help on using the repository browser.