' A Split variant that parses a string that contains' row and column separators, and returns a 2-dimensional array'' the result String array has a number of columns equal' to the highest number of fields in individual text linesFunction Split2(ByVal Text As String, Optional ByVal RowSeparator As String = _ vbCrLf, Optional ByVal ColSeparator As String = ",") As String() Dim lines() As String Dim cols() As String Dim r As Long Dim c As Long ' first, split the string in lines lines() = Split(Text, RowSeparator) ' initialize the result array ' start with just one column ReDim res(UBound(lines), 0) As String ' parse each line of text For r = 0 To UBound(lines) cols() = Split(lines(r), ColSeparator) ' resize the result array if necessary If UBound(cols) > UBound(res, 2) Then ReDim Preserve res(UBound(lines), UBound(cols)) As String End If ' copy the individual values For c = 0 To UBound(cols) res(r, c) = cols(c) Next Next Split2 = res() End Function
Westinghouse Builds Polish Power Plant
Lila Anderson
September 22, 2023
Westinghouse Electric Company and Bechtel have come together to establish a formal partnership in order to design and construct Poland’s inaugural nuclear power plant at
