string CRLF = "\r\n"; string TestString = string.Format("Test this string. {0}It contains {1}a CRLF.{2}QED", CRLF, CRLF, CRLF ); string[] lines = TestString.Split(CRLF.ToCharArray(), StringSplitOptions.RemoveEmptyEntries); for (int i = 0; i < lines.Length; i++) { Debug.WriteLine(lines[i]); }~~Bonnie
> ' Load the string into the string builder
> ' expC1 String
> Public Function LoadString(ByVal tcString As String) As Boolean
> Dim lnCounter As Integer = 0
>
> ' Make sure to clear the string builder
> oStringBuilder.Length = 0
>
> oStringBuilder.Append(tcString)
>
> ' Initialize the array
> oLine = oStringBuilder.ToString.Split(oApp.cCR)
>
> ' Count the number of lines
> nLine = MemLines()
>
> ' For each line
> For lnCounter = 1 To nLine
> oLine(lnCounter - 1) = oApp.NoCr(oLine(lnCounter - 1))
> Next
>
> Return True
> End Function
>
> ' Return the number of lines in a string
> Public Function MemLines() As Integer
> Return oLine.Length - 1
> End Function
>
> ' Return the specific line in a string
> ' expN1 Line
> Public Function MLine(ByVal tnLine As Integer) As Boolean
>
> ' Reset the values
> cLine = ""
>
> ' If the value passed is smaller or eqaul to the number of lines
> If tnLine - 1 < = nLine Then
> cLine = oLine(tnLine - 1)
> End If
>
> Return True
> End Function