Response.write en el Body

[SunDarK]

Imports System.Text
Module Module1
Sub Main()
' instanciar un objeto
Dim sbCaracteres As StringBuilder = New StringBuilder()
' con el método Append() añadimos caracteres al objeto
sbCaracteres.Append("hola ")
sbCaracteres.Append("vamos a crear ")
sbCaracteres.Append("caracteres con StringBuilder")
' la propiedad Length devuelve la cantidad real
' de caracteres que contiene el objeto
Console.WriteLine("Longitud de la cadena del objeto StringBuilder: {0}", _
sbCaracteres.Length)
' la propiedad Capacity devuelve la cantidad de caracteres
' que el objeto puede contener
Console.WriteLine("Capacidad del objeto StringBuilder: {0}", _
sbCaracteres.Capacity)
' el método Insert() permite incluir una cadena
' dentro del objeto, a partir de una posición determinada
sbCaracteres.Insert(6, "SORPRESA")
Console.WriteLine("Inserción de cadena")
Console.WriteLine("Cadena: {0}", sbCaracteres.ToString())
' con el método Remove(), borramos a partir de una
' posición del objeto, un número de caracteres
sbCaracteres.Remove(45, 3)
Console.WriteLine("Eliminación de caracteres")
Console.WriteLine("Cadena: {0}", sbCaracteres.ToString())
' con el método Replace(), sustituimos una cadena
' por otra dentro del objeto
sbCaracteres.Replace("crear", "pintar")
Console.WriteLine("Reemplazo de caracteres")
Console.WriteLine("Cadena: {0}", sbCaracteres.ToString())
' la siguiente línea ajusta la capacidad
' del objeto a la cantidad real de caracteres que tiene
sbCaracteres.Capacity = sbCaracteres.Length
Console.WriteLine()
' volcamos el contenido del objeto a una cadena,
' el método ToString() devuelve un tipo String,
' que pasamos a una variable de dicho tipo
Dim sCadena As String
sCadena = sbCaracteres.ToString()
Console.WriteLine("La variable sCadena contiene: {0}", sCadena)
Console.ReadLine()
End Sub
End Module