''' Serialises a datatable to the supplied stream. ''' ''' The stream writr to which the datatable should ''' be serialised. Eg this may correspond to a file stream. ''' The datatable to be serialised. ''' When true, the column headers will ''' be wrtten out on the first row. ''' ----------------------------------------------------------------------------- Public Shared Sub WriteDataTable(ByVal Writer As StringBuilder, ByVal Table As DataTable, ByVal IncludeHeaderRow As Boolean, ByVal delimiter As String) If (delimiter.Trim().Length = 0) delimiter = "," End If If IncludeHeaderRow Then For i As Integer = 0 To Table.Columns.Count - 1 WriteItem(Writer, Table.Columns(i).ColumnName) If i < Table.Columns.Count - 1 Then Writer.Append(delimiter) Else Writer.Append(vbCrLf) End If Next End If For Each Row As DataRow In Table.Rows For i As Integer = 0 To Table.Columns.Count - 1 WriteItem(Writer, Row(i).ToString) If i < Table.Columns.Count - 1 Then Writer.Append(delimiter) Else Writer.Append(vbCrLf) End If Next Next End Sub ''' ----------------------------------------------------------------------------- ''' ''' Writes a csv data cell, escaping quotes and new lines where necessary. ''' ''' The writer to which the item should be written. ''' The value to be written. ''' ----------------------------------------------------------------------------- Private Shared Sub WriteItem(ByVal Writer As StringBuilder, ByVal Value As String) If Value.IndexOfAny(("""," & vbCrLf).ToCharArray) > -1 Then Writer.Append("""" & Value.Replace("""", """""") & """") Else Writer.Append(Value) End If End Sub 'Splits text into lines of approximately equal length, looking for 'gaps between words as splitting points in order to avoid ugly 'line splitting in the middle of words. Useful for mainframe memos 'where a long message needs to be broken into lines of up to 80 'characters. ' Private Shared Function SplitTextByLengthEngine(Texttosplit As String, MaxLineLength As Integer) As List(of String) Dim RetVal as New List(Of String) MaxLineLength = Math.Min(MaxLineLength, TexttoSplit.Length) 'We look for the last space within (MaxLineLength + 1) and then work backwards '(always by at least one) to find the last non-space character. We can then 'chop at this point, assuming such exists. Otherwise we just chop at the 'requested line length accepting we will be splitting a word. Dim LastIndex as integer = TexttoSplit.Substring(0, Math.Min(MaxLineLength + 1, TextToSplit.Length)).LastIndexOf(" ") If TextToSplit.Length <= MaxLineLength OrElse LastIndex = -1 Then RetVal.Add(TexttoSplit.Substring(0, MaxLineLength)) Dim RemainingText As String = TexttoSplit.SubString(MaxLineLength,TextToSplit.Length - MaxLineLength).Trim() If RemainingText.Length > 0 Then RetVal.AddRange(SplitTextByLengthEngine(RemainingText, MaxLineLength)) Else 'Track backwards to find previous non-space character Dim Index As Integer = LastIndex - 1 While Index >= 0 Andalso TextToSplit.SubString(Index, 1) = " " Index -=1 End While If Index >= 0 Then RetVal.Add(TextToSplit.SubString(0, Index + 1)) Dim RemainingText As String = TexttoSplit.SubString(Index + 1, TextToSplit.Length - (Index + 1)).Trim() If RemainingText.Length > 0 Then RetVal.AddRange(SplitTextByLengthEngine(RemainingText, MaxLineLength)) Else 'Must all be spaces. We assume this are to be ignored End If End If Return RetVal End Function Private Shared Function CreateRegexOptions(Singleline As Boolean, IgnoreCase As Boolean, IgnoreWhitespace As Boolean, CultureInvariant As Boolean, ExplicitCapture As Boolean, RightToLeft As Boolean, ECMAScript As Boolean) As RegexOptions If Singleline Then CreateRegexOptions = CreateRegexOptions Or RegexOptions.Singleline End If If IgnoreCase Then CreateRegexOptions = CreateRegexOptions Or RegexOptions.IgnoreCase End If If IgnoreWhitespace Then CreateRegexOptions = CreateRegexOptions Or RegexOptions.IgnorePatternWhitespace End If If CultureInvariant Then CreateRegexOptions = CreateRegexOptions Or RegexOptions.CultureInvariant End If If ExplicitCapture Then CreateRegexOptions = CreateRegexOptions Or RegexOptions.ExplicitCapture End If If RightToLeft Then CreateRegexOptions = CreateRegexOptions Or RegexOptions.RightToLeft End If If ECMAScript Then CreateRegexOptions = CreateRegexOptions Or RegexOptions.ECMAScript End If Return CreateRegexOptions End Function]]>
0 then i += Attribute.length + 2 value = XML.substring(i) value = value.substring(0, value.indexof("""")) else value = "" end if]]>
0 Dim NewLine As String = Text_to_Split.SubString(0, Math.Min(Maximum_Line_Length, Text_to_Split.Length)) NewLine = NewLine.Trim() Values.Add(NewLine) If Text_to_Split.Length > NewLine.Length Then Text_to_Split = Text_to_Split.SubString(NewLine.Length, Text_to_Split.Length - NewLine.Length) Else Text_to_Split = "" End If Text_to_Split = Text_to_Split.Trim() End While Else Values = SplitTextByLengthEngine(Text_to_Split, Maximum_Line_length) End If Split_Lines = New DataTable() Split_Lines.Columns.Add("Line Text", GetType(String)) For Each s as String in Values Split_Lines.Rows.Add(New Object() {s}) Next Line_Count = Values.Count]]>
0 Then For Each Row As DataRow in Named_Values.Rows Dim GroupName As String = CStr(Row("Name")) Dim G As Group = M.Groups(GroupName) If G.Success Then Row("Value") = G.Value End If Next End If End If Named_Values_Out = Named_Values]]>
0 If Success Then Dim groupNames() As String = regexObject.GetGroupNames() groupNames(0) = fullMatchColumnName For groupIndex As Integer = 1 To groupNames.GetUpperBound(0) Regex_Matches.Columns.Add(groupNames(groupIndex), GetType(String)) Next For Each regexMatch As Match In regexMatches Dim resultRow As DataRow = Regex_Matches.NewRow() Dim groupIndex As Integer = 0 For Each regexGroup As Group In regexMatch.Groups resultRow(groupNames(groupIndex)) = regexGroup.Value groupIndex += 1 Next Regex_Matches.Rows.Add(resultRow) Next End If]]>
0) And (start > 0) Then output = rgx.Replace(input, replacement, CInt(max), CInt(start)) ElseIf (max > 0) Then output = rgx.Replace(input, replacement, CInt(max)) Else output = rgx.Replace(input, replacement) End If ]]>