source: trunk/ab5.0/ablib/src/Classes/System/String.ab @ 531

Last change on this file since 531 was 531, checked in by OverTaker, 15 years ago

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