Tutorial Viisual Basic 6

* Método de Comparación ( Option Compare String)
La instrucción Option Compare especifica el método de comparación de cadenas (Binary o Text) para una clase, módulo o estructura. Si no se incluye una instrucción Option Compare, el método predeterminado de comparación de texto es Binary. Éste se debe especificar al principio del código antes de cualquier otra instrucción.
* Operadores decomparación
El resultado al comparar cadenas mediante los operadores depende del Option Compare.
Si es Binary, entonces:
“vba” > “VBA” regresa True ya que compara cada posición de ambas cadenas, comoel valor ANSI de “v” es 118 y el de “V” es 86 118 es mayor que 86.
Si es Text, entonces:
“vba” > “VBA” regresa False
Ya que las cadenas son equivalentes, no distingue minúsculas demayúsculas.
* El operador LIKE
result = string Like pattern

result
Obligatoria. Cualquier variable de tipo Boolean. El resultado será un valor de tipo Boolean que indicará si string satisface o no el modelo pattern.
string
Obligatoria. Cualquier expresión de tipo String.
pattern
Obligatoria. Cualquier expresión String que cumpla las convenciones decoincidencia de modelos que se describen en la sección "Comentarios".
Si el valor de string coincide con el modelo contenido en pattern, result es True. Si la cadena no coincide con el modelo, result es False. Si tanto string como pattern son cadenas vacías, el resultado es True.
Caracteres de pattern | Coincidencias en string |
? | Cualquier carácter individual |
* | Cero o más caracteres |# | Cualquier dígito individual (0-9) |
[ charlist ] | Cualquier carácter individual de charlist |
[! charlist ] | Cualquier carácter individual que no esté incluido en charlist |

* La función StrComp}
TestComp = StrComp(Str1, Str2, CompareMethod.binary)
La función StrComp devuelve los siguientes valores.
Si | StrComp devuelve |
String1 < String2 | -1 |String1 = String2 | 0 |
String1 > String2 | 1 |
* Función Len
Regresa la longitud de la cadena.
' Initializes variable.
Dim TestString As String = "Hello World"
' Returns 11.
Dim TestLen As Integer = Len(TestString)

* Función InStr
Busca la primera aparición de un carácter o cadena dentro de otracadena., comenzando del lado izquierdo.
Parámetros
Start
Opcional. Expresión numérica que establece la posición inicial para cada búsqueda. Si se omite, la búsqueda comienza en la primera posición del carácter. El índice de inicio está basado en 1.

String1
Requerido. Expresión String en la que se busca.
String2
Requerido. Expresión String que se busca.
' String to searchin.
Dim SearchString As String = "XXpXXpXXPXXP"
' Search for "P".
Dim SearchChar As String = "P"

Dim TestPos As Integer
' A textual comparison starting at position 4. Returns 6.
TestPos = InStr(4, SearchString, SearchChar, CompareMethod.Text)

'A binary comparison starting at position 1. Returns 9.
TestPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary)

' If Option Compare is not set, or set to Binary, return 9.
' If Option Compare is set to Text, returns 3.
TestPos = InStr(SearchString, SearchChar)


* Función InStrRevDevuelve la posición de la primera aparición de una cadena dentro de otra, comenzando por el extremo derecho de la cadena.
* Función Left
Devuelve una cadena que contiene un número especificado de caracteres desde el lado izquierdo de una cadena.
Dim TestString As String = "Hello World!"
' Returns "Hello".
Dim subString As String =...