¿Cómo intercambiar el orden de varias líneas de datos en un cuadro de texto en VB?

Categoría: Computadora/Red gt; Programación gt; Otros lenguajes de programación

Descripción del problema:

Por ejemplo, cuadro de texto 1 ( multiline=true )

11111

33333

22222

dsfds

.

.

.(omitido)

Objeto en voz alta

4323amp; ^

Reemplazar con:

4323amp ; ^

Objeto en voz alta

.

.

.

dsfds

22222

33333

11111

Significado

La última línea se cambia a la primera línea y la penúltima línea se cambia a la segunda línea... .Y así sucesivamente.

Intercambia el orden primero y último.

Acabo de aprender VB, ¿qué tal si escribimos algo de código? gt;

Análisis:

Private Sub Command1_Click()

Dim s() As String, temp As String

s = Split(Text1.Text, vbCrLf )

Para i = 0 Para UBound(s) \ 2

temp = s(i)

s(i) = s(UBound(s) - i)

s(UBound(s) - i) = temp

Siguiente

Texto1.Text = Unirse(s, vbCrLf)

Fin del subtítulo