Small Basic: How to Convert Multi-Line Text into an Array of Lines


niños

Resources For IT Professionals

                       

// United States (English)

Россия (Pусский)中国(简体中文)Brasil (Português)

  • First published by   Nonki Takahashi a private company

Small Basic: How to Convert Multi-Line Text into an 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.

Program Code:

CRLF = Text.GetCharacter(13) + Text.GetCharacter(10)

GraphicsWindow.BackgroundColor = “LightGray”

GraphicsWindow.BrushColor = “Black”

gw = GraphicsWindow.Width

gh = GraphicsWindow.Height

tb = Controls.AddMultiLineTextBox(0, 0)

Controls.SetSize(tb, gw, gh – 30)

Controls.AddButton(“Enter”, gw – 50, gh – 30)

Controls.ButtonClicked = OnButtonClicked

Sub OnButtonClicked

buf = Controls.GetTextBoxText(tb)

ConvertTextToLines()

ShowLines()

EndSub

Sub 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    

EndWhile

EndSub

Sub ShowLines

For i = 1 To nLines

TextWindow.WriteLine(“lines[” + i + “]: ” + lines[i])

EndFor

EndSub

 

 

en-US, From Forum, has code, has comment, Small Basic, TechNet Guru [Edit tags]

.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s