VISUAL BASIC 6: Trabajar con Strings

Function Len (s as string) as integer

----> Devuelve la longitud del string

Function Mid (s as string, posicionInicio as integer [, longitud as integer]) as string

----> Devuelve una subcadena

Function Left (s as string, longitud as integer) as string

----> Devuelve la subcadena empezando por la izquierda de longitud especificada

Function Right (s as string, longitud as integer) as string

----> Devuelve la subcadena empezando por la derecha de longitud especificada

Function Ucase (s as string) as string

----> Devuelve una cadena en mayúsculas

Function Lcase (s as string) as string

----> Devuelve una cadena en minúsculas

Function Instr ([inicio as integer,] s1 as string, s2 as string)

----> Devuelve la posición de s2 en s1, 0 si no existe.

Function InstrRev (s1 as string, s2 as string [,inicio as integer] )

----> Devuelve la posición de s2 en s1, 0 si no existe, empezando por el final.

Sub Replace (s1 as string, s2 as string, s3 as string)

----> Reemplaza en s1 todas las ocurrencias de s2 por s3.

Function StrReverse (s as string) as string

----> Devuelve s al revés.

Function LTrim(s as string) as string

----> Devuelve s sin los espacios del principio.

Function RTrim(s as string) as string

----> Devuelve s sin los espacios del final.

Function Trim(s as string) as string

----> Devuelve s sin los espacios del final y del principio.

Function asc(s as string) as integer

----> Devuelve el valor ascii del primer carácter de s.

Function Chr (i as integer) as char

----> Devuelve el carácter que corresponde a un valor ascii.

VISUAL BASIC 6: interfaz para elegir un archivo.

En nuestro proyecto Visual Basic 6 debemos añadir en Project -> Components el Microsoft Common Dialog Control 6.0 que nos permitirá abrir diálogos para elegir archivos. Veremos que aparece un botón nuevo en nuestra barra de componentes y arrastramos uno hasta nuestro form. El nombre por defecto es CommonDialog1.

Una vez añadido, el siguiente código nos abre una ventana para seleccionar un archivo con un filtro determinado:

'Añadir un filtro al dialog de elegir archivo
Private Sub AddFilter(ByVal dlg As CommonDialog, ByVal _
filter_title As String, ByVal filter_value As String)

Dim txt As String

txt = dlg.Filter
If Len(txt) > 0 Then txt = txt & "|"
txt = txt & filter_title & " (" & filter_value & ")|" & _
filter_value
dlg.Filter = txt

End Sub

Después, asociamos a un evento el siguiente código:

AddFilter CommonDialog1, "Excel files", "*.xls"
CommonDialog1.ShowOpen
Path = CommonDialog1.FileName

En la variable path tendremos la ruta al archivo.