tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-29 00:34:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added \n only check

Browse Source
This commit is contained in:
Aragas 2016-12-03 18:26:59 +03:00
parent 77941acc0e
commit 6d03ba1373
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
2.5DHero/2.5DHero/Modules/Extensions.vb
View File

@ -313,7 +313,7 @@ Module Extensions
<Extension()> <Extension()>
Public Function SplitAtNewline(ByVal s As String) As String() Public Function SplitAtNewline(ByVal s As String) As String()
If s.Contains("§") = False Then If s.Contains("§") = False Then
Return s.Replace(vbNewLine, "§").Split(CChar("§")) Return s.Replace(vbNewLine, "§").Replace(vbLf, "§").Split(CChar("§"))
Else Else
Dim Data As New List(Of String) Dim Data As New List(Of String)
@ -323,7 +323,7 @@ Module Extensions
Dim i As Integer = 0 Dim i As Integer = 0
While s <> "" And i < s.Length While s <> "" And i < s.Length
If s.Substring(i).StartsWith(vbNewLine) = False Then If s.Substring(i).StartsWith(vbNewLine) = False Or s.Substring(i).StartsWith(vbLf) = False Then
i += 1 i += 1
Else Else
Data.Add(s.Substring(0, i)) Data.Add(s.Substring(0, i))