Today's featured TechNet Wiki article is from Nonki Takahashi:
Small Basic: How to Convert Multi-Line Text into Array of Lines
Small Basic can get multi-line text into a variable from multi-line input text box with Controls.GetTextBoxText() or from text file with File.ReadContents().
The following sample code shows how to convert a multi-line text into an array of lines.
The following sample code shows how to convert a multi-line text into an array of lines.
CRLF = Text.GetCharacter(13) + Text.GetCharacter(10)GraphicsWindow.BackgroundColor = "LightGray"GraphicsWindow.BrushColor = "Black"gw = GraphicsWindow.Widthgh = GraphicsWindow.Heighttb = Controls.AddMultiLineTextBox(0, 0)Controls.SetSize(tb, gw, gh - 30)Controls.AddButton("Enter", gw - 50, gh - 30)Controls.ButtonClicked = OnButtonClickedSub OnButtonClicked buf = Controls.GetTextBoxText(tb) ConvertTextToLines() ShowLines()EndSubSub ConvertTextToLines len = Text.GetLength(buf) nLines = 0 ptr = 1 While ptr <= len eol = Text.GetIndexOf(Text.GetSubTextToEnd(buf, ptr), CRLF) If eol = 0 Then ' eol not found nLines = nLines + 1 lines[nLines] = Text.GetSubTextToEnd(buf, ptr) ptr = len + 1 Else ' eol found nLines = nLines + 1 lines[nLines] = Text.GetSubText(buf, ptr, eol - 1) ptr = ptr + eol + 1 EndIf EndWhileEndSubSub ShowLines For i = 1 To nLines TextWindow.WriteLine("lines[" + i + "]: " + lines[i]) EndForEndSubRead the latest version of this TechNet Wiki article with an improved code block snippet here:
Small Basic: How to Convert Multi-Line Text into Array of Lines
Thanks again to Nonki for this great contribution!
- Ninja Ed