Manipulación de cadenas con la clase String - V

• Copy( ). Crea un nuevo objeto String, aunque el medio más sencillo consiste en asignar una cadena a la variable. Ver el Código fuente 318.

Dim lsCadA As String

Dim lsCadB As String

lsCadA = "uno"

lsCadB = String.Copy("OTRO")

Console.WriteLine("CadenaA --> {0}", lsCadA)

Console.WriteLine("CadenaB --> {0}", lsCadB)

Código fuente 318

• Compare( ). Este método compartido compara dos cadenas, y devuelve un valor menor de cero, si la primera cadena es menor que la segunda; cero si ambas cadenas son iguales; y mayor de cero, si la primera cadena es mayor. Ver el Código fuente 319.

Dim lsCompara1 As String

Dim lsCompara2 As String

Dim liResultaComp As Integer

Console.WriteLine("Introducir primera cadena a comparar")

lsCompara1 = Console.ReadLine()

Console.WriteLine("Introducir segunda cadena a comparar")

lsCompara2 = Console.ReadLine()

liResultaComp = String.Compare(lsCompara1, lsCompara2)

Select Case liResultaComp

Case Is < 0

Console.WriteLine("Primera cadena es menor")

Case 0

Console.WriteLine("Las cadenas son iguales")

Case Is > 0

Console.WriteLine("Primera cadena es mayor")

End Select

Código fuente 319

• Equals( ). Compara el objeto con una cadena pasada como parámetro, y devuelve un valor lógico, que indica si las cadenas son o no iguales. Ver el Código fuente 320.

Dim lsCadInicial As String
Dim lsCadComparar As String
lsCadInicial = "Prueba"
Console.WriteLine("Introducir una cadena a comparar con la cadena inicial")
lsCadComparar = Console.ReadLine()
If lsCadInicial.Equals(lsCadComparar) Then
Console.WriteLine("Las cadenas son iguales")
Else
Console.WriteLine("Las cadenas son diferentes")
End If

Código fuente 320